编码结果不起作用答案

【问题标题】：Encodeing results are not working编码结果不起作用
【发布时间】：2016-02-08 05:54:44
【问题描述】：

我有一个用 Delphi 4 编写的程序，并试图将其转换为 delphi xe10。我不明白的一部分是这个。

    Cmd[0] := 2;                   // Number of equipment to talk to
    Cmd[1] := 22;                  // My device address
    Cmd[2] := 0;
    MResults.Lines.Add('Reciving...');
    Refresh();

    Srlen := High(RecBuff);                               

     Ret := GpListen(@Cmd, @Srlen, @RecBuff);              // gets returned value
    if CheckRet('GpListen', (Ret and $FF), csBuf) = 0 then 
    begin
        RecBuff[Srlen] := Chr(0);                            // ??
        MResults.Lines.Add(RecBuff);               // returned 
        //csBuf := Format('????', [Srlen]); ////?some error??
    end;

问题是 RecBuff (RecBuff:array[0..9999] of Char;) 它以 #0 开头，如下所示：

但尽快

Ret := gpListen(@cmd, @srlen, @recbuff);

运行 recbuff 现在看起来像这样：

很多日本字符。我如何让它正确编码到记事本上。

【问题讨论】：

我已经为你插入了图片。下次有两个提示：1）我们不需要这些大屏幕截图，只需要相关的局部变量部分就可以了 2）永远不要在没有指定变量类型的情况下将代码放在你的问题中（我们现在必须假设什么动物 cmd 是）。

标签： delphi delphi-10-seattle

【解决方案1】：

尝试改变

RecBuff:array[0..9999] of Char;

到

RecBuff:array[0..9999] of AnsiChar;

看看它是否有效。这可能会提示代码中其他地方的一些更改。

在 Delphi 10 中，“Char”是一个 2 字节实体（16 位字符，UniCode），而在 Delphi 4 中，它是一个 1 字节实体（8 位字符，ANSI）。两种编译器的通用格式是“AnsiChar”，它是一个 8 位字符。

您可能还会遇到 STRING 变量的问题，这些变量现在填充为 16 位字符而不是 8 位字符。

另外 - 在进行任何进一步的转换之前，请阅读 The Absolute Minimum Every Software Developer Absolutely, Positively Must Know About Unicode and Character Sets (No Excuses!)。

【讨论】：

完美。并感谢链接此 unicode / ansi 转换正在杀死我。
另见 Embarcadero 的迁移文档：Unicode in RAD Studio

【解决方案2】：

在西雅图，字符串和字符默认为 Unicode。

与设备的交换通常通过 Ansi 字符（单字节）缓冲区进行。

所以使用 AnsiString、AnsiChar、PAnsiChar 等

RecBuff:array[0..9999] of AnsiChar;

我们已经讨论过这个问题here

【讨论】：