delphi11 post+json参数

在 Delphi 11 中使用 POST 请求发送 JSON 格式参数，你可以使用 REST 客户端库的 TRESTClient 和 TRESTRequest 组件来实现。

以下是一个使用 Delphi 11 进行 POST 请求发送 JSON 参数的示例代码：

uses
  REST.Client, System.JSON;

procedure SendPostRequest;
var
  RESTClient: TRESTClient;
  RESTRequest: TRESTRequest;
  RequestBody: TJSONObject;
begin
  // 创建 RESTClient 和 RESTRequest 组件实例
  RESTClient := TRESTClient.Create('http://example.com/api');
  RESTRequest := TRESTRequest.Create(nil);
  
  try
    // 设置请求方法为 POST
    RESTRequest.Method := rmPOST;
    
    // 创建 JSON 对象并添加参数
    RequestBody := TJSONObject.Create;
    try
      RequestBody.AddPair('key1', 'value1');
      RequestBody.AddPair('key2', 'value2');
      
      // 将 JSON 对象转换为字符串，并设置为请求的主体内容
      RESTRequest.AddBody(RequestBody.ToString, TRESTContentType.ctAPPLICATION_JSON);
    finally
      RequestBody.Free;
    end;
    
    // 发送请求并获取响应
    RESTRequest.Client := RESTClient;
    RESTRequest.Execute;
    
    // 处理响应，例如获取响应的内容
    if RESTRequest.Response.StatusCode = 200 then
    begin
      ShowMessage(RESTRequest.Response.Content);
    end;
  finally
    RESTRequest.Free;
    RESTClient.Free;
  end;
end;

请根据实际情况替换示例中的 URL 和参数。通过上述代码，你可以在 Delphi 11 中使用 POST 请求发送 JSON 参数。