Einloggen mit Indy 10

[F.W.]

Hallo,

ich habe auch schonmal ein Programm für SS geschrieben, welches Daten mit Login abrief. Allerdings ist das sehr lange her und damals war der Login noch etwas anders.

Nun wollte ich gerade dein Problem nachzuvollziehen, allerdings schaffe ich es nicht mich per Indy einzuloggen. (Fehler wie falscher Username oder Pw habe ich schon geprüft, ist alles ok)
- AUrl war wahlweise mal eine Profilseite oder die /misc/login/
- HandleRedirects ist True;

Mein Code:

Delphi-Quellcode:

var
 L: TStrings;
 Data: TIdMultiPartFormDataStream;
begin
 L := TStringList.Create;
 try
   Data := TIdMultiPartFormDataStream.Create;
   try
     Data.AddFormField('user', FUsername);
     Data.AddFormField('pw', FPassword.Password);
     Data.AddFormField('xyz', '132m2e');
     Data.AddFormField('slo', '0');

     L.Text := FHTTP.Post(AUrl, Data);
     L.SaveToFile('D:\test.html');

     Result := True;
   finally
     Data.Free;
   end;
 finally
   L.Free;
 end;
end;

Wenn ich die gespeicherte Datei nachher lade, wird mir die Seite angezeigt, auf der steht, dass ich doch ein registriertes Mitglied sein müsste um mich umzusehen... und am linken Rand die Loginfelder.

Konntest du dich mit deinem Code einloggen?