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 TRESTClient + TRESTRequest + TRESTResponse

相关推荐

评论