参考：https://blog.csdn.net/hydonlee/article/details/2626472
delphi版本：10.1
BarTender版本：2016R5
本例子源码及组件下载链接：https://u19103060.ctfile.com/fs/19103060-364281867
csdn下载链接，但是需要5C币。。。。。。。https://download.csdn.net/download/konnysnow/11106010
如果需要的也可以留言。。
一.安装BarTender：
参考：https://blog.csdn.net/HW1233456/article/details/25303303
二.Delphi里导入BarTender的组件：
2.1【Component】--【Import Component】
2.2【Import a Type Library】
2.3搜索到BarTender11.0
2.4 组件的类名规范：都加个Bt，防止和其他组件冲突
组件在tool palette面板里的文件夹名字：BarTenderPanel
组件的源文件存放位置：会生成2个文件：BarTender_TLB.dcr，BarTender_TLB.pas 文件
2.5.Install to New Package
2.6 ，创建一个package项目
2.7，选择yes
2.8成功了，点ok
2.9这时候，delphi安装目录的Bpl目录里，会多一个文件：
C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl\BarTenderPackage.bpl
三、新建一个delphi项目，使用新创建的：BarTender组件：
3.1 能在 Tool Palette窗口，看到新增的，BarTenderPanel文件夹
3.2里面是刚刚我们定义的一堆TBtxxxx类：
3.3，拖拽一个TBtApplication 组件进来，就可以操作打印标签了。
3.4这时候，代码里，TBtApplication，会报编译错误，需要把 【D:\Program Files (x86)\BarTender_unit\BarTender_TLB.pas】文件引入进来。
3.5 ，第一个坑点是：btw文件里的，数据参数必须全小写！否则会报错：
在具名数据源列表中找不到具名数据源 barCode1。
这里代码贴入如下：参数全部小写吧。
procedure TForm1.Button1Click(Sender: TObject);
begin
with btApp1.Formats.Open('d:/test2.btw', True, '') do //打开标签文件
begin
SetNamedSubStringValue('barcode1', '1234567890'); //设置值
SetNamedSubStringValue('text1', 'Hello BarTender!');
PrintOut(False, False); //打印
Close(btDoNotSaveChanges); //关闭不保存
end;
btApp1.Quit(btDoNotSaveChanges); //退出
end;
3.6，另外一个比坑的地方是，BarTender的类里有个变量名叫Application 和项目文件里的Application冲突了。
第742行：Application = IBtApplication;
修改为：Applicationx = IBtApplication; 即可。
