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