VB6.0生成二维条码的方法-Toy模板网

这篇具有很好参考价值的文章主要介绍了VB6.0生成二维条码的方法。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

采用Microsoft Visual Basic 6.0调用EnCodePdf.dll和Wcomp.dll实现图形压缩与PDF417条码编制，先将EnCodePdf.dll、Wcomp.dll拷贝至工程文件目录下，再在VB中申明以下接口程序，按照以下指南操作即可。( Qr_Code条码调用也类似，只需将’PDF’改成’Qr’，引用EnCodeQr.dll )

{ 参考项目源码下载：下载中心福州博智成软件开发有限公司,博智成,条码公社,二维条码,图像处理http://fzbzc.com/DownLoad.html 参考技术文档：《二维码编码源程序开发参考(VB) 》

参考项目源码：《二维码编码源程序开发参考(VB)》 }

一、接口函数的申明如下：

----'PDF417条码接口申明（对应EnCodePdf.dll）---

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

Private Declare Function InitRead Lib "EnCodePdf.dll" (ByVal hcallwnd As Long, ByVal pathname As String) As Long

'关闭串口通信

Private Declare Function CloseRead Lib "EnCodePdf.dll" () As Long

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

Private Declare Sub SetPdfConFile Lib "EnCodePdf.dll" (ByVal confile As String)

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

Private Declare Function EnPdfText Lib "EnCodePdf.dll" (ByVal txtData As String, ByVal outfile As String) As String

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

Private Declare Function EnPdfUTF8 Lib "EnCodePdf.dll" (ByVal txtData As String, ByVal outfile As String) As String

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

Private Declare Function EnCodePdf Lib "EnCodePdf.dll" (ByVal txtfile As String, ByVal outfile As String) As String

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

Private Declare Function MakePdf417 Lib "EnCodePdf.dll" (ByVal txtfile As String, ByVal pictfile As String, ByVal otherfile As String, ByVal outfile As String) As String

----图像压缩接口申明（对应nlcomp.dll）----

'设置图像尺寸高、宽像素

Private Declare Function SizeDIB Lib "Wcomp.dll" (ByVal oldmap As String, ByVal BmpHeight As Integer, ByVal BmpWidth As Integer) As Long

'将图像(infile)进行小波压缩(outfile),指定压后字节大小(budget)

Private Declare Function Wcompress Lib "Wcomp.dll" (ByVal infile As String, ByVal outfile As String, ByVal budget As Long) As Long

'将压缩图像(infile)进行还原(outfile)（画质有损)

Private Declare Function Wdecompress Lib "Wcomp.dll" (ByVal infile As String, ByVal outfile As String) As Long
二、制码参数设置
设置外形比例、行列、X/Y放大系数、ECC纠错等级、百分比以及是否是缩短条码等设置至条码设置文件中。
串口参数设置:

对串的波特率与串口进行设置。
三、生成条码函数调用
第一步：对图形文件进行压缩处理。
第二步：设置制码参数文件名。

第三步：调用制码函数，将压缩后的图形文件与文本文件制作成条码

第四步：若条码文件名非空，显示条码，否者报告错误。
串口打开与关闭
在识读前，调用InitRead与CloseRead打开与关串口，
四、数据接收与显示
当动态链接库接到扫描器送来的信息，先进行分析后，然后给调用窗体发送字符为255的KEYDOWN信息，接收信息按照信息存放的标准被分解成文本、图形和其它三个文件。文章来源地址https://www.toymoban.com/news/detail-498010.html

文本文件读出，直接显示；若有图形文件，先进行解压，然后显示；其它文件根据用户定义进行处理。