Tfphttpclient例子

Tfphttpclient例子

uses fphttpclient;

http := Tfphttpclient.Create(nil);
  body := '{"sql":"select * from tunit"}';
  http.RequestBody := TRawByteStringStream.Create(body);
  memo1.Text:=http.Post('http://localhost:1234/table/select');
  http.Free;