Loggen Sie sich bei Delphi ein

Question

Ich würde fragen, ob jemand so freundlich war, mir zu erklären, wie man sich auf der Webseite von Delphi App anmeldet. Alle Beispiele, die ich hier gefunden habe, haben sich für mich als nutzlos erwiesen oder ich mache etwas falsch. Ich bin müde von der Suche und dem Code, der nicht funktioniert.

Es gibt keine Fehlermeldung, ich habe sogar Seitencode in Memo aber scheint es Code von Login-Seite (nicht Konto [Dashboard] Seite) - scheint dieser Code kann nicht Auth passieren und ich weiß nicht warum .

Was in diesem Code falsch ist:

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; 

Gebrauchte Delphi XE2 und es gibt keine Möglichkeit, diesen Code ausgeführt wird und Anmeldung zu machen. Das gleiche gilt für die XE3-Demo. Wie gesagt, ich bin wirklich müde, nach einer Lösung zu suchen, Tage zu verschwenden und nichts.

Bitte Jungs, einige helfen hier. Brauche es wirklich.

Answer 1

versuchen, etwas wie folgt aus:

function Login: string; 
var 
    IdHTTP: TIdHTTP; 
    Request: TStringList; 
    Response: TMemoryStream; 
begin 
    Result := ''; 
    try 
    Response := TMemoryStream.Create; 
    try 
     Request := TStringList.Create; 
     try 
     Request.Add('op=login'); 
     Request.Add('redirect=http://www.filestrum.com'); 
     Request.Add('login=example'); 
     Request.Add('password=example'); 
     IdHTTP := TIdHTTP.Create; 
     try 
      IdHTTP.AllowCookies := True; 
      IdHTTP.HandleRedirects := True; 
      IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
      IdHTTP.Post('http://www.filestrum.com/', Request, Response); 
      Result := IdHTTP.Get('http://www.filestrum.com/?op=my_account');  
     finally 
      IdHTTP.Free; 
     end; 
     finally 
     Request.Free; 
     end; 
    finally 
     Response.Free; 
    end; 
    except 
    on E: Exception do 
     ShowMessage(E.Message); 
    end; 
end;