小编sn_*_*a_v的帖子

我已经从 Delphi 6 迁移到 Delphi 11（64 位版本），并且我正在使用 Indy 和 ZLib 组件。我已经从 Indy 9 迁移到 Indy 10，使用组件发布 API，在此之前我通过以下方式将字符串写入流：

var 
  XML: String; 
  stream: TStream;
begin
  ...
  stream.WriteBuffer(XML[1], Length(XML) * 2);

然后使用 ZLib 组件对其进行压缩。但当它到达服务器时，它会包含消息中每个字母的空格：

< h t m l > u s e r < / h t m l >

Run Code Online (Sandbox Code Playgroud)

关于如何解决这个问题有什么想法吗？