Delphi开发二维条码的方法

     Delphi程序是非常优秀的开发工具，在引用二维条码控件（VC＋＋开发）时，会遇到一些变量不对称的问题。
许多开发人员在引用EnCodePdf.dll（V10.4）（博智成软件开发）时，要注意如下几点：
1.VOID类型接口，要申明成过程
DLL中原型接口是 void SetPdfConFile (LPCTSTR confile) 
在DELPHI申明为： procedure SetPdfConFile(confile: PChar) : stdcall; external "EnCodePdf.dll"
2.LPCTSR/LPCSTR变量申明成PChar或string类型
function EnPdfText (txtdata:PChar,outfile:PChar):PChar; stdcall; external"EnCodePdf.dll"
3.BSTR变量应申明为PChar，这一点特别重要，有许多人申明成string类型，导致运行报错。
function EnCodePdf (Infile:PChar,outfile:PChar):PChar; stdcall; external "EnCodePdf.dll"
总结正确的引用与申明如下：
function InitRead(hcallwnd:integer,pathname:PChar): integer; stdcall; external "EnCodePdf.dll"
function CloseRead(): integer;stdcall; external "EnCodePdf.dll"
procedure SetPdfConFile(confile: PChar) : stdcall; external "EnCodePdf.dll"
function EnPdfText (txtdata:PChar,outfile:PChar):PChar;stdcall; external "EnCodePdf.dll"
function EnCodePdf (Infile:PChar,outfile:PChar):PChar; stdcall; external "EnCodePdf.dll"
function MakePdf417 (txtfile:PChar,imgfile:PChar, othfile:PChar, outfile:PChar): PChar; stdcall; external "EnCodePdf.dll"

应用调用例子如下：
Pdfname:PChar;
SetQrConFile(PChar('D:\PDF417\MakeBarCode.ini'));

Pdfname:=EnPdfText(PChar(’福州博智成软件开发有限公司’), PChar(’c:\pdf417.bmp’)); 

　其它Qr_Code,DataMatrix和汉息条码可以到官网取得：http://FzBozc.com