百度OCR本地图片识别源码

xzhbban

1. 功能 获取Access_Token()
   
2.     变量 header = array()
   
3.     变量 API_Key = "去百度OCR后台获取API_Key"//此处为重点1
   
4.     变量 Secret_Key = "去百度OCR后台获取Secret_Key"//此处为重点2
   
5.     变量 url_地址 = "https://    aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=" & API_Key & "&client_secret=" & Secret_Key   
   
6.     变量  access_token = json转数组(http提交请求("post", url_地址, "utf-8", header))
   
7.     返回 access_token["access_token"]
   
8. 结束
   
9. 
   
10. 功能 文字识别()
    
11.     变量 图片路径 = 浏览框获取文本("浏览框0")//此处自行修改
    
12.     变量 Access_Token = 获取Access_Token()
    
13.     变量 header = 数组()
    
14.     变量 提交信息 = "image=" & url编码(base64encodefile(图片路径), "utf-8")
    
15.     header["Content-Type"] = "application/x-www-form-urlencoded"
    
16.     变量 URL = "https://     aip.baidubce.com/rest/2.0/ocr/v1/general?access_token=" & Access_Token   
    
17.     变量 结果 = json转数组(http提交请求("post", URL, 提交信息, "utf-8", header))   
    
18.     变量 行数 = 结果["words_result_num"]   
    
19.     遍历(变量 i = 0; i < 行数; i++)
    
20.         调试输出(结果["words_result"][i]["words"])
    
21.         //此处也可以用返回值
    
22.         返回 结果["words_result"][i]["words"]//如果是返回的话,,只返回第一行内容,其他行,就不会继续返回,,所以,需要全部返回的话,建议写入变量内,最后一次性调试
    
23.     结束   
    
24. 结束

复制代码

有些朋友说，代码都是BUG，编译不过，我在此特别说明：需要源码的，可以到群里找我，顺便指点你怎么用：862419181


网址链接不能发，所以，加了空格，自行删除即可[/hide]

chen1882729

目测缺少以下2个功能吧？

url编码()
base64encodefile(图片路径)

2576605471

chen1882729 发表于 2018-11-22 23:15
目测缺少以下2个功能吧？

url编码()

能看出这两个函数是亮点,不错不错

往前的版本我不敢说,但目前7.0和8.0都是自带有这两个命令的,要是更老的版本,就未知了

hu863063648

基本每一行都报错哈哈

ctytty

我也看出来了

chen1882729

2576605471 发表于 2018-11-25 11:12
能看出这两个函数是亮点,不错不错

往前的版本我不敢说,但目前7.0和8.0都是自带有这两个命令的,要是更老 ...

7.0感觉问题多没有用，8.0还没有得用，我在用5.5版

xzhbban

chen1882729 发表于 2018-11-22 23:15
目测缺少以下2个功能吧？

url编码()

太可怕了，，没看到？？

变量 提交信息 = "image=" & url编码(base64encodefile(图片路径), "utf-8")

这一行代码，，没看到？？

chen1882729

xzhbban 发表于 2018-11-29 23:03
太可怕了，，没看到？？

变量 提交信息 = "image=" & url编码(base64encodefile(图片路径), "utf-8")

是你不理解我的意思，而不是我没有看到，一点都不可怕

城中曾慕寒

xuexi

xzhbban

我来顶上去。