Delphi REST API 帖子示例

Question

有人可以使用 Delphi 2005 向 API 发布一个简单的 JSON POST 请求示例吗？我发现了很多使用 GET 的示例，但 API 提供程序不允许通过 HTTP GET 请求，也不支持 URL 编码参数。

我是调用 REST 服务的新手(过去使用过 SOAP)，因此如果您需要更多信息，请告诉我。

Answer 1

您只需使用 Indy 的 TIdHTTP 组件并调用 Post 方法。将 URL 作为第一个参数传递，将 JSON 字符串作为第二个参数传递。像这样的事情:

procedure TForm1.Button1Click(Sender: TObject);
var
  jsonToSend: TStringList;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.HandleRedirects := True;
    http.ReadTimeout := 5000;
    jsonToSend := TStringList.create;
    try
      jsonToSend.Add('{ Your JSON-encoded request goes here }');
      http.Post('http://your.restapi.url', jsonToSend);
    finally
      jsonToSend.Destroy;
    end;
  finally
    http.Destroy;
  end;
end;

我假设您已经能够对 JSON 进行编码和解码，并且您只是询问如何使用 Delphi 执行 HTTP post。