[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

06.08.2008, 23:24

Gho_st

Познающий

Регистрация: 24.06.2005

Сообщений: 79

Провел на форуме:
227039

Репутация: 11

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

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

Код:

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.