Chciałbym zrobić logowanie na stronie przy pomocy indy i metody post. Na formie mam
takie obiekty:
ssl: TIdSSLIOHandlerSocket;
http: TIdHTTP;
Button1: TButton;
Memo1: TMemo;
TIdSSLIOHandlerSocket jest do obsługi SSL. W folderze z programem mam wymagane biblioteki (pobrane stąd).
Jednak przy próbie odpalenia takiej procedurki:
procedure TForm1.Button1Click(Sender: TObject);
var
Params: TStringStream;
Response: String;
begin
Params := TStringStream.Create('mail=jakistam@mail&password=haslo');
http.Request.ContentType := 'application/x-www-form-urlencoded';
Memo1.Text := http.Post('https://www.battlefieldheroes.com/user/login?destination=%2Fplaynow', Params);
Params.Free;
end;
wyskakuje mi:
HTTP/1.1 500 Internal Server Error.
Posiadam Delphi 7 i indy dostarczone wraz z nim (to chyba 9?). Wie ktoś w czym tkwi problem?
Dla ułatwienia link do projektu:
http://wyslijto.pl/plik/33ht9cxqfs