Delphi开发二维条码的方法

syhhj3651

已于 2023-04-21 12:54:56 修改

阅读量1k

点赞数

文章标签： delphi Delphi DELPHI pdf417 Pdf417 QRcode QrCode 二维条码汉息条码

于 2013-01-22 14:26:13 首次发布

本文链接：https://blog.csdn.net/syhhj3651/article/details/8529803

版权

Delphi程序是非常优秀的开发工具，在引用二维条码控件（VC＋＋开发）时，会遇到一些变量不对称的问题。许多开发人员在引用EnCodePdf.dll 动态链接库时，要注意如下几点：

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"

总结正确的引用与申明如下：

'初始化串口通信接口（hcallwnd是消息回调窗体，pathname是接收到信息存放的目录)

function InitRead(hcallwnd:integer,pathname: PChar): integer; stdcall; external "EnCodePdf.dll"

'关闭串口通信

'设置编码参数文件名（参数包含纠错级别、图形缩放比例和串口通信参数)

'将文本txtData内容编制成PDF条码文件(outfile),返回条码文件路径

function EnPdfText (txtdata:PChar,outfile:PChar):PChar; stdcall; external "EnCodePdf.dll"

'将文本txtData内容编按照UTF8格式制成PDF条码文件(outfile),返回条码文件路径

function EnPdfUTF8 (txtdata:PChar,outfile:PChar):PChar; stdcall; external "EnCodePdf.dll"

'将文件txtfile内容编制成PDF条码文件(outfile),返回条码文件路径

function EnCodePdf (Infile:PChar,outfile:PChar): PChar; stdcall; external "EnCodePdf.dll"

'将文本、图像(压缩后)和其它文件内容编制成PDF条码文件(outfile),返回条码文件路径

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(’HelloWord’), PChar(’c:\pdf417.bmp’));

关注