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

 

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值