.版本 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, “提示”, )
.如果真结束
|
发表于 2022-8-21 09:43
|
发表于 2022-9-22 09:40
乔克叔叔加两分
