delphi10.1调用BarTender2016R5文件打印标签

参考：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; 即可。