delphi TNetHTTPClient post query

在Delphi中使用TNetHTTPClient组件发送带有查询参数的POST请求，可以按照以下示例代码进行操作：

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

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

在上述示例中，我们首先创建了TNetHTTPClient对象HTTPClient和TStringList对象Params。然后，我们使用`AddPair`方法将查询参数添加到Params中。接下来，我们构建URL，并使用TNetEncoding.URL.EncodeQuery方法将查询参数编码为URL编码格式。然后，我们创建一个TStringStream对象RequestContent，将查询参数作为请求内容写入其中。最后，我们使用TNetHTTPClient的`Post`方法发送带有查询参数的POST请求，并获取响应内容。

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