二维码的解码

楼上风云

一、任务目标：对二维码图片进行解码
二、目标图片：
三、编码内容：——————————————————————
          已解码数据 1 [模型版本: 8, 等级: M(15%)]
              ——————————————————————
          免责声明

          注意：本文只可用于科学/研究的目的。
          本文作者不对将在此展示内容的非法用途负有任何责任。
          如果你同意本声明，才被允许阅读这篇文章。

          符号位置：(16, 16)-(212, 16)-(212, 212)-(16, 212)
四、上传附件:
    文件列表：MainVB.txt             VB编码的示例调用程序，有乱码
                     MainVbAu3.AU3     尝试的AU3调用示例，有BUG,尚未完全读取成功
                    QrDcd.dll                 关键DLL，解码必须
                    QrDcd.txt                解码DLL函数表，有乱码
                    QrDcdDLL.AU3        尝试转换的DLL函数UDF，部分函数未能实现功能。增加了注册子函数。
                    QRCHS.PNG            目标二维码图片
五、问题求解：
             1、源程序中，QrDcdDLL.AU3中的GetDecodeVersion子函数未能实现功能，从而解码未能成功。
六、特别鸣谢：LPXX大侠帮助，基本解决日文乱码。
;本次更新部分代码，2013-08-07免费代码包：

kk_lee69

是問問題  還是發表心得??

lpxx

提问还要付钱？

楼上风云

回复 3# lpxx

发贴时搞错了，无意收费，结果...
尝试重新编辑以取消收费时，发帖失败。
此处免费，算是修正。
附上免费附件

楼上风云

回复 2# kk_lee69

兄弟，此贴当然是提问。问题尚未解决，岂是何感之有？

lpxx

看了一下，是日文的，上传txt格式谷歌翻译一下。

http://translate.google.cn/?sourceid=cnhp#ja/zh-CN/

翻译不准确的，剩下的就你自己完善了。

测试了一下，翻译的不太准确。

lpxx

附上帮你翻译的MainVB.txt

Friend Class formMain
    Inherits System.Windows.Forms.Form

    '解码范围规范
    Public blnEnableSetRect As Boolean = False
    Public intRectLeft As Integer = 0
    Public intRectTop As Integer = 0
    Public intRectRight As Integer = 0
    Public intRectBottom As Integer = 0

    '解码条件设置
    Public intSymbolCount As Integer = 0
    Public intEffectLevel As Integer = 3
    Public byBorder As Byte = 0
    Public byModuleSize As Byte = 1

    Dim intFilterIndex As Short = 1 '图片文件

    Private Sub formMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

        '文本框适合客户端
        textDecodeResult.Width = ClientRectangle.Width
        textDecodeResult.Height = ClientRectangle.Height - MenuStrip1.Height

    End Sub

    Private Sub textDecodeResult_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles textDecodeResult.DragEnter

        '支持拖放文件
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If

    End Sub

    Private Sub textDecodeResult_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles textDecodeResult.DragDrop
        '文件拖放处理

        DecodeFile(e.Data.GetData(DataFormats.FileDrop)(0))

    End Sub

    Private Sub menuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuFileOpen.Click
        '处理[打开]  -  [文件]

        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.Filter = "图片文件 (*.bmp;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png)|*.bmp;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png|" & _
                                 "位图文件 (*.bmp)|*.bmp|" & _
                                 "JPEG格式 (*.jpg;*.jpeg)|*.jpg;*.jpeg|" & _
                                 "GIF格式 (*.gif)|*.gif|" & _
                                 "TIFF格式 (*.tif;*.tiff)|*.tif;*.tiff|" & _
                                 "PNG格式 (*.png)|*.png|" & _
                                 "所有文件 (*.*)|*.*"
        openFileDialog1.FilterIndex = intFilterIndex
        openFileDialog1.RestoreDirectory = True

        '通用对话框，选择文件
        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            intFilterIndex = openFileDialog1.FilterIndex
            DecodeFile(openFileDialog1.FileName)
        End If

    End Sub

    Private Sub menuAppExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuAppExit.Click
        '程序结束


        Close()

    End Sub

    Private Sub menuSetDecodeRect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuSetDecodeRect.Click
        '对话框显示解码范围

        formSetRect.ShowDialog() '模式显示

    End Sub

    Private Sub menuSetDecodeProperty_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuSetDecodeProperty.Click
        '解码条件设置对话框

        formSetProperty.ShowDialog() '模式显示

    End Sub

    Private Sub DecodeFile(ByVal strFilePath As String)
        '解码目标图像文件

        '沙漏光标
        Cursor = System.Windows.Forms.Cursors.WaitCursor

        'DLL函数的解码
        Dim intResult As Integer

        If blnEnableSetRect Then
            '有不等规范
            intResult = DecodePictureFileRect(strFilePath, intRectLeft, intRectTop, intRectRight, intRectBottom)
        Else
            '没有范围规范
            intResult = DecodePictureFile(strFilePath)
        End If

        '光标恢复
        Cursor = System.Windows.Forms.Cursors.Default

        Dim strResult As String = ""

        If intResult >= 1 Then
            '解码成功完成

            Dim i As Integer

            For i = 0 To intResult - 1
                strResult = strResult & "───────────────────────────" & vbCrLf

                '格式信息
                strResult = strResult & "解码数据 " & Format(i + 1)
                strResult = strResult & "编号:" & Format(GetDecodeVersion(i))
                strResult = strResult & ", 水平:"

                Select Case GetDecodeLevel(i)
                    Case 0
                        strResult = strResult & "L(7%)"
                    Case 1
                        strResult = strResult & "M(15%)"
                    Case 2
                        strResult = strResult & "Q(25%)"
                    Case 3
                        strResult = strResult & "H(30%)"
                End Select

                '综合信息
                Dim intCount As Integer
                Dim intSeqNo As Integer
                Dim byCheckDigit As Byte

                intCount = GetConcatenationInfo(i, intSeqNo, byCheckDigit)

                If intCount > 0 Then
                    strResult = strResult & ", 连接方式:" & Format(intSeqNo + 1) & "/" & Format(intCount)
                    strResult = strResult & "(CD:" & Hex(byCheckDigit \ &H10S) & Hex(byCheckDigit Mod &H10S) & "H)"
                End If


                strResult = strResult & "]" & vbCrLf
                strResult = strResult & "───────────────────────────" & vbCrLf

                ''符号数据
                strResult = strResult & GetDecodeDataString(i) & vbCrLf & vbCrLf

                '位置信息
                Dim intPosition(7) As Integer

                intResult = GetSymbolePosition(i, intPosition(0))

                strResult = strResult & "符号的位置是" & _
                            "(" & Format(intPosition(0)) & ", " & Format(intPosition(1)) & ")-" & _
                            "(" & Format(intPosition(2)) & ", " & Format(intPosition(3)) & ")-" & _
                            "(" & Format(intPosition(4)) & ", " & Format(intPosition(5)) & ")-" & _
                            "(" & Format(intPosition(6)) & ", " & Format(intPosition(7)) & ")"

                strResult = strResult & vbCrLf & vbCrLf
            Next i

            '开放的解码结果存储器
            FreeAllocateMemory()

        Else
            '解码错误
            Select Case intResult

                Case QRD_ERROR_SYMBLE_NOT_FOUND
                    strResult = "QR码符号没有被发现"

                Case QRD_ERROR_FILE_NOT_FOUND
                    strResult = "找不到文件"

                Case QRD_ERROR_READ_FAULT
                    strResult = "读取文件发生了错误"

                Case QRD_ERROR_BAD_FORMAT
                    strResult = "不能被读取的文件类型"

                Case QRD_ERROR_SHARING_VIOLATION
                    strResult = "共享冲突，无法读取文件"

                Case QRD_ERROR_NOT_ENOUGH_MEMORY
                    strResult = "内存不足"

            End Select
        End If

        textDecodeResult.Text = strResult

    End Sub

End Class

楼上风云

回复 6# lpxx

大侠，翻译的东东有过修改吧？看起来很不错了。剩下的，我继续接力

cj4025

不能运行。
是不是哪里出问题了。求解。

haijie1223

发到提问区，是有问题需要解决？

afan

haijie1223 发表于 2020-9-9 00:21
发到提问区，是有问题需要解决？

楼上的挖坟，你也跟着递铲子