通过 Delphi 的 TIdHTTP 访问 Clickbank API？

Question

我正在尝试从我的 Delphi 项目中访问 ClickBank API，以检查客户是否有有效的订阅。

我找到了 API 文档here，但没有 Delphi 示例。所以我正在尝试创建自己的小示例，但是我无法使用 Indy 的 TIdHTTP 来解决。

谁能指出我正确的方向，也许可以建立一个最小的例子？

P.S：我尝试查看 C# 示例，但无法将其移植到 Delphi。

Answer 1

ClickBank 示例 C# 可在此处找到 https://sandbox.clickbank.com/api_12_examples/api_example.csharp

HttpWebRequest request = (HttpWebRequest)
    WebRequest.Create("https://api.clickbank.com/rest/1.2/orders/list");
request.Accept = "application/xml";
request.Headers.Add(HttpRequestHeader.Authorization,
        "<< DEVELOPER KEY >>:<< API KEY >>");
request.Method = "GET";

HttpWebResponse response = (HttpWebResponse) request.GetResponse();

PHP 版本是 https://sandbox.clickbank.com/api_12_examples/api_example.php

你会看到他们在这里没有做太多的设置......只是设置了两个标题并执行了一个 GET。

$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, "https://api.clickbank.com/rest/1.2/orders/list");
curl_setopt($ch, CURLOPT_HEADER, true); 
curl_setopt($ch, CURLOPT_GET, true);
curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
curl_setopt($ch, CURLOPT_HTTPHEADER, array(
        "Accept: application/xml",
        "Authorization: << DEVELOPER KEY >>:<< API KEY >>"));
$result = curl_exec($ch);
curl_close($ch);

在 Delphi 中 - 一个快速演示是在表单上放置一个 TIdHTTP1 客户端，以及一个按钮和一个备忘录。然后单击按钮（其中 xxx= 您的开发人员密钥和 yyy= 您的 api 密钥）执行相同操作 - 设置两个标题并执行 GET：

IdHTTP1.Request.Accept := 'application/xml';
IdHTTP1.Request.CustomHeaders.Add('Authorization: xxx:yyy');
Memo1.Text := IdHTTP1.Get('https://api.clickbank.com/rest/1.2/orders/list');