★ FEATURED ARTICLE 简介这份资源面向使用 Delphi 进行桌面应用开发、并需要集成标签打印功能的开发者重点解决在 Delphi 环境下调用 Bartender 实现标签设计与打印的问题。资源包内共 1 个 doc 文档压缩后约 392KB内容围绕 Bartender 的 ActiveX 控件调用展开涵盖控件安装、项目创建、控件引入、API 调用及功能测试等关键环节同时介绍了 Bartender 在标签设计、打印输出和数据库管理方面的主要能力。文档还结合条码打印、票据打印等实际场景说明如何借助 Delphi 的灵活性与 Bartender 的打印能力提升工作效率、降低开发与硬件成本。目前已有 389 人学习适合希望快速掌握 Delphi 与 Bartender 集成思路、需要一份可参照操作说明的开发者查阅。1. Delphi 调 Bartender从 ActiveX 控件到打印跑通一次讲清环境怎么搭接手一个老产线的标签打印模块时我第一反应是这活儿应该不复杂——Delphi 调 Bartender网上一搜一大把。真动手才发现坑全在版本和注册表里。BarTender 从 9.x 到 2016 再到 2019ActiveX 控件的注册方式、Pro 版和 Automation 版的授权差异、32 位 Delphi 与 64 位系统的兼容问题每一个都能让你在“控件已注册但创建对象失败”的报错里卡一下午。这套环境在条码打印、仓储标签、产线赋码场景里非常常见尤其是那些用 Delphi 维护了十几年的老系统换不掉也不想重写。如果你正卡在“BarTender 装了但 Delphi 里调不通”这一步下面这套流程是我踩过坑之后固定下来的顺序照着走能少走弯路。2. 装之前先把版本和授权理清楚BarTender 与 Delphi 的匹配关系2.1 BarTender 版本选择Automation 版才是能调用的那个很多人装完 BarTender 发现 Delphi 的 Import Component 里找不到类型库根本原因就是装错了版本。BarTender 分 Professional、Automation、Enterprise 几个层级只有 Automation 及以上才开放 ActiveX 自动化接口。Professional 版能设计能打印但外部程序调不了它的 API。我一般会先确认两件事一是安装的是 BarTender Automation 版二是安装时勾选了“ActiveX 自动化支持”组件。2016 和 2019 版本在安装向导里这个选项藏得比较深在自定义安装的“附加组件”里默认是不勾的。9.4 和 10.x 老版本相对直接装完就有。版本对照上Delphi 7 到 Delphi 2007 这类老 IDE 配 BarTender 9.4 或 10.1 最稳因为类型库的接口定义没怎么变。Delphi 2010 以后的版本配 BarTender 2016 或 2019 更合适Unicode 支持完整不会出现中文标签内容乱码。如果你用的是 Delphi XE 系列BarTender 2016 是分水岭之前的版本在字符串传递上要用 WideString 手动转之后的版本直接传 string 就行。提示BarTender 安装路径里不要带中文和空格默认的C:\Program Files\Seagull\BarTender Suite就很好。我见过装在D:\标签打印\BarTender下面结果 ActiveX 注册表项路径解析出错的案例。2.2 Delphi 环境准备32 位编译目标不能忘BarTender 的 ActiveX 控件是 32 位的哪怕你系统是 64 位 WindowsDelphi 的编译目标也必须设成 32-bit Windows。Delphi 10.4 以后默认可能是 64 位这里要手动切回来。检查步骤很简单在 Delphi IDE 里打开 Project Manager右键 Target Platforms确认只有 Win32 被激活。如果 64-bit Windows 也在列表里且被选中编译出来的 exe 创建 BarTender 对象时会直接报“类未注册”的错因为 64 位进程找不到 32 位的 COM 组件。另外Delphi 的“Import Component”功能依赖类型库文件。BarTender 安装后会注册BarTend.tlb位置一般在C:\Program Files (x86)\Seagull\BarTender Suite\下面。如果 Delphi 的 Import Component 对话框里看不到 BarTender 的类型库说明注册没成功需要手动用regtlib或regasm重新注册一下。:: 以管理员身份运行 CMD手动注册 BarTender 类型库 cd C:\Program Files (x86)\Seagull\BarTender Suite regtlib.exe BarTend.tlbregtlib.exe是 Delphi 自带的类型库注册工具在 Delphi 安装目录的 Bin 文件夹里也能找到。执行完没有报错就说明注册成功重新打开 Delphi 的 Import Component 就能看到BarTender 2016 ActiveX Automation Library之类的条目。3. 在 Delphi 里导入 ActiveX 控件并生成调用单元3.1 用 Import Component 生成 BarTender 接口单元Delphi 调用 COM 组件的标准做法是通过 IDE 的 Import Component 向导把类型库转成 Pascal 接口文件。步骤是菜单栏 Component → Import Component → 选 Import a Type Library → 在列表里找到 BarTender 对应的类型库 → 勾选需要的接口 → 指定生成单元的名称比如BarTender_TLB。生成出来的单元里会包含IBarTender接口定义、TBarTender组件类以及CoBarTender这个 CoClass 的 GUID。这个单元不要手动改BarTender 升级后重新生成一遍覆盖就行。我一般会把生成的单元单独放在一个Lib文件夹里项目引用路径加上去这样多个项目共用一份接口定义升级的时候只改一个地方。3.2 创建 BarTender 对象的两种写法生成接口单元之后创建 BarTender 对象有两种方式。一种是直接用CoBarTender.Create另一种是通过CreateOleObject动态创建。前者编译期检查强后者灵活但容易写错方法名。uses BarTender_TLB, ComObj, ActiveX; procedure TForm1.PrintLabel; var btApp: IBarTender; btFormat: IBTFormat; begin // 初始化 COM 库Delphi 主线程里通常已经初始化过 CoInitialize(nil); try // 方式一通过 CoClass 创建推荐 btApp : CoBarTender.Create; // 打开已经设计好的标签格式文件 btFormat : btApp.Formats.Open(D:\Labels\product_label.btw, False, True); // 设置数据库字段这里对应标签里绑定的数据库列 btFormat.SetNamedSubStringValue(ProductName, 测试产品A); btFormat.SetNamedSubStringValue(BatchNo, 20250101-001); // 打印一份到默认打印机 btFormat.PrintOut(False, False); // 关闭格式文件不保存修改 btFormat.Close(btSaveChangesNo); finally btApp : nil; CoUninitialize; end; end;这段代码里几个关键点Formats.Open的第二个参数是“是否以只读方式打开”第三个参数是“是否显示打印对话框”一般设 False 和 True 组合让用户能看到打印预览。SetNamedSubStringValue是给标签里的“命名子串”赋值这些子串需要在 BarTender 设计器里提前用“数据源 → 命名数据源”定义好。PrintOut的第一个参数控制是否弹出打印机选择框第二个参数控制是否打印到文件。注意CoInitialize和CoUninitialize必须成对出现。在 Delphi 的 VCL 主线程里Application.Initialize 已经调过 CoInitialize重复调用不会报错但引用计数会乱。稳妥做法是在单元初始化段调用一次在 finalization 段释放。3.3 数据库字段绑定的参数传递BarTender 标签里绑定的数据库字段在 Delphi 这边是通过SetNamedSubStringValue或者SetNamedSubStringValue来传值的。如果标签里用的是“数据库字段”而不是“命名子串”那就要用btFormat.Database.SetFieldValue方法。// 假设标签里绑定了一个名为 OrderNo 的数据库字段 btFormat.Database.SetFieldValue(OrderNo, SO-2025-0001); // 批量打印时可以循环赋值后调用 PrintOut for i : 1 to 10 do begin btFormat.SetNamedSubStringValue(SerialNo, Format(SN%04d, [i])); btFormat.PrintOut(False, False); end;这里有个性能上的取舍每次PrintOut都会走一遍打印队列如果标签数量大建议用 BarTender 的“打印任务”模式把所有数据一次性传给 BarTender由它内部排队。不过 Delphi 这边调PrintOut简单直接几百张以内感觉不到差异。4. 避坑与排查Delphi 调 BarTender 最常见的五个翻车点4.1 创建对象报“类未注册”或“OLE 错误 80040154”现象是CoBarTender.Create直接抛异常错误码 80040154。原因通常是 BarTender 的 ActiveX 组件没有正确注册或者 Delphi 编译目标是 64 位。解决方法是先用管理员权限运行 BarTender 安装目录下的BarTend.exe /regserver强制重新注册所有 COM 组件。然后确认 Delphi 的 Target 是 Win32。如果还不行检查注册表HKEY_CLASSES_ROOT\BarTender.Application是否存在不存在就说明注册失败需要修复安装 BarTender。4.2 打印出来中文变成问号或乱码这个坑在 Delphi 2007 及更早版本配 BarTender 9.x 时特别常见。原因是 Delphi 的string是 AnsiString传给 COM 的 BSTR 时编码转换丢了。解决办法是在传递中文之前用WideString包一层或者升级到 Delphi 2010 以上版本原生 Unicode 就没这个问题。另一个可能是 BarTender 标签里用的字体不支持中文换成宋体或微软雅黑。4.3 标签格式文件打开失败报“文件被占用”Formats.Open返回 nil 或者抛异常提示文件被其他进程锁定。BarTender 的 .btw 文件在打开时会生成一个临时锁文件如果上一次打印异常退出没释放下次就打不开。我一般会在打开之前先检查文件是否存在然后用btApp.Formats.Open的第三个参数设成 True让 BarTender 以独占方式打开避免多个 Delphi 进程同时抢一个格式文件。如果还是不行重启 BarTender 的后台服务BarTender Print Scheduler能解决大部分锁文件问题。4.4 打印速度慢每张标签间隔好几秒默认情况下 BarTender 每次PrintOut都会重新初始化打印引擎标签数量多的时候累积延迟很明显。优化方法是把btApp.Formats.Open放在循环外面循环里只做SetNamedSubStringValue和PrintOut打完再Close。另外在 BarTender 的打印设置里把“打印前重新计算”关掉能省掉每次的数据校验时间。4.5 换机器部署后找不到 ActiveX 控件开发机上跑得好好的部署到产线机器就报错。原因是目标机器只装了 BarTender 的打印驱动没装 Automation 版。部署清单里必须包含BarTender Automation 完整安装、类型库注册、以及 Delphi 程序目录下的BarTend.tlb文件如果用了动态创建。我习惯在安装脚本里加一句regtlib.exe BarTend.tlb确保 COM 注册表项在部署后是完整的。5. 装完怎么验证从设计器到 Delphi 的完整链路测试5.1 先用 BarTender 设计器做一张最小标签在 Delphi 里写代码之前先在 BarTender 设计器里建一个最简单的标签一个文本对象内容绑定到命名子串TestField打印机选一个虚拟 PDF 打印机或者实际标签机。保存为test_label.btw。然后手动打印一次确认设计器本身能正常输出。这一步是排除 BarTender 安装和打印机驱动的问题把变量控制在 Delphi 之外。5.2 用 Delphi 写一个最小调用程序验证新建一个 Delphi VCL 项目放一个按钮把前面生成的BarTender_TLB单元加进 uses按钮事件里写创建对象、打开标签、赋值、打印、关闭的完整流程。编译成 32 位 exe运行。如果打印出正确的标签说明 ActiveX 调用链路通了。procedure TForm1.btnTestClick(Sender: TObject); var btApp: IBarTender; btFormat: IBTFormat; begin btApp : CoBarTender.Create; try btFormat : btApp.Formats.Open(D:\Labels\test_label.btw, False, True); btFormat.SetNamedSubStringValue(TestField, Delphi调用测试 DateTimeToStr(Now)); btFormat.PrintOut(False, False); btFormat.Close(btSaveChangesNo); ShowMessage(打印任务已发送); except on E: Exception do ShowMessage(调用失败 E.Message); end; btApp : nil; end;这段代码里try...except是必须的COM 调用失败会抛 EOleSysError不捕获的话程序直接崩。btApp : nil放在最后是释放 COM 引用让 BarTender 进程能正常退出。5.3 验证清单和参数速查跑通最小程序之后按下面这张表逐项确认基本能覆盖 90% 的部署问题。检查项正确状态常见错误BarTender 版本Automation 或 EnterpriseProfessional 版无 ActiveXDelphi 编译目标32-bit Windows64 位下类未注册类型库注册注册表有 BarTender.Application需 regtlib 手动注册标签文件路径纯英文无空格中文路径打开失败命名子串设计器里已定义未定义则赋值无效打印机驱动系统默认打印机可用驱动缺失导致挂起我自己的习惯是每次部署到新机器先跑一遍这个最小程序确认打印出纸了再把正式的业务代码放上去。从那以后我每次配 Delphi 调 BarTender 的环境都强制走一遍“设计器手动打印 → 最小 Delphi 程序 → 业务代码”这三步不再跳步。希望帮到你。本文还有配套的精品资源点击获取
阅读完成 · 觉得有帮助？
