Delphi TRESTClient + TRESTRequest + TRESTResponse

本文整理自网络，侵删。

 
部分设置，需要自行，根据实际调整。

var
  lParams: TCollectionItem;
  lJSONObject: TJSONObject;
begin
  lJSONObject := TJSONObject.Create;
  try
    ResetRESTComponentsToDefaults;
 
    RESTClient.BaseURL := 'http://ws.hml.autorei.net/';
    RESTClient.Authenticator := HTTPBasicAuthenticator1;
    RESTClient.ContentType := 'application/x-www-form-urlencoded';
 
    RESTRequest.Method := TRESTRequestMethod.rmPOST;
    RESTRequest.Resource := 'oauth/token';

    HTTPBasicAuthenticator1.Username := 'orbid-hml';
    HTTPBasicAuthenticator1.Password := EmptyStr;
 
    lJSONObject.AddPair('scope', 'product:show stock:save stock:update warehouse:list warehouse:save warehouse:show '+
                                 'warehouse:update partnerOrder:show partnerOrder:list partnerOrder:update');
    lJSONObject.AddPair('grant_type', 'client_credentials');
 
    RESTRequest.Params.Clear;
    RESTRequest.Params.AddHeader('authorization', 'Basic '+Edt_Base64.Text);
    RESTRequest.AddBody(lJSONObject);
 

    RESTRequest.Execute;
  finally
    FreeAndNil(lJSONObject);
  end;
end;
 

相关阅读 >>

Delphi idhttp控件：get/post 请求

Delphi 获取当前输入法

Delphi研究之驱动开发篇（七）--利用共享内存与用户模式

Delphi d10.x 安卓app开发中创建密钥库文件

Delphi rgb 画出三角形

Delphi runasadmin 运行程序并申请管理员权限

Delphi android 程序名称在哪里设置？

Delphi 获取系统注册的文件图标

Delphi 使用shgetfileinfo函数获取任何文件大图标

Delphi access 加密方法

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

转载请注明出处：木庄网络博客 » Delphi TRESTClient + TRESTRequest + TRESTResponse