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

你可能感兴趣的:(Delphi开发二维条码的方法)