Кодирование результатов не работает

Question

У меня есть программа, написанная в 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: массив [диапазоне 0..9999] из Чар;) Она начинается полный # 0, так как:

, но как только

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

побежал recbuff теперь выглядит следующим образом:

много японский знак. как я могу заставить это правильно закодировать в записной книжке.

Answer 1

Try изменения

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!), прежде чем идти дальше в своем преобразовании.

Answer 2

В Сиэтле строки и символы Unicode по умолчанию.

Обмен с устройством обычно осуществляется через буферы Ansi (однобайтовые).

Так использовать AnsiString, AnsiChar, PAnsiChar и т.д.

RecBuff: массив [диапазоне 0..9999] из Анси Char;

Мы уже обсуждали эту проблему here