Preguntaría si alguien tuvo la amabilidad de explicarme cómo iniciar sesión en la página web desde la aplicación Delphi. Todos los ejemplos que he encontrado aquí me han resultado inútiles o estoy haciendo algo mal. Estoy cansado de la búsqueda y el código que no funciona.

No hay ningún mensaje de error, incluso recibo el código de la página en Memo, pero parece que es el código de la página de inicio de sesión (no la página de la cuenta [tablero de control]). Parece que este código no puede pasar la autenticación y no sé por qué.

Lo que está mal en este código:

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;

o con esta versión:

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;

Usé Delphi XE2 y no hay forma de hacer que este código se ejecute e inicie sesión. Es lo mismo con la demo XE3. Como dije, estoy realmente cansado de buscar alguna solución, perder días en ella y nada.

Por favor, chicos, un poco de ayuda aquí. Realmente lo necesito.