Решение проблемы печати штрихкода CODE128 на термальном принтере POS в Delphi

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

Печать штрихкодов является важной задачей в многих приложениях, особенно в системах розничной торговли и логистики. В данной статье мы рассмотрим проблему, с которой сталкиваются разработчики, использующие Delphi для печати штрихкода CODE128 на термальном принтере POS, и предложим решение.

Описание проблемы

Разработчик столкнулся с проблемой, когда пытался напечатать штрихкод CODE128 напрямую на POS-принтер с использованием следующего кода:

DirectToPrinter(chr(29)+chr(107)+chr(72)+Chr(123)+Chr(65)+'8600123456789', true);

Согласно документации Epson, в коде присутствуют необходимые символы для печати штрихкода, включая открывающую скобку { (код 123) и символ для выбора кода A (код 65). Однако, вместо ожидаемого штрихкода, на принтере отображались только цифры без линий. Используемый принтер — EPSON TM88V POS Thermal Printer.

Анализ кода

В представленном коде есть несколько моментов, которые могут повлиять на корректность печати штрихкода:

1. Функция DirectToPrinter предназначена для прямой печати данных на принтер.
2. В качестве параметров для печати штрихкода CODE128 используются специальные символы управления принтером.
3. В коде присутствует ошибка: вместо символа для выбора CODE128 (код 73) используется символ для CODE93 (код 72).

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

Проблема была решена благодаря введению количества символов (код 13) и замене символа для CODE93 (chr(72)) на символ для CODE128 (chr(73)). Обновленный код для печати выглядит следующим образом:

DirectToPrinter(chr(29)+chr(107)+chr(73)+chr(13)+chr(123)+Chr(65)+'8600123456789', true);

Примеры кода на Object Pascal (Delphi)

Для полноты картины приведем пример функции DirectToPrinter, которая должна быть исправлена согласно вышеуказанным корректировкам:

function TForm1.DirectToPrinter(S: AnsiString; NextLine: Boolean): Boolean;
var
  Buff: TPrnBuffRec;
  TestInt: Integer;
  i: Integer;
begin
  TestInt := PassThrough;
  if Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TestInt), @TestInt, nil) > 0 then
  begin
    if NextLine then
      S := S + #13 + #10;
    StrPCopy(Buff.Buff_1, S);
    Buff.BuffLength := StrLen(Buff.Buff_1);
    Escape(Printer.Canvas.Handle, Passthrough, 0, @Buff, nil);
    Result := True;
  end
  else
    Result := False;
end;

procedure TForm1.PrintCode128Barcode;
begin
  DirectToPrinter(chr(29)+chr(107)+chr(73)+chr(13)+chr(123)+Chr(65)+'8600123456789', True);
  // Дополнительные настройки печати, если необходимо
end;

Заключение

В данной статье мы рассмотрели типичную проблему, с которой сталкиваются разработчики при работе с штрихкодами в среде Delphi. Мы выяснили, что важно тщательно следить за соответствием кодов символов их предназначению и корректно использовать функции управления принтером. Приведенный пример кода на Object Pascal демонстрирует исправленное решение, которое позволит успешно напечатать штрихкод CODE128 на термальном принтере POS.

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

Разработчик сталкивается с трудностью печати штрихкода CODE128 на термальном принтере POS в среде Delphi из-за ошибки в коде для выбора типа штрихкода.

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

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

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