delphi7 idhttp 小满CRM接口调用

Question

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=[e-mail]&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 怎么写 ？

Answer 1

参考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=[e-mail]');
    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。