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;
 

相关阅读 >>

Delphi 程序启动窗体控制在桌面右下角

Delphi 删除文件函数支持撤销删除

Delphi 搜索内存偏移函数

关于Delphi xe2的fmx的一点点研究之消息篇

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi 动态调用chm文件

Delphi 用stringhelper.split分解字符串

Delphi读ios的设备id

Delphi xe tparallel.for的用法

Delphi 控制台 输入输出实例代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi REST/POST