SSL, TIdHTTP i metoda post - jak to ugryźć?

SSL, TIdHTTP i metoda post - jak to ugryźć?
PiXel
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 98
0

Chciałbym zrobić logowanie na stronie przy pomocy indy i metody post. Na formie mam
takie obiekty:

Kopiuj
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:

Kopiuj
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

M1
  • Rejestracja: dni
  • Ostatnio: dni
0

dodaj jeszcze to:

Kopiuj
    IdHTTP1.HandleRedirects := True; 
PiXel
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 98
0

Niestety nadal to samo.

EDIT: Dziwne, zacząłem zupełnie nowy projekt i teraz dostaję:

Connection Closed Gracefully.

Nadal te same komponenty na formie.

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.