在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
1. 要实现的条形码功能
最近一个项目需要在扫描条码后按固定的格式打印。条形码打印控件客户习惯使用的是BarTender,使用Delphi调用BarTender来完成打印条码标签功能。此功能的重点在于:
a) 使用BarTender格式打印
b) 格式中有需要变动的部分
2. 条形码标签设计
a) 新建一个空白标签
b) 在画面上加入一个条形码控件,一个文本控件
c) 选中条形码控件,双击(或右键,属性),打开属性窗口;点击“高级”,选择“共享/名称”页,在共享名称中输入条形码控件的名字“BarCode1”;点击确定完成修改。这个步骤来定义在Delphi中(或其它语言VB等)访问的对象名。
d) 同样的步骤,给文本控件设置名称为“Text1”
e) 保存为“c:/test.btw”
3. 导入ActiveX组件
a) 打开Delphi(版本5.0及以上,其它没有测试)
b) 选择菜单“项目”à“导入类型库”(ProjectàImport Type Library)
c) 在弹出的窗口中,列出可导入的类型库;找到“BarTender 7.75”,选中
d) 将要导入的类名称会列在class names中,由于这里的类名称会与系统已存在类名称有重复,将这个全部复制出来,将类型名称前面都加上Bt。如:TFormat修改为TBtFormat.
e) 类名称修改完成后,点击”安装”(Install)
f) 系统会安装组件到ActiveX控件页上
4. 调用BarTender打印
a) 新建应用程序
b) 在窗体上拖一个TBtApplication控件(ActiveX页上),命名为btApp1
c) 在窗体上放一个TButton控件,命名为btn1,双击btn1产生事件
d) 填写事件代码如下:
If you have multiple formats opened in BarTender, you can use the Formats collection object to return a reference to any opened format. A format can be identified by specifying either the format name or index identifier. You can also bring focus to an opened label format using the Format.Activate method. The following example assigns the specified label format (Format1.btw) to be the active label format in BarTender.
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论