delphi post请求

在 Delphi 中发送 POST 请求可以使用 Indy 组件库中的 TIdHTTP 组件。具体步骤如下：

1. 在使用前需要在代码中先添加 Indy 组件库的引用：

uses
  IdHTTP;

2. 创建 TIdHTTP 组件的实例：

var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);

3. 设置请求的参数和请求头：

var
  Params: TStringList;
begin
  Params := TStringList.Create;
  try
    Params.Add('param1=value1');
    Params.Add('param2=value2');
    IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    IdHTTP.Request.CharSet := 'UTF-8';
  finally
    Params.Free;
  end;
end;

4. 发送 POST 请求并获取响应：

var
  Response: TStringStream;
begin
  Response := TStringStream.Create;
  try
    IdHTTP.Post('http://www.example.com/api', Params, Response);
    ShowMessage(Response.DataString);
  finally
    Response.Free;
  end;
end;

5. 释放 TIdHTTP 组件的实例：

IdHTTP.Free;