Ich würde fragen, ob jemand so freundlich ist, mir zu erklären, wie ich mich auf der Webseite der Delphi-App anmelde. Alle Beispiele, die ich hier gefunden habe, haben sich für mich als nutzlos erwiesen oder ich mache etwas falsch. Ich habe die Suche satt und den Code, der nicht funktioniert.

Es gibt keine Fehlermeldung, ich bekomme sogar Seitencode in Memo, aber es scheint, dass es sich um Code von der Anmeldeseite handelt (nicht von der Kontoseite [Dashboard]) - dieser Code kann scheinbar überhaupt keine Authentifizierung passieren und ich weiß nicht warum.

Was ist falsch in diesem Code:

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;

oder mit dieser Version:

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;

Verwendet Delphi XE2 und es gibt keine Möglichkeit, diesen Code zum Laufen zu bringen und sich anzumelden. Genauso ist es mit der XE3-Demo. Wie gesagt, ich bin es wirklich leid, nach einer Lösung zu suchen, Tage damit zu verschwenden und nichts.

Bitte Leute, etwas Hilfe hier. Brauche es wirklich.