从 MimeType application/pdf 的 TNetHttpClient 获取响应

Question

我在Delphi中调用API，其响应是PDF文件。我正在使用Mimetype Application-PDF获得IHTTPRESPONSE。如何从此响应中创建一个PDF文件？

代码：

response := Form1.NetHTTPClient1.Post(apiurl,parametres, nil, headerparams);
responsestring := response.ContentAsString(tencoding.UTF8);
Form1.memo.Lines.Add(responsestring);

当我尝试将响应转换为contentAsstring以下错误即将到来：

我什至尝试在邮政请求中传递tstream对象：

response := Form1.NetHTTPClient1.Post(apiurl,parametres, resStream, headerparams);
responsestring := response.ContentAsString(tencoding.UTF8);
Form1.memo.Lines.Add(responsestring);

但是Resstream的值是''后通话后。响应代码即将推出200，这意味着我得到了回应。

在我尝试此操作时，在Postman中，我会在响应中获得一个PDF文件。

Answer 1

您不能将二进制PDF文件视为UTF-8字符串，这就是为什么contentAsstring（）在编码错误中失败的原因。

per 文档：

如果您想接收响应数据，因为您的HTTP客户端从目标服务器下载它，而不是等待您的HTTP客户端下载整个数据，而是使用AresponSecontent参数来指定a << a href =“ https://docwiki.embarcadero.com/libraries/en/system.classes.tstream” rel =“ nofollow noreferrer”> stream 接收下载的数据。另外，您可以等待您的HTTP客户端下载整个响应数据，并从响应对象 [post]返回。

因此，这些方法中的任何一种都可以正常工作：

response := Form1.NetHTTPClient1.Post(apiurl, parametres, nil, headerparams);
fs := TFileStream.Create('path\output.pdf', fmCreate);
try
  fs.CopyFrom(response.ContentStream, 0);
finally
  fs.Free;
end;

fs := TFileStream.Create('path\output.pdf', fmCreate);
try
  Form1.NetHTTPClient1.Post(apiurl, parametres, fs, headerparams);
finally
  fs.Free;
end;

如果它们不适合您，则需要文件错误报告带有Embarcadero。