按键精灵HTTP本地文字识别 PaddleOCR

jhtzz

嘿嘿，有许多按键的用户不会写HTTP客户Duan，所以我找了好久的资料，搞定了。
Function ReadBinaryFile(filePath)
    Dim fs, file, stream, fileData
    Set fs = CreateObject("Scripting.FileSystemObject")

    ' 检查文件是否存在
    If Not fs.FileExists(filePath) Then
        MsgBox "文件不存在：" & filePath
        Exit Function
    End If

    Set stream = CreateObject("ADODB.Stream")
    stream.Type = 1  ' 1 表示二进制
    stream.Open
    stream.LoadFromFile filePath

    fileData = stream.Read
    stream.Close

    Set fs = Nothing
    Set stream = Nothing

    ReadBinaryFile = fileData
End Function

Function __HttpPost(posturl,params)
        Dim oauth_http
        Dim fileData
        fileData = ReadBinaryFile(params)
        MsgBox (posturl)
        MsgBox(lenB(fileData))
       
        Set oauth_http = CreateObject("MSXML2.ServerXMLHTTP")
        oauth_http.Open "POST", posturl, False
        oauth_http.setRequestHeader "Content-Type", "application/octet-stream"
        oauth_http.setRequestHeader "User-Agent", "Mozilla/4.0 (iMouse)"

        oauth_http.send fileData
        If oauth_http.Status = 200 Then
            __HttpPost = UTF8ToANSI(oauth_http.responseText)
        Else
            __HttpPost = ""
    End If

//        __HttpPost = StrConv(oauth_http.ResponseBody, vbUnicode)
//        __HttpPost = oauth_http.responseBody
       
        Set oauth_http = Nothing

End Function

Function UTF8ToANSI(text)
        UTF8ToANSI = text
End Function

返回值 = __HttpPost("http://127.0.0.1:18081/ocr0", "D:\PaddleOCR\PaddleOCR-2.9.1\deploy\cpp_infer\buildCPU\Release\imgs\2\03.png")

MsgBox(返回值)  



至于百du飞桨OCR的本地架设，看这篇文章：
https://bbs.125.la/forum.php?mod=viewthread&tid=14844866
附件里面有按键和Python 的例子，反而是易语言的，我研究了半天，搞不定HTTP客户Duan，头大。
下载： 源代码按键和PY.rar (2.41 KB, 下载次数: 9)

2025-2-9 01:06 上传

点击文件名下载附件

胖子葛格

感谢大师分享~~！

胖子葛格

感谢大神分享~！

renhe2018

前来支持一下

4891311a

感谢分享

x3325426

已经顶贴，感谢您对论坛的支持！

year1970

感谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

jhtzz

.版本 2

filebyte ＝ 读入文件 (“D:\PaddleOCR\PaddleOCR-2.9.1\deploy\cpp_infer\buildCPU\Release\imgs\2\03.png”)

httpObj.创建 (“WinHttp.WinHttpRequest.5.1”, )
httpObj.方法 (“SetTimeouts”, 3000, 3000, 3000, 3000)
httpObj.方法 (“Open”, “POST”, “http://127.0.0.1:18081/ocr0”, 假)
' httpObj.写属性 (“Option”, 6, 0)
' httpObj.写属性 (“Option”, 4, 13056)
httpObj.方法 (“SetRequestHeader”, “content-type”, “application/octet-stream”)
httpObj.方法 (“SetRequestHeader”, “content-length”, 取字节集长度 (filebyte))
httpObj.方法 (“Send”, filebyte)
resTxt ＝ httpObj.读文本属性 (“ResponseText”, )
responseCode ＝ httpObj.读数值属性 (“Status”, )
httpObj.清除 ()

谁能帮我完善这个易语言的HTTP客户Duan代码啊，搞不懂了。

查过

感谢分享，很给力！~