Delphi7使用TOposPosPrinter控件打印Code-128条形码失败如何解决

问题修复排查步骤 #

• 修正PrintBarCode的参数取值
  你当前传入的条码类型参数错误：按照OPOS标准规范，第3位参数为条码类型枚举，值为1时对应UPC-A条码，而非你需要的Code-128，Code-128对应的标准枚举值为11，先将该参数替换为11测试。
  同时你设置的条码高度500、宽度500超出绝大多数POS打印机的支持范围，普通80mm热敏打印机条码高度设置为100-200、宽度设置为2-4即可，超出阈值的参数会被打印机直接丢弃不执行打印。
• 补充缓冲区刷新指令
  部分型号的POS打印机打印条码后需要额外的换行指令才会将缓冲区内容输出，你当前打印条码后直接执行切纸，会导致滞留在缓冲区的条码内容被丢弃，可以在PrintBarCode调用后增加一行PrintNormal(2, #13#10)强制刷新输出。
• 增加设备操作的状态校验
  你当前的代码没有判断ClaimDevice的返回结果，若设备占用、Claim失败的情况下后续打印指令都会失效，建议增加返回值判断逻辑，仅在Claim成功后执行打印操作。
• 校验OPOS驱动兼容性
  确认你使用的是对应打印机品牌官方提供的OPOS驱动，部分第三方通用OPOS驱动对条码打印的支持不完整，替换为官方驱动即可解决兼容性问题。
• 备用兼容方案
  如果以上排查都无效，可以提前将内容生成Code-128位图，调用打印图片的接口输出，不需要依赖驱动的条码打印能力，兼容性更强。

调整后可直接测试的代码示例 #

OPOSPOSPrinter1 := TOPOSPOSPrinter.Create(nil);
If IniOposLogoYn = true then printLogo;
OPOSPosPrinter1.Open(IniOposPrinterName);
OPOSPosPrinter1.AsyncMode := false;
// 校验设备Claim是否成功
if OPOSPOSPrinter1.ClaimDevice(1000) = 0 then
begin
  OPOSPOSPrinter1.DeviceEnabled := True;
  OPOSPosPrinter1.PrintNormal(2, getWideString(BonTekst));
  // 修正条码类型为Code128，调整尺寸参数到合理范围
  OPOSPosPrinter1.PrintBarCode(2, '12345678901234', 11, 150, 2, 1, 1);
  // 加换行刷新缓冲区
  OPOSPosPrinter1.PrintNormal(2, #13#10);
  OPOSPosPrinter1.CutPaper(100);
  Sleep(50); 
  OPOSPosPrinter1.DeviceEnabled := False;
  OPOSPosPrinter1.ReleaseDevice;
end;
OPOSPosPrinter1.Close;
OPOSPOSPrinter1.Free;

内容的提问来源于stack exchange，提问作者Stefan van Roosmalen