Delphi調用BarTender7.75打印條碼標簽簡明開發教程 -开发者知识库

Delphi調用BarTender7.75打印條碼標簽簡明開發教程 -开发者知识库,第1张

Delphi調用BarTender7.75打印條碼標簽簡明開發教程

時間:2009-07-16 11:26:51來源:網絡 作者:未知 點擊:244次

摘要:本文就簡單使用Delphi調用BarTender7.75之ActiveX組件打印條碼的開發過程做介紹.

1.       前言

最近一個項目需要在掃描條碼后按固定的格式打印。條碼打印軟件客戶習慣使用的是BarTender,為了保持客戶的習慣以及降

 

摘要:本文就簡單使用Delphi調用BarTender7.75之ActiveX組件打印條碼的開發過程做介紹.

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)        填寫事件代碼如下:

procedure TForm1.btn1Click(Sender: TObject);

begin

 with btApp1.Formats.Open('c:\test.btw', True, '') do //打開標簽文件

 begin

    SetNamedSubStringValue('BarCode1', '1234567890'); //設置值

    SetNamedSubStringValue('Text1', 'Hello BarTender!');

    PrintOut(False, False); //打印

    Close(btDoNotSaveChanges); //關閉不保存

 end;

 btApp1.Quit(btDoNotSaveChanges); //退出

end;

e)         現在應該可以工作了是嗎?...更多信息,請看引入的類型庫源碼(BarTender_TLB.pas