易语言调用百度识图
本人小白大神勿喷（易语言学习交流）链接:https://pan.baidu.com/s/1D1MoKdc0J1yc7FsDNjbmYw?pwd=sifn
提取码:sifn 求补发链接 kqian 发表于 2022-9-22 04:24
求补发链接
.版本 2
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 Ak, 文本型, , ,
.局部变量 Sk, 文本型, , ,
.局部变量 token, 文本型
.局部变量 提交地址, 文本型, , , https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=【百度云应用的AK】&client_secret=【百度云应用的SK】
.局部变量 提交地址2, 文本型, , , https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic?access_token 获取token之后将图片进行base64编码之后提交的地址
.局部变量 data, 文本型
.局部变量 url, 文本型
.局部变量 返回结果, 文本型
.局部变量 总条数, 整数型
.局部变量 i, 整数型
.局部变量 数组, 文本型, , "0"
.局部变量 结果, 文本型
图片框1.图片 ＝ 读入文件 (对话框_打开文件 (0, 取当前目录 (), “请选择”, “图片文件（*.jpg;*.jpeg;*.png）|*.jpg;*.jpeg;*.png”, ))
标签1.可视 ＝ 假
Ak ＝ “”
Sk ＝ “”
提交地址 ＝ “https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=” ＋ Ak ＋ “&client_secret=” ＋ Sk
token ＝ 文本_取出中间文本 (网页_访问S (提交地址, 1, , , , , ), “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号, )
提交地址2 ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic?access_token=” ＋ token
data ＝ 编码_BASE64编码 (图片框1.图片)
url ＝ “image=” ＋ 编码_URL编码_快速 (到字节集 (data))
返回结果 ＝ 编码_URL解码_快速 (网页_访问S (提交地址2, 1, url, , ), 真)
' 调试输出 (返回结果)
总条数 ＝ 文本_取中间_批量 (返回结果, “{” ＋ #引号 ＋ “words” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “}”, 数组, , , )
.计次循环首 (总条数, i)
编辑框1.加入文本 (数组 ＋ #换行符)
.计次循环尾 ()
.如果真 (置剪辑板文本 (编辑框1.内容) ＝ 真)
信息框 (“文字已复制”, 0, “提示”, )
.如果真结束
kqian 发表于 2022-9-22 04:24
求补发链接
AK SK 申请一个填上就可以了 我是你乔克叔叔 发表于 2022-9-22 09:41
AK SK 申请一个填上就可以了
爱你哟:lol乔克叔叔加两分 6666666666666666楼主威武 不错哦，可以学习一下
页:
[1]