用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));