BarTende安装与Delphi开发环境搭建: DCC-0002-0040-0002

admin

请参考：

BarTende安装与Delphi开发环境搭建

admin

delphi调用方法：

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. begin
   
3.    with btApp1.Formats.Open(extractfilepath(forms.application.exename)+'SN.btw', True, '') do //打开标签文件
   
4.    begin
   
5.       SetNamedSubStringValue('bc1', '777777'); //设置值
   
6.       SetNamedSubStringValue('tt1', 'Hello BarTender!');
   
7.       PrintOut(False, False); //打印
   
8.       Close(btDoNotSaveChanges); //关闭不保存
   
9.    end;
   
10.    btApp1.Quit(btDoNotSaveChanges); //退出
    
11. end;

复制代码