如何解决Delphi 10.3中使用ESC/POS指令打印EPSON热敏打印机二维码时的卡顿问题？

你的EPSON TM-T88V打印机在打印二维码时卡顿，核心问题出在QR码打印指令的参数错误，以及部分指令的字节处理不严谨。以下是具体问题和修复方案：

1. QR码打印指令的长度参数错误 #

在最后执行QR码打印的指令中，你错误地复用了存储数据时的长度参数store_pl和store_ph，但实际上打印QR码的指令参数长度是固定的3（对应49 81 00三个字节），而不是数据的长度。打印机接收到错误的长度参数后，会等待预期的字节数，最终导致卡顿。

错误代码：

DirectToPrinter( Chr(29)+chr(40)+Chr(107)+chr(store_pl)+chr(store_ph)+Chr(49)+Chr(81)+Chr(48),true );

正确的打印指令应该使用固定长度3（pL=3, pH=0）：

DirectToPrinter( Chr(29)+chr(40)+Chr(107)+Chr(3)+Chr(0)+Chr(49)+Chr(81)+Chr(0), false );

2. 数据长度计算的Unicode兼容性问题 #

Delphi 10.3中默认string是Unicode类型，Length(qrData)返回的是Unicode字符数，而QR码指令需要的是Ansi编码下的字节数。如果你的二维码数据包含非ASCII字符，会导致长度计算错误，进而让打印机接收错误的数据量。

修复方式：将qrData转换为AnsiString后再计算长度：

var
  qrAnsiData: AnsiString;
begin
  qrAnsiData := AnsiString(qrData);
  store_len:= 3 + Length(qrAnsiData); // 3是指令中`49(1)+80(P)+00`的字节数
  store_pl := store_len mod 256;
  store_ph := store_len div 256;

3. 指令字节的类型安全问题 #

使用Chr()生成控制字符时，在Unicode Delphi中Chr()返回的是WideChar，转换为AnsiString时可能出现编码偏差。建议直接使用十六进制值对应的AnsiChar，确保指令字节准确：

比如将Chr(29)替换为AnsiChar($1D)（GS控制字符的十六进制值），Chr(40)替换为AnsiChar($28)等，这样更直接且不易出错。

完整修复后的QR码打印模块 #

//*************************QR CODE ****************/
qrData := 'https://www.stackoverflow.com';
var
  qrAnsiData: AnsiString;
begin
  qrAnsiData := AnsiString(qrData);
  store_len:= 3 + Length(qrAnsiData);
  store_pl := store_len mod 256;
  store_ph := store_len div 256;

  // QR Code: Select the model (Model 1)
  DirectToPrinter( AnsiChar($1D)+AnsiChar($28)+AnsiChar($6B)+AnsiChar(3)+AnsiChar(0)+AnsiChar(49)+AnsiChar(65)+AnsiChar(49)+AnsiChar(0), false );
  // QR Code: Set module size (2)
  DirectToPrinter( AnsiChar($1D)+AnsiChar($28)+AnsiChar($6B)+AnsiChar(3)+AnsiChar(0)+AnsiChar(49)+AnsiChar(67)+AnsiChar(2), false );
  // QR Code: Error correction level (0 = L level)
  DirectToPrinter( AnsiChar($1D)+AnsiChar($28)+AnsiChar($6B)+AnsiChar(3)+AnsiChar(0)+AnsiChar(49)+AnsiChar(69)+AnsiChar(0), false );
  // QR Code: Store data
  DirectToPrinter( AnsiChar($1D)+AnsiChar($28)+AnsiChar($6B)+AnsiChar(store_pl)+AnsiChar(store_ph)+AnsiChar(49)+AnsiChar(80)+AnsiChar(0)+qrAnsiData, false );
  // QR Code: Print the symbol (固定长度参数3)
  DirectToPrinter( AnsiChar($1D)+AnsiChar($28)+AnsiChar($6B)+AnsiChar(3)+AnsiChar(0)+AnsiChar(49)+AnsiChar(81)+AnsiChar(0), false );
end;

额外建议 #

• 避免在DirectToPrinter中自动添加#13#10到QR指令末尾，控制指令不需要换行，可能干扰打印机解析逻辑。
• 可以将常用的ESC/POS指令封装为常量，比如：

  const
    ESC = AnsiChar($1B);
    GS = AnsiChar($1D);
    QR_PRINT = GS + '(k' + AnsiChar(3) + AnsiChar(0) + '1Q0';
  

  这样代码更易读且不易出错。

内容的提问来源于stack exchange，提问作者Vladimir