delphi post请求

在 Delphi 中使用 Indy 组件库可以很方便地进行 HTTP 请求，包括 POST 请求。下面是一个简单的示例代码：

uses
  IdHTTP;

procedure SendPostRequest(const url: string; const postData: TStrings; const response: TStrings);
var
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.Post(url, postData, response);
  finally
    http.Free;
  end;
end;

其中，`url` 是要请求的 URL，`postData` 是要提交的 POST 数据，`response` 是服务器返回的响应数据。`postData` 可以使用 `TStringList` 类型来存储，也可以使用 `TIdMultiPartFormDataStream` 类型来支持文件上传等功能。

使用示例：

var
  postData: TStringList;
  response: TStringList;
begin
  postData := TStringList.Create;
  postData.Add('name=张三');
  postData.Add('age=18');

  response := TStringList.Create;
  try
    SendPostRequest('http://example.com/api', postData, response);
    ShowMessage(response.Text);
  finally
    postData.Free;
    response.Free;
  end;
end;