.版本 2

.支持库 spec



.程序集 窗口程序集_启动窗口



.子程序 __启动窗口_创建完毕







.子程序 _按钮1_被单击

.局部变量 提交地址, 文本型

.局部变量 提交内容, 文本型

.局部变量 client_id, 文本型

.局部变量 client_secret, 文本型

.局部变量 返回结果, 文本型

.局部变量 token, 文本型

.局部变量 图片, 字节集

.局部变量 data, 文本型

.局部变量 url, 文本型

.局部变量 总条数, 整数型

.局部变量 i, 整数型

.局部变量 临时文本, 整数型

.局部变量 数组, 文本型



提交地址 ＝ “https://aip.baidubce.com/oauth/2.0/token”

client_id ＝ “BWpHOl4WSBgTL3QAYzByIkDE”

client_secret ＝ “8U4xwBL0PlgoiZYghsWV7xp79IClIPII”

提交内容 ＝ “grant_type=client_credentials&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret

返回结果 ＝ 网页_访问S (提交地址, 1, 提交内容)

token ＝ 到文本 (文本_取出中间文本 (返回结果, #常量1, #常量2, ))

调试输出 (token)

图片 ＝ 读入文件 (取运行目录 () ＋ “\测试图片.png”)

图片框1.图片 ＝ 图片

data ＝ 编码_BASE64编码 (图片)

url ＝ “image=” ＋ 编码_URL编码 (data, 真, 真)

提交地址 ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/general?access_token=” ＋ token

返回结果 ＝ 网页_访问S (提交地址, 1, url, )



返回结果 ＝ 编码_URL解码 (返回结果, 真)



总条数 ＝ 到整数 (文本_取出中间文本 (返回结果, #常量3, #常量4))

调试输出 (总条数)

.计次循环首 (总条数, i)

  临时文本 ＝ 文本_取中间_批量 (返回结果, #常量5, #常量6, 数组)

  编辑框2.加入文本 (数组 [i] ＋ #换行符)

.计次循环尾 ()