Advertisement
Guest User

Untitled

a guest
Sep 17th, 2014
281
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.75 KB | None | 0 0
  1. uses
  2.   httpsend, ssl_openssl;
  3.  
  4. procedure TForm1.Button1Click(Sender : TObject);
  5. var
  6.   HTTP : THTTPSend;
  7.   FPostData : string;
  8. begin
  9.   HTTP := THTTPSend.Create;
  10.   with HTTP do
  11.   begin
  12.     Protocol := '1.1';
  13.     KeepAlive := True;
  14.     UserAgent := 'Opera/9.80 (Windows NT 6.1; U; pl) Presto/2.7.62 Version/12.16';
  15.     Clear;
  16.     MimeType := 'application/json'; //'application/x-www-form-urlencoded';
  17.     HTTP.HTTPMethod('GET', 'https://e-skok.pl/eskok/login.jsp');
  18.     {
  19.     FPostData := 'username=ogarnij&password=sie';
  20.     Document.Write(PChar(FPostData)^, Length(FPostData));
  21.     HTTP.HTTPMethod('POST', 'https://e-skok.pl/eskok/login.jsp');
  22.     }
  23.     Document.SaveToFile('D:\test.html');
  24.   end;
  25.   HTTP.Free;
  26.   ShowMessage('Done');
  27. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement