Переход с Delphi RAD2007 на XE7: исправление проблем с печатающими функциями и Unicode-строками

Delphi , ОС и Железо , Принтеры и Печать

При переходе на новую версию среды разработки, такой как Delphi XE7, пользователи могут столкнуться с различными проблемами, связанными с несовместимостью кода, написанного для предыдущих версий. Одной из таких проблем является некорректная работа функций печати, предназначенных для работы с принтерами Zebra, в частности, с использованием модуля CharPrinter.pas.

Проблема

Пользователь столкнулся с ситуацией, когда после перехода с Delphi RAD2007 на XE7, функции печати перестали работать с принтером Zebra, хотя ранее все функционировало корректно. При этом сообщений об ошибках не поступало, что затрудняло диагностику проблемы.

Анализ проблемы

Возможной причиной возникновения проблемы является изменение типов данных в новых версиях Delphi, в частности, переход на использование Unicode-строк в Delphi 2009. В более старых версиях Delphi использовались строки с однобайтовым представлением символов, в то время как Unicode-строки используют двухбайтовое представление каждого символа.

Подтвержденное решение

Для решения проблемы необходимо внести изменения в модуль CharPrinter.pas. В качестве примера предлагается следующий код:

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

Этот код проще и эффективнее, чем исходный, который предполагал копирование строки в массив символов. Простое присвоение строки переменной типа AnsiString и последующее запись в поток позволяет решить проблему с некорректной работой функций печати.

Альтернативное решение

В качестве альтернативного подхода можно использовать создание потока, использующего кодировку ANSI, для последующего копирования данных в поток устройства:

procedure TCharPrinter.SendData(aData: String);
var
  ss: TStringStream;
begin
  try
    ss := TStringStream.Create(aData, TEncoding.ANSI);
    fStream.CopyFrom(ss, 0);
  finally
    ss.Free;
  end;
end;

Заключение

При переходе на новые версии Delphi важно учитывать изменения, связанные с типом данных строк. В случае с модулем CharPrinter.pas и функциями печати для принтеров Zebra, использование Unicode-строк привело к необходимости модификации исходного кода. Приведенные выше примеры кода решают проблему на языке Object Pascal, который является основным для разработки в среде Delphi. Следует помнить, что при работе с различными версиями Delphi и при использовании сторонних библиотек, важно адаптировать код под изменения, связанные с типом данных, что позволит избежать несоответствий и ошибок в работе приложений.

Создано по материалам из источника по ссылке.

Переход на новую версию Delphi, XE7, вызвал проблемы с печатающими функциями и обработкой Unicode-строк в модуле CharPrinter.pas.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Принтеры и Печать ::