delphi post query

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

uses
  IdHTTP, IdURI;

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

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

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