在 Delphi XE 中读取 TStream 时出现问题
在Delphi的早期版本中，以下代码：
var InBuf: array[1..45] of Byte;
Count := InStream.Read(InBuf, SizeOf(InBuf));
用正确的值填充变量InBuf（每个字节都有一个值）。现在，在 Delphi XE 中，数组的每个第二个字节都是 0，我想是因为 Byte 数据类型是其两倍大，因为它在 Delphi XE 中具有 Unicode 性质。但是，我的流已经生成并且需要通过此过程，因此我需要另一种类型（也许？），即字节大小的一半或另一种解决方案（如果有人遇到此问题）。谢谢
In the previous versions of Delphi, the following code:
var InBuf: array[1..45] of Byte;
Count := InStream.Read(InBuf, SizeOf(InBuf));
filled the variable InBuf with the correct values ( every byte had a value ). Now in Delphi XE, every second byte of the array is 0, I suppose because the Byte data type is twice as big, because of its Unicode nature in Delphi XE. But, my streams are already generated and need to pass through this procedure, so I need another type (maybe?) that is half size of Byte or another solution if someone faced this problem. Thanks
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
这里发生的情况（>99% 的可能性）是您从字符串变量写入流。采用 UTF-16 编码的 Unicode 字符串每个字符有两个字节，而旧版本的 Delphi 使用 ANSI 编码，每个字符有一个字节。
当使用 UTF-16 编码时，英语文本具有您观察到的每隔一个字节为零的模式。
为了解决这个问题，您需要研究写入流的代码部分。
What has happened here, with >99% probability is that you have written the stream from a string variable. Unicode strings with UTF-16 encoding have two bytes per character whereas older versions of Delphi using ANSI encodings with one byte per character.
English text, when encoded with UTF-16 have the pattern you observe of every second byte being zero.
In order to solve this you will need to investigate the section of code that writes to the stream.