delphi REST/POST

使用的组件是TRESTClient和TRESTRequest。

类似，但不使用TNetHTTPClient或TNetHTTPRequest。

用途

REST.Types; //添加组件时会输入其他用途。

procedure TForm2.Button2Click(Sender: TObject);

var

jsRequest: TJSONObject;

u8BearerToken:UTF8String;

begin

RESTClient1.BaseURL := 'https://xxxxxxxxxx.execute-api.ap-northeast-1.amazonaws.com/v1/';

RESTRequest1.Resource := 'monitoring/logregister';

RESTRequest1.Method := TRESTRequestMethod.rmPOST;

jsRequest := TJSONObject.Create();

jsRequest.AddPair('UserName', 'un');

jsRequest.AddPair('Password', 'pw');

RESTRequest1.AddBody(jsRequest);

u8BearerToken:='Bearer XXXXXXXX';

RESTRequest1.Params.AddHeader('Authentication', u8BearerToken);

RESTRequest1.Execute;

jsRequest.Free();

end;

推荐分享