用DELPHI工具编制开发生成二维条码

转自: http://jingyan.baidu.com/article/e75057f2ad6481ebc81a897b.html
资源链接：http://download.csdn.net/detail/trassion/9101931

我们在DELPHI程序中，如何生成PDF417或QR_Code二维条码呢？针对EnCodePdf.dll (PDF417二维码生成库），EnCodeQr.dll (Qr_Code二维码生成库）两个库，实现DELPHI开发的具体步骤如下：

工具/原料

DELPHI开发环境

方法/步骤

1

我们先建立DELPHI开发工程，将准备好的两DLL放置入工程目录下。

注意：DLL放置位置要与EXE处于同一个目录位置。否则由于找到DLL，DELPHI会出现报错。

2

接口函数申明：

接口函数的type申明如下：

procedure SetPdfConFile(confile: PChar) : stdcall; external"EnCodePdf.dll"

(说明：这是设置PDF417条码的INI文件接口)

function EnPdfText(txtdata:PChar,outfile:PChar):PChar;stdcall; external "EnCodePdf.dll"

(说明：这是生成PDF417条码的函数接口)

procedure SetQrConFile(confile: PChar) : stdcall; external"EnCodeQr.dll"

(说明：这是设置Qr_Code条码的INI文件接口)

function EnQrText (txtdata:PChar,outfile:PChar):PChar;stdcall;external "EnCodeQr.dll"

(说明：这是生成Qr_Code条码的函数接口)

注意：函数值有返回的申明成函数，没有返回的申明成过程。

3

应用调用生成PDF417例子如下：

SetPdfConFile(PChar('D:\PDF417\MakeBarCode.ini'));

Pdfname:=EnPdfText(PChar('123456,生活多美好'),PChar('c:\pdf417.bmp'));



4

应用调用生成Qr_Code例子如下：

SetQrConFile(PChar('D:\QrCode\MakeBarCode.ini'));

Pdfname:=EnQrText(PChar('123456,生活多美好'),PChar('c:\QrCode.bmp));