1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
|
{ TForm1 }
uses fphttpclient, opensslsockets;
function ReadURL(AUrl: String): String;
begin
with TFPHTTPClient.Create(nil) do
try
Result := Get(AURL);
finally
Free;
end;
end;
procedure TForm1.Bt_GetClick(Sender: TObject);
begin
Memo1.Text := ReadURL('https://reqbin.com/echo');
end;
procedure TForm1.Bt_PostClick(Sender: TObject);
var
Client: TFPHttpClient;
Response : TStringStream;
Params : string = '{"login":"my_login","password":"my_password"}';
begin
Client := TFPHttpClient.Create(nil);
Client.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)');
Client.AddHeader('Content-Type','application/json; charset=UTF-8');
Client.AddHeader('Accept', 'application/json');
Client.AllowRedirect := true;
client.RequestBody := TRawByteStringStream.Create(Params);
Response := TStringStream.Create('');
try
try
client.Post('https://reqbin.com/echo/post/json', Response);
Memo1.Text := 'Response Code of Post Request is ' + inttostr(Client.ResponseStatusCode); // better be 200
except on E:Exception do
Memo1.Text := 'Something bad happened in Post Request : ' + E.Message;
end;
finally
Client.RequestBody.Free;
Client.Free;
Response.Free;
end;
end; |
Partager