zql277 2023-03-08 15:54 采纳率: 100%
浏览 67
已结题

delphi7 idhttp 小满CRM接口调用


curl -X POST http://api-sandbox.xiaoman.cn/v1/oauth2/access_token \
  -H 'authorization: Basic OGQ5NjllZWY2ZWNhZDNjMjlhM2E2MjkyODBlNjg2Y2YwYzNmNWQ1YTg2YWZmM2NhMTIwMjBjOTIzYWRjNmM5Mjo4ZDk2OWVlZjZlY2FkM2MyOWEzYTYyOTI4MGU2ODZjZjBjM2Y1ZDVhODZhZmYzY2ExMjAyMGM5MjNhZGM2Yzky' \
  -H 'accept: application/json' \
  -H 'content-type: application/x-www-form-urlencoded' \
  -d 'client_id=xx&client_secret=xx&grant_type=password&scope=product+company+invoices&username=xx@xx.com&password=8d969eef6ecad3c29a3a629280e686cf0c3f5d5a86aff3ca12020c923adc6c92'

以上是小满CRM接口文档(https://api-sandbox.xiaoman.cn/v1/docs/#api-Authentication_and_authorization%EF%BC%89%EF%BC%8C%E8%AF%B7%E9%97%AE%E5%9C%A8delphi7 中用idhttp 怎么写 ?

  • 写回答

3条回答 默认 最新

  • 「已注销」 2023-03-08 16:01
    关注

    参考GPT和自己的思路:您可以使用 Delphi7 自带的 TIdHTTP 组件来调用该 API。以下是一个示例代码:

    uses
      IdHTTP;
    
    procedure CallApi;
    var
      IdHTTP: TIdHTTP;
      RequestHeaders: TStringList;
      RequestParams: TStringList;
    begin
      IdHTTP := TIdHTTP.Create(nil);
      RequestHeaders := TStringList.Create;
      RequestParams := TStringList.Create;
    
      try
        // 设置请求头部信息
        RequestHeaders.Add('authorization: Basic OGQ5NjllZWY2ZWNhZDNjMjlhM2E2MjkyODBlNjg2Y2YwYzNmNWQ1YTg2YWZmM2NhMTIwMjBjOTIzYWRjNmM5Mjo4ZDk2OWVlZjZlY2FkM2MyOWEzYTYyOTI4MGU2ODZjZjBjM2Y1ZDVhODZhZmYzY2ExMjAyMGM5MjNhZGM2Yzky');
        RequestHeaders.Add('accept: application/json');
        RequestHeaders.Add('content-type: application/x-www-form-urlencoded');
    
        // 设置请求参数
        RequestParams.Add('client_id=xx');
        RequestParams.Add('client_secret=xx');
        RequestParams.Add('grant_type=password');
        RequestParams.Add('scope=product+company+invoices');
        RequestParams.Add('username=xx@xx.com');
        RequestParams.Add('password=8d969eef6ecad3c29a3a629280e686cf0c3f5d5a86aff3ca12020c923adc6c92');
    
        // 发送 POST 请求
        IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
        IdHTTP.Request.CustomHeaders := RequestHeaders;
        IdHTTP.Post('http://api-sandbox.xiaoman.cn/v1/oauth2/access_token', RequestParams);
    
        // 获取响应内容
        ShowMessage(IdHTTP.ResponseText);
      finally
        RequestHeaders.Free;
        RequestParams.Free;
        IdHTTP.Free;
      end;
    end;
    

    在上述代码中,我们使用 TIdHTTP 组件创建了一个 HTTP 客户端,并设置了请求头部信息和请求参数。然后,我们使用 TIdHTTP.Post 方法发送了一个 POST 请求,并获取了响应内容。最后,我们在消息框中显示了响应文本。

    您需要将请求头部信息和请求参数替换为自己的实际值,并根据需要修改代码以适应您的应用程序逻辑。希望这可以帮助您开始调用小满CRM的API。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
查看更多回答(2条)

报告相同问题?

问题事件

  • 系统已结题 3月17日
  • 已采纳回答 3月9日
  • 创建了问题 3月8日

悬赏问题

  • ¥20 Apache poi使用问题
  • ¥21 matlab怎么求时域信号的二阶导数
  • ¥15 判断两个表是否完全相同
  • ¥15 java map类型数据格式,如何快速通过前缀匹配元素
  • ¥15 stc12c5a60s2、QMC5883L、LCD1602组合测量磁场所需程序
  • ¥20 Win11测试yolov4,“找不到nvcuda.dll”怎么办?
  • ¥15 simulink绘制bode图
  • ¥15 php_network_getaddresses: getaddrinfo failed: Name or service not known
  • ¥15 用msg发消息出现的问题
  • ¥15 unity3d机械臂