[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

var
a: Pointer;
b: Integer;
begin
a:=@b;

 

addr возвращает первый байт переменной.

 

I/O error 105 (File not open for output)
Здесь желательно увидеть не этот кусок, а более обширный код.

 

AssignFile(), Reset()/Rewrite(), CloseFile();

 

также есть function append(f:TEXTFILE) - добавление строк в текстовый файл

 

добрый вечерно
вобщем проблема такая.. пишу что-то вроде клиента под
броузерную игрушку по совместительству остваиваю компонент idHTTP : )

вот возникла проблема
при попытки коннекта вылезает ошибка 405
и собственно код ответа сервера не возвращается в Memo

Code:

procedure TForm1.Button1Click(Sender: TObject);
var CM : TIdCookieManager;
LoginInfo: TStrings;
Response: TStringStream;
i:integer;
begin
CM := TidCookieManager.Create(IdHTTP1);
IdHTTP1.AllowCookies := True;
IdHTTP1.CookieManager := CM;
IdHTTP1.HandleRedirects := True;
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Clear;
LoginInfo.Add('login=логин');
LoginInfo.Add('pass=пароль');
LoginInfo.Add('x=0');
LoginInfo.Add('y=o');//незнаю что такое но вроде тоже передается
memo1.Lines.Clear;
IdHTTP1.Host:='ereality.ru';
IdHTTP1.Port:=80;                               
Memo1.Lines.Text:=IdHTTP1.Post('/',LoginInfo);
Memo1.Lines.Add(Response.DataString);
for i:=0 to IdHTTP1.CookieManager.CookieCollection.count-1 do
memo2.lines.add(IdHTTP1.CookieManager.cookieCollection.items[i].cookieText);
Response.Free;
LoginInfo.Free;
end;
end.

 

Memo1.Lines.Text:=IdHTTP1.Post('/',LoginInfo);
Попробуй вместо этого "/", вставить адрес странички куда посылается запрос.

 

хм.. пробывал..
там что-то замутно
и index.php И login.php тоже где то там лежащий
но суть одна
если меня не авторизует мне выдается код с начальной страницей
ну и как вариант у меня вылазит ошибка 405

 

для авторизации теперь вообще не юзаю компоненты, лучше попробуй на сокетах!они рулят, имхо.

 

Народ я к *примеру* хочу программировать под линукс на делфи но на делфи же вроде незя задавать форматы линукса собственно вопрос вот в чем
Я хочу программировать под линукс на делфи существует ли плагин или язык каторый похож на делфи (точь в точь чтобы функции как в делфи были) и чтобы он программировал под делфи

ЗЫ спасибо де-визибл ))!

 

Kylix?!
http://ru.wikipedia.org/wiki/Kylix

 

Такой вопрос:

Можно ли использовать два типа данных в одной программе?
Ну к примеру вот так:

Code:

program antichat;
var a,b,c,d :integer {-  с одним типом данных integer}
{А с двумя возможно,или это бред получится?}
var a,b,c,d :integer,real {-  с двумя типами данных integer,real}

 

var a,b,c,d :integer;
var a1,b1,c1,d1 :real;

 

C++ && (QT or GTK+)

 

BlackSun, а если не изменять var a1,b1,c1,d1 :real;? Ну тоесть прописать как и в Integer a,b,c,d а не a1,b1,c1,d1, что тогда?

 

Тебе просто занятся нечем, или есть проблема?

 

BlackSu, не, спросил просто, извени

 

народ где бы почитать про применение TThead для использования в брутах на http

Я понимаю конкретно влядли что будет, но что то более подходящее под эту задачу посоветуйте плз, либо пример если кому не трудно!

Спасибо!

 

http://dash.ru/_review/
http://callipso.bestcode.org/delphi/artical/num2.html

попробуй ето!

 

http://forum.vingrad.ru/topic-60076.html
если вот это осилишь, то мб что и напишешь...