用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. 1

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

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

2. 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. 3

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

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

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

   
4. 4

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

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

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