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信息，接收信息按照信息存放的标准被分解成文本、图形和其它三个文件。

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