delphi11 post json和query

在Delphi 11中同时发送JSON数据和查询参数的POST请求，可以按照以下示例代码进行操作：

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

var
  HTTPClient: TNetHTTPClient;
  URL: string;
  RequestContent: TJSONObject;
  QueryParams: TStringList;
  ResponseContent: string;
begin
  HTTPClient := TNetHTTPClient.Create(nil);
  RequestContent := TJSONObject.Create;
  QueryParams := TStringList.Create;
  try
    // 构建请求JSON数据
    RequestContent.AddPair('key1', 'value1');
    RequestContent.AddPair('key2', 'value2');
    
    // 添加查询参数
    QueryParams.AddPair('param1', 'value1');
    QueryParams.AddPair('param2', 'value2');
    
    // 构建URL并将查询参数编码为URL编码格式
    URL := 'http://www.example.com';
    URL := TNetEncoding.URL.EncodeQuery(URL, QueryParams);
    
    // 设置请求头为application/json
    HTTPClient.ContentType := 'application/json';
    
    // 发送POST请求
    ResponseContent := HTTPClient.Post(URL, RequestContent.ToString).ContentAsString;
    
    // 处理响应内容
    ShowMessage(ResponseContent);
  finally
    RequestContent.Free;
    QueryParams.Free;
    HTTPClient.Free;
  end;
end;

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

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