Delphi REST API 帖子示例

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

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

你只需要使用 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。