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】

delphi10.1调用BarTender2016R5文件打印标签_第1张图片

2.2【Import a Type Library】

delphi10.1调用BarTender2016R5文件打印标签_第2张图片

2.3搜索到BarTender11.0

delphi10.1调用BarTender2016R5文件打印标签_第3张图片

2.4  组件的类名规范:都加个Bt,防止和其他组件冲突

组件在tool palette面板里的文件夹名字:BarTenderPanel

组件的源文件存放位置:会生成2个文件:BarTender_TLB.dcr,BarTender_TLB.pas 文件

delphi10.1调用BarTender2016R5文件打印标签_第4张图片

2.5.Install to New Package

delphi10.1调用BarTender2016R5文件打印标签_第5张图片

2.6 ,创建一个package项目 

delphi10.1调用BarTender2016R5文件打印标签_第6张图片

2.7,选择yes

delphi10.1调用BarTender2016R5文件打印标签_第7张图片

2.8成功了,点ok

delphi10.1调用BarTender2016R5文件打印标签_第8张图片

2.9这时候,delphi安装目录的Bpl目录里,会多一个文件:

C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl\BarTenderPackage.bpl

delphi10.1调用BarTender2016R5文件打印标签_第9张图片

 

三、新建一个delphi项目,使用新创建的:BarTender组件:

3.1 能在 Tool Palette窗口,看到新增的,BarTenderPanel文件夹

delphi10.1调用BarTender2016R5文件打印标签_第10张图片

3.2里面是刚刚我们定义的一堆TBtxxxx类:

delphi10.1调用BarTender2016R5文件打印标签_第11张图片

3.3,拖拽一个TBtApplication 组件进来,就可以操作打印标签了。

delphi10.1调用BarTender2016R5文件打印标签_第12张图片

3.4这时候,代码里,TBtApplication,会报编译错误,需要把 【D:\Program Files (x86)\BarTender_unit\BarTender_TLB.pas】文件引入进来。

delphi10.1调用BarTender2016R5文件打印标签_第13张图片

3.5 ,第一个坑点是:btw文件里的,数据参数必须全小写!否则会报错:

在具名数据源列表中找不到具名数据源 barCode1。

delphi10.1调用BarTender2016R5文件打印标签_第14张图片

这里代码贴入如下:参数全部小写吧。

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

delphi10.1调用BarTender2016R5文件打印标签_第15张图片

 

你可能感兴趣的:(delphi)