delphi中idhttp怎么在post时返回一个内存流

在 Delphi 中使用 IdHTTP 发送 POST 请求并返回一个内存流的代码示例如下：

uses
  IdHTTP, IdGlobal;

function PostAndGetStream(const AURL: string; const APostData: TStream): TMemoryStream;
var
  HTTP: TIdHTTP;
begin
  Result := TMemoryStream.Create;
  try
    HTTP := TIdHTTP.Create(nil);
    try
      HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
      HTTP.Post(AURL, APostData, Result);
    finally
      HTTP.Free;
    end;
  except
    Result.Free;
    raise;
  end;
end;

这个函数将会发送一个 POST 请求到指定的 URL，并将响应数据存储在一个内存流中返回。你可以将需要发送的 POST 数据写入到 `APostData` 参数中的 TStream 对象中。在这个例子中，我们将 `TMemoryStream` 作为返回值，以便在调用函数后访问服务端的响应数据。

相关问题

delphi idhttp post 返回中文乱码

Delphi中的IDHTTP组件用于处理HTTP请求，包括POST方法。如果POST返回的内容包含中文字符，并遇到乱码问题，可能是由于编码设置不匹配造成的。以下是一些解决步骤：

1. 确保服务器端发送的数据编码是UTF-8，这是最常见的Web应用数据交换编码。
2. 在Delphi中，检查你的HTTP请求是否设置了正确的字符集。例如，在`TIdHTTP.Post`方法中，你可以指定Content-Type头，如`'application/x-www-form-urlencoded; charset=UTF-8'`。

var
  IdHttp: TIdHTTP;
...
IdHttp.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8';
IdHttp.Post('URL', '参数1=值1&参数2=%E4%B8%AD%E6%96%87'); // 传递中文字符串，需编码为UTF-8

3. 接收响应时，确认你是如何解析和显示返回的中文内容。如果使用TStringList存储结果，记得先转换编码再读取。

var
  ResponseText: TStringList;
...
ResponseText.Delimiter := ''; // 清除默认分隔符，然后解码
ResponseText.TextEncoding :=TEncoding.UTF8; // 设置成UTF-8

如果以上步骤都做了还是有乱码，检查你的应用程序全局字符集设置以及网络环境中的编码规则。

delphi2010 idhttp post提交json

Delphi 2010 是一个集成开发环境（IDE），供开发者使用 Object Pascal 编程语言。要使用 Delphi 2010 的 IdHTTP 组件进行 JSON 提交，首先需要将 IdHTTP 组件放置在窗体的设计区域或者手动创建一个 IdHTTP 对象。

在代码中，需要导入 IdHTTP 单元，然后创建一个 IdHTTP 对象。然后，使用 Post 方法将 JSON 数据提交到服务器。在 Post 方法中，我们需要设置请求的 URL，并将 JSON 数据转换为字节数组。

具体代码如下：

1. 首先，确保你已经导入 IdHTTP 单元：

uses
  IdHTTP;

2. 在窗体或类的声明部分，添加一个私有变量来持有 IdHTTP 对象：

private
  Http: TIdHTTP;

3. 在创建窗体或类的构造函数中，创建 IdHTTP 对象并设置一些属性：

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Http := TIdHTTP.Create(Self);
  Http.HandleRedirects := True;
end;

4. 在需要提交 JSON 数据的地方，使用以下代码：

procedure TForm1.PostJSONData(const URL: string; const JSONData: string);
var
  Request: TStringStream;
  Response: string;
begin
  Request := TStringStream.Create(JSONData, TEncoding.UTF8);
  try
    Response := Http.Post(URL, Request);
    ShowMessage(Response); // 可以根据需要处理服务器的响应结果
  finally
    Request.Free;
  end;
end;

在这个例子中，URL 是目标服务器的地址，JSONData 是要提交的 JSON 数据。完成后，你可以根据需要处理服务器的响应结果。

这是使用 Delphi 2010 的 IdHTTP 组件提交 JSON 数据的简单示例。希望对你有所帮助！