我在 Delphi 11中使用TIdHTTP组件发送数据时遇到了问题，我从Getting spaces after upgrading from Indy 9 on Delphi 6 to Indy 10 on Delphi 11中得到了解决方案。

// sUrl - DSOAP Url
// streamRequest - Request Stream and it will send as compressed data.
// streamResponse - TStream of the response of DSOAP and it will receive as compressed.
IdHttp.Post(sUrl, streamRequest, streamResponse)

字符串
现在，我收到数据后面临的问题。如何使用 Delphi 11从流中读取数据？
下面是将接收到的流转换为string的代码。调用这个方法后，我得到了一些垃圾值：

var 
  xml: PChar;
  sXML: string;
  iLength: string;
  streamResponse: TStream; // Before this method, the response is decompressed using ZLib decompression Logic
begin
  iLength := streamResponse.Seek(0, 2);
  xml = strAlloc(iLength+1);
  FillChar(xml^, iLength+1, #0);
  streamResponse.Seek(0, 0);
  streamResponse.Read(xml^, iLength);
  sXML := strPas( xml );   // Getting error after calling this.
  strDispose(xml);
end;

型
这个逻辑在 Delphi 6中工作正常，但是在使用Delphi 11时出现错误。