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

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.