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?