【源码】OCR识别接口，源码例子，给个图片，返回内容

艾鱼

啥也不说，直接上源码，不加权限，多给回复，谢谢。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
img_data_u	字节集

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

img_data_u ＝ HTTP读文件 (“http://p0.qhimgs4.com/t014b70aac7897c728b.jpg”)
图片框1.图片 ＝ img_data_u

子程序名	返回值类型	公开	备 注
OCR_PIC_TEXT	文本型
参数名	类 型	参考	可空	数组	备 注
img_data	字节集
fram	逻辑型		√		图片坐标，默认为空，值为假不输出，为真时输出

变量名	类 型	静态	数组	备 注
url	文本型
data	字节集
res	文本型
num	整数型
Json	类_json
data1	文本型
data2	文本型
res_data	文本型

url ＝ “http://ocr.shouji.sogou.com/v2/ocr/json”
data ＝ 到字节集 ( #post_DATA )
data ＝ 子字节集替换 (data, 到字节集 (“{IMG_DATA}”), img_data, , )
res ＝ 到文本 (网页_访问 (url, 1, , , , #HEADER, , , data))
res ＝ 编码_utf8到gb2312 (res)
.if (json.解析 (res))
.counter (json.成员数 (“result”), num)
.ife (是否为空 (fram) 或 fram ＝ 假)
data2 ＝ “”
data2 ＝ json.取通用属性 (“result[” ＋ 到文本 (num － 1) ＋ “].frame”)
data1 ＝ json.取通用属性 (“result[” ＋ 到文本 (num － 1) ＋ “].content”)
.ife (data2 ＝ “”)
res_data ＝ res_data ＋ data1 ＋ #换行符
res_data ＝ res_data ＋ data1 ＋ #换行符 ＋ data2 ＋ #换行符

.CounterLoop ()
return (res_data)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (OCR_PIC_TEXT (img_data_u))

常量名称	常量值	公 开	备 注
头	<文本长度: 129>
常量2
POST_DATA	<文本长度: 209>
前面	<文本长度: 11>
后面	<文本长度: 8>
HEADER	<文本长度: 79>

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 img_data_u, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> img_data_u ＝ HTTP读文件 (“<a href="http://p0.qhimgs4.com/t014b70aac7897c728b.jpg" target="_blank">http://p0.qhimgs4.com/t014b70aac7897c728b.jpg</a>”)<br /> 图片框1.图片 ＝ img_data_u<br /> <br /> .子程序 OCR_PIC_TEXT, 文本型<br /> .参数 img_data, 字节集<br /> .参数 fram, 逻辑型, 可空, 图片坐标，默认为空，值为假不输出，为真时输出<br /> .局部变量 url, 文本型<br /> .局部变量 data, 字节集<br /> .局部变量 res, 文本型<br /> .局部变量 num, 整数型<br /> .局部变量 json, 类_json<br /> .局部变量 data1, 文本型<br /> .局部变量 data2, 文本型<br /> .局部变量 res_data, 文本型<br /> <br /> url ＝ “<a href="http://ocr.shouji.sogou.com/v2/ocr/json" target="_blank">http://ocr.shouji.sogou.com/v2/ocr/json</a>”<br /> data ＝ 到字节集 (#POST_DATA)<br /> data ＝ 子字节集替换 (data, 到字节集 (“{IMG_DATA}”), img_data, , )<br /> res ＝ 到文本 (网页_访问 (url, 1, , , , #HEADER, , , data))<br /> res ＝ 编码_utf8到gb2312 (res)<br /> .if (json.解析 (res))<br />     .counter (json.成员数 (“result”), num)<br />         .ife (是否为空 (fram) 或 fram ＝ 假)<br />             data2 ＝ “”<br />         .否则<br />             data2 ＝ json.取通用属性 (“result[” ＋ 到文本 (num － 1) ＋ “].frame”)<br />         .如果结束<br />         data1 ＝ json.取通用属性 (“result[” ＋ 到文本 (num － 1) ＋ “].content”)<br />         .ife (data2 ＝ “”)<br />             res_data ＝ res_data ＋ data1 ＋ #换行符<br />         .否则<br />             res_data ＝ res_data ＋ data1 ＋ #换行符 ＋ data2 ＋ #换行符<br />         .如果结束<br /> <br />     .CounterLoop ()<br /> .如果真结束<br /> return (res_data)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (OCR_PIC_TEXT (img_data_u))<br /> <br /> <br /> .版本 2<br /> <br /> .常量 头, "<文本长度: 129>"<br /> .常量 常量2<br /> .常量 POST_DATA, "<文本长度: 209>"<br /> .常量 前面, "<文本长度: 11>"<br /> .常量 后面, "<文本长度: 8>"<br /> .常量 HEADER, "<文本长度: 79>"<br /> <br /> <br />

揰掵佲

艾鱼

揰掵佲 发表于 2018-11-24 15:42

lsj8924

用搜狗的接口都不用给钱了，哈哈

1301ok

验证码能识别？

艾鱼

1301ok 发表于 2018-11-26 11:54
验证码能识别？

你可以试试。具体不晓得。

墨雨千寻

小姐姐，好像要

ahjhtmey

验证码可以识别吗,有人验证过吗

XX0721

看看