CharPrinter в принтере ZEBRA XE7

Question

Я использовал блок CharPrinter.pas для отправки команд в ZPLII для принтера ZEBRA в Delphi RAD2007, и все сработало хорошо, но я перехожу на XE7 и пытаюсь использовать те же функции и отправлять на принтер и не работает и не дает сообщений об ошибках. Нужно ли выполнять новые типы данных XE?

Answer 1

Это произошло, потому что Delphi переключился на строки Unicode в Delphi 2009. Строки Unicode используют 2 байта для каждого символа. Использованы старые версии Delphi 1 байт для каждого символа.

Поэтому вы должны внести некоторые изменения в ChatPrinter.pas.

Попробуйте изменить этот (не проверено):

procedure TCharPrinter.SendData (aData : String); 
var 
Data : array[0..255] of char; 
cnt : integer; 
ss : TStringStream; 
begin 

try 
    ss := TStringStream.Create(aData,TEncoding.ANSI); 

    fStream.CopyFrom (ss,0); 
finally 
    ss.Free; 
end; 
    // for cnt := 0 to length(aData) - 1 
    // do Data[cnt] := aData[cnt+1]; 

end; 

Или проще:

procedure TCharPrinter.SendData (aData : String); 
var 
Data : AnsiString; 
begin 
Data := AnsiString(aData); 
fStream.Write(PAnsiChar(Data)^, Length(Data)); 
end;