0

我正在使用突触库，我想通过 http post 将字符串发送到 PHP Api。

这是我想通过 http post 发送到 API 的最终 json 字符串。

{"os":"Windows7", "architecture":"64", "date":"20.06.2013", "version": "3.22", "name":"TestVM-PC"}

var sSendString: String;
sSendString := '{"os":"Windows7", "architecture":"64", "date":"20.06.2013", "version": "3.22", "name":"TestVM-PC"}';

我找到了这个发布参数的示例过程，但我不知道现在如何正确地将一个 JSON 字符串 (sSendString) 发送到 API。

procedure HTTPPost;
var URL: string;
    Params: string;
    Response: TMemoryStream;

begin
  Response := TMemoryStream.Create;

  try
    URL := 'http://testserver.com/api/add_customer';

    Params := 'parameter1=' + EncodeURLElement('data1') + '&' +
              'parameter2=' + EncodeURLElement('data2');

    if HttpPostURL(URL, Params, Response) then
      Response.SaveToFile('c:\response.txt');

  finally
    Response.Free;
  end;
end;

所以有人可以帮我解决我的问题并显示我必须更改哪些行才能将我的 json 字符串发送到 API。提前致谢

4

1 回答 1

1

我也在我的项目中使用突触。为了使用 Synapse 让我的工作变得简单和快速，我编写了 THTTPSendEx 类，它提供了快速的使用速度和最少的代码和更多的功能。目前它是一个测试版。

这是像印地的观点。

创建 THTTPSendEx 类。从它的原型创建方法 OnBeginWork、OnWork、OnWorkEnd（参见 pas 文件），并将其分配给创建的类。这就是您指示 HTTP 请求进度所需的全部内容，只需调用类的 GET、POST 函数。类也有非常简单的“INDY like's”、GET 方法、POST 请求以及许多不同的输入和输出数据类型。尝试一下。

你可以在我的网站上看到它。

如果您对此有任何想法，请将其写为项目页面的评论。

抱歉英文有误。

于 2013-07-31T20:16:03.130 回答