Залогиниться на сайте

[Raiz]

Как программно на Delphi залогиниться на сайте с движком vBulletin?

Пробовал таким способом:

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStringList;
Response: TStringStream;
STR:string;
BEGIN
try
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Add('vb_login_username='+Edit1.Text);
LoginInfo.Add('vb_login_password='+Edit2.Text);
IdHTTP1.Post('http://site/login.php',LoginInfo,Response);
str:=IdHTTP1.Get('http://site/');
Memo1.Lines.Add(str);
finally
begin
Response.Free;
LoginInfo.Free;
end;
end;
end;


Но постоянно вылетает сообщение HTTP/1.1 301 Moved Permanently или HTTP/1.1 302 Found..

[GlooK]

Как программно на Delphi залогиниться на сайте с движком vBulletin?

Но постоянно вылетает сообщение HTTP/1.1 301 Moved Permanently или HTTP/1.1 302 Found..

Уже не помню как в компоненте называется свойство.
Связанное с Redirect, MaxRedirect и т.п.
Поставь значение True.

UPD:
IdHTTP.HandleRedirects:=true;

[Raiz]

Большое спасибо, помогло!