按键精灵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, 下载次数: 16)

2025-2-9 01:06 上传

点击文件名下载附件

jhtzz

.版本 2
.支持库 spec

.子程序 _按钮2_被单击
.局部变量 返回值, 字节集
.局部变量 filebyte, 字节集

filebyte ＝ 读入文件 (“D:\PaddleOCR\PaddleOCR-2.9.1\deploy\cpp_infer\buildCPU\Release\imgs\2\13.jpg”)
返回值 ＝ 网页_访问 (“http://127.0.0.1:18081/ocr0”, 1, , , , , , , filebyte, )
调试输出 (编码_Utf8到Ansi (返回值))

eklove

哈哈，这波操作挺溜啊，按键精灵玩得转PaddleOCR，大佬果然深藏不露呢。不过代码贴一半是想吊我们胃口吗？赶紧补全啊！

jhtzz

dansui123 发表于 2025-3-25 23:17
非常可以

使用遇到任何问题，都可以找我，1252790557

jhtzz

XJxaiojing 发表于 2025-3-26 01:24
这个分享太棒啦，感谢！

使用遇到任何问题，都可以找我，1252790557

XJxaiojing

这个分享太棒啦，感谢！

dansui123

非常可以

jhtzz

广大易友 发表于 2025-3-16 10:34
.版本 2

.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。

尽量用http://127.0.0.1:18081\orc0，用0接口少了base64加解码，速度更快。

jhtzz

lxn2wyf 发表于 2025-3-15 13:00
厉害啊，解决了不少人的痛点吧！分享下具体步骤哈，让更多人也能用上这功能。按键精灵结合PaddleOCR，效率 ...

好的，需要什么支持，直接找我改进，QQ，1252790557，因为我自己也要用，不断的完善修复BUG。

广大易友

jhtzz 发表于 2025-2-9 14:17
.版本 2

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

.版本 2

.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量  局_网址, 文本型
.局部变量  局_方式, 整数型
.局部变量  局_提交数据, 文本型
.局部变量  ADD_协议头, 类_POST数据类
.局部变量  局_提交协议头, 文本型
.局部变量  局_结果, 字节集
.局部变量  局_返回, 文本型
' http://127.0.0.1:18081\orc1
局_网址 = "http://127.0.0.1:18081\orc1"
局_方式 = 1
局_提交数据 = "[file path]   ←将此关键词替换到你的表单文件位置"
ADD_协议头.添加 ("User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36"）

局_提交协议头 = ADD_协议头.获取协议头数据 ()

局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , 到字节集(局_提交数据), , )
局_返回 = 到文本(编码_编码转换对象(局_结果))
返回(局_返回)

lxn2wyf

厉害啊，解决了不少人的痛点吧！分享下具体步骤哈，让更多人也能用上这功能。按键精灵结合PaddleOCR，效率提升不是一点点呢。