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

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

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

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

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

接口函数申明：

接口函数的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条码的函数接口)

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

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

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

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

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

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

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