delphi11 post Json

在Delphi 11中使用TNetHTTPClient组件发送POST请求并传递JSON数据，可以按照以下示例代码进行操作：

uses
  System.Net.HttpClient, System.Net.URLClient, System.JSON;

var
  HTTPClient: TNetHTTPClient;
  URL: string;
  RequestContent: TJSONObject;
  ResponseContent: string;
begin
  HTTPClient := TNetHTTPClient.Create(nil);
  RequestContent := TJSONObject.Create;
  try
    // 构建请求JSON数据
    RequestContent.AddPair('key1', 'value1');
    RequestContent.AddPair('key2', 'value2');
    
    // 构建URL
    URL := 'http://www.example.com';
    
    // 设置请求头为application/json
    HTTPClient.ContentType := 'application/json';
    
    // 发送POST请求
    ResponseContent := HTTPClient.Post(URL, RequestContent.ToString).ContentAsString;
    
    // 处理响应内容
    ShowMessage(ResponseContent);
  finally
    RequestContent.Free;
    HTTPClient.Free;
  end;
end;

在上述示例中，我们首先创建了TNetHTTPClient对象HTTPClient和TJSONObject对象RequestContent。然后，我们使用`AddPair`方法将键值对添加到RequestContent中，以构建请求的JSON数据。接下来，我们构建URL，并将请求的Content-Type设置为`application/json`。最后，我们使用TNetHTTPClient的`Post`方法发送POST请求，并获取响应内容。

希望这个示例对您有所帮助！如果您有任何其他问题，请随时提问。