Войти на сайт с Delphi

Я бы спросил, был ли кто-то достаточно любезен, чтобы объяснить мне, как войти на веб-странице из приложения Delphi. Все примеры, которые я здесь нашел, оказались для меня бесполезными, или я делаю что-то не так. Я устал от поиска и кода, который не работает.

Нет сообщения об ошибке, я даже вставляю код страницы в Memo, но кажется, что это код со страницы входа (не страницы учетной записи) - кажется, что этот код вообще не может пройти аутентификацию, и я не знаю, почему.

Что не так в этом коде:

procedure Login;
var
 HTTP: TIdHTTP;
 Param: TStringList;
 S: String;
begin
 HTTP := TIdHTTP.Create(nil);
 HTTP.CookieManager := Main_Form.CookieManager;
 Param := TStringList.Create;
 Param.Clear;
 Param.Add('login=example');
 Param.Add('password=example');

try
 HTTP.Get ('http://www.filestrum.com/login.html');
 HTTP.Post('http://www.filestrum.com/login.html', Param);
 S := HTTP.Get ('http://www.filestrum.com/?op=my_account');
 Main_Form.Memo2.Lines.Add(S);
finally
  HTTP.Free;
  Param.Free;
end;
end;

или с этой версией:

procedure Login;
var
 HTTP: TIdHTTP;
 S: String;
begin  
 HTTP                             := TIdHTTP.Create(nil);
 HTTP.CookieManager               := Main_Form.CookieManager;
 HTTP.Request.BasicAuthentication := True;
 HTTP.Request.Username            := 'example';
 HTTP.Request.Password            := 'example';
 HTTP.AllowCookies                := True;
 HTTP.HandleRedirects             := True;

 S := HTTP.Get ('http://www.filestrum.com/?op=my_account');
 Main_Form.Memo2.Lines.Add(S);
end;

Использовал Delphi XE2 и нет способа заставить этот код работать и войти в систему. То же самое с демонстрацией XE3. Как я уже сказал, я действительно устал искать какое-то решение, тратить на это дни и ничего.

Пожалуйста, ребята, помогите здесь. Это действительно нужно.

Ответы на вопрос(1)

Ваш ответ на вопрос