TNetHTTPClient post+json格式参数

在 Delphi 中使用 TNetHTTPClient 组件发送 POST 请求并附带 JSON 格式参数，可以按照以下步骤进行操作：

1. 首先，确保你已经引入了 System.Net.HttpClient 单元。

2. 创建一个 TNetHTTPClient 组件实例，并设置需要的属性，例如请求的 URL、请求方法为 POST、Content-Type 为 "application/json" 等。

var
  HttpClient: TNetHTTPClient;
begin
  HttpClient := TNetHTTPClient.Create(nil);
  try
    HttpClient.ContentType := 'application/json';
    HttpClient.Accept := 'application/json';
    
    // 设置其他的属性，例如请求超时时间、代理等
    
    // 创建要发送的 JSON 参数
    var Params: TStringStream := TStringStream.Create('{"key1": "value1", "key2": "value2"}', TEncoding.UTF8);
    
    try
      // 发送请求并获取响应
      var ResponseContent: string := HttpClient.Post('http://example.com/api', Params).ContentAsString;
      
      // 处理响应，例如解析 JSON 数据
      var ResponseJson: TJSONObject := TJSONObject.ParseJSONValue(ResponseContent) as TJSONObject;
      
      // 处理响应数据，例如读取返回的字段
      var ResultValue: string := ResponseJson.GetValue('result').Value;
      
      // 进行其他操作
      
    finally
      Params.Free;
    end;
    
  finally
    HttpClient.Free;
  end;
end;

在上述示例中，我们使用 TNetHTTPClient 组件创建了一个 HTTP 客户端实例，并设置了 Content-Type 和 Accept 属性为 "application/json"，以指定请求和响应的数据类型。

然后，我们创建了一个 TStringStream 对象 Params，用于存储要发送的 JSON 参数。在示例中，我们直接将 JSON 字符串作为参数传递，你可以根据实际需求创建和设置 JSON 参数。

接下来，我们使用 HttpClient.Post 方法发送 POST 请求，并将 Params 作为参数传递。该方法返回一个 IHTTPResponse 对象，我们可以通过 ContentAsString 属性获取响应的内容。

最后，我们可以对响应进行处理，例如解析 JSON 数据、读取返回的字段等。

请根据你的具体需求调整示例代码中的 URL、JSON 参数和响应处理逻辑。