Erstmal vielen Dank für die Bemühungen!
Ich bin auch ein bisschen weiter gekommen, habe mich zur Fehlermeldung (HTTP-Statusmeldungen) erkundigt. Allerdings kam bei der Seite "http://login.facebook.com/login.php?
params" ja auch die Meldung.
Ich habs jetzt noch so verändert, dass ich einen IOHandler zur IdHTTP hinzugefügt habe:
TIdSSLIOHandlerSocketOpenSSL. Das Ding ist wohl für HTTPS Verbindungen zuständig.
Leider erscheint dann die Meldung: "Could not load SSL Library"
Der Code sieht jetzt so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s: TStringList;
v: TMemoryStream;
begin
s:= TStringList.Create;
v:= TMemoryStream.Create;
s.Add('charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84');
s.Add('lsd=-uGj9');
s.Add('locale=de_DE');
s.Add('email=*xxx*%40live.de');
s.Add('pass=*xxx*');
s.Add('default_persistent=0');
IdHTTP1.Post('https://login.facebook.com/login.php?login_attempt=1', s, v);
ShowMessage(MemoryStreamToString(v));
s.Free
end;
Das
IdHTTP1
hat auch den
IOHandler IdSSLIOHandlerSocketOpenSSL1
.
Dem
IdSSLIOHandlerSocketOpenSSL1 habe ich allerdings keine weiteren Eigenschaften im Objektinspektor verliehen.
Vielen Dank!