delphi编写post请求头 application/x-www-form-urlencoded的实际代码

以下是Delphi编写post请求头 application/x-www-form-urlencoded的实际代码：

var
Params: TStringList;
Response: TStringStream;
Http: TIdHttp;
begin
Params := TStringList.Create;
Response := TStringStream.Create('');
try
Params.Add('username=JohnDoe');
Params.Add('password=123456');
Http := TIdHttp.Create;
Http.Request.ContentType := 'application/x-www-form-urlencoded';
Http.Post('http://www.example.com/login.php', Params, Response);
ShowMessage('Response: ' + Response.DataString);
finally
Params.Free;
Response.Free;
Http.Free;
end;
end;

相关问题

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;

delphi idhttp post 请求返回中文是乱码该如何解决

在Delphi中使用IDHTTP做POST请求并接收中文返回结果时，如果出现乱码，可以按照以下步骤尝试解决：

1. **设置编码**: 确保HTTP头的Content-Type设置为`application/x-www-form-urlencoded` 或 `multipart/form-data`，并同时设置字符集为UTF-8。例如：

idHttp.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8';

2. **处理响应体**:
- 使用`TIdWebResponse.GetResponseStream`获取响应流后，需要手动设置其编码：

     var
       Stream: TStream;
     begin
       Stream := idHttpResponse.GetResponseStream;
       Stream.DataSet := TDataset.Create;
       try
         Stream.EncodingType :=_TEEncoding.UTF8;
         // ... 这里读取和处理Stream的内容
       finally
         Stream.Free;
       end;
     end;

3. **解码数据**: 如果接收到的是字节数据，需要用相应的库函数将其转换成Unicode字符串，比如`System.SysUtils.AnsiToWideChar`配合`TMemoryStream`。