易语言服务器数据如何转换成表格,易语言调用百度图片识别实现的图片转表格的代码...

截图模块代码

.版本 2

.子程序 开始截图, 逻辑型, 公开, 截图成功返回真，图片被自动保存到剪贴板。失败或放弃截图则返回假。

.参数 是否截取鼠标, 逻辑型, 可空

.参数 调节框颜色, 整数型, 可空, 默认：Red=10，Green=100，Blue=130

.参数 矩形信息框颜色, 整数型, 可空, 默认黑色

.参数 矩形信息字体颜色, 整数型, 可空, 默认黑色

.子程序 取剪贴板位图, 字节集, 公开

表格图片转表格源码

此功能需要加载精易模块5.6

.版本 2

.支持库 edroptarget

.支持库 shellEx

.支持库 eImgConverter

.支持库 iext

.支持库 EThread

.支持库 spec

.支持库 HtmlView

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

.程序集变量 request_id, 文本型

.程序集变量 压缩率, 整数型

.程序集变量 路径, 文本型

.程序集变量 a, 整数型

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

拖放对象1.注册拖放控件 (取窗口句柄 ())

a ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)

文件_删除 (取运行目录 () ＋ “\123.jpg”)

压缩率 ＝ 滑块条1.位置

编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\表格配置.ini”, “配置”, “Token”, )

.子程序 _拖放对象1_得到文件

.参数 接收到的文件路径, 文本型

路径 ＝ 接收到的文件路径

转换到JPG (接收到的文件路径, 取运行目录 () ＋ “\123.jpg”, 假, 压缩率, 真, 0)

处理事件 ()

图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\123.jpg”)

透明标签1.标题 ＝ 到文本 (取字节集长度 (图片框1.图片))

.子程序 _滑块条1_位置被改变

压缩率 ＝ 滑块条1.位置

转换到JPG (路径, 取运行目录 () ＋ “\123.jpg”, 假, 压缩率, 真, 0)

处理事件 ()

图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\123.jpg”)

透明标签1.标题 ＝ 到文本 (取字节集长度 (图片框1.图片))

.子程序 _标签1_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.局部变量 jpg, 字节集

.如果真 (参数一 ＝ a)

.如果真 (开始截图 ())

滑块条1.禁止 ＝ 真

路径 ＝ 取运行目录 () ＋ “\1234.jpg”

写到文件 (路径, 剪辑板_取图片 (取窗口句柄 ()))

处理事件 ()

图片_转换 (读入文件 (取运行目录 () ＋ “\1234.jpg”), 2, 取运行目录 () ＋ “\123.jpg”, jpg)

处理事件 ()

图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\123.jpg”)

透明标签1.标题 ＝ 到文本 (取字节集长度 (图片框1.图片))

.如果真结束

.如果真结束

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

编辑框1.可视 ＝ 假

.如果真 (取字节集长度 (图片框1.图片) ＝ 0)

_启动窗口.标题 ＝ “拖入图片再转换”

返回 ()

.如果真结束

.如果真 (取字节集长度 (图片框1.图片) ＞ 150000)

.如果真 (信息框 (“当前图片较大，转换时间较长”, 1, , _启动窗口) ＝ #取消钮)

返回 ()

.如果真结束

.如果真结束

按钮1.禁止 ＝ 真

滑块条1.禁止 ＝ 假

图片框2.可视 ＝ 真

_启动窗口.标题 ＝ “正在上传图片”

启动线程 (&上传图像, , )

.子程序 上传图像

.局部变量 地址, 文本型

.局部变量 数据, 文本型

.局部变量 图片, 文本型

.局部变量 Json, 类_json

.局部变量 str, 文本型

.局部变量 返回, 文本型

.局部变量 jpg, 字节集

图片框2.图片 ＝ 读入文件 (“C:\Users\wyz\Desktop\ICO\timg (1).gif”)

图片 ＝ 编码_URL编码 (编码_BASE64编码 (图片框1.图片), 真, 真)

地址 ＝ “https://aip.baidubce.com/rest/2.0/solution/v1/form_ocr/request?access_token=” ＋ 编辑框1.内容

数据 ＝ “image=” ＋ 图片 ＋ “&”

返回 ＝ 到文本 (网页_访问 (地址, 1, 数据))

.如果真 (寻找文本 (返回, “Access token expired”, , 假) ≠ -1)

_启动窗口.标题 ＝ “访问令牌已过期”

图片框2.可视 ＝ 假

按钮1.禁止 ＝ 假

.如果真结束

.如果真 (寻找文本 (返回, “Access token invalid or no longer valid”, , 假) ≠ -1)

_启动窗口.标题 ＝ “访问令牌无效或不再有效”

图片框2.可视 ＝ 假

按钮1.禁止 ＝ 假

.如果真结束

Json.解析 (返回)

str ＝ Json.取通用属性 (“result[0].request_id”, 真)

request_id ＝ 文本_替换 (str, , , , #引号, “”)

.如果真 (request_id ≠ “”)

_启动窗口.标题 ＝ “正在处理，请稍等”

启动线程 (&分析图像, , )

.如果真结束

.子程序 分析图像

.局部变量 地址1, 文本型

.局部变量 数据1, 文本型

.局部变量 选择, 文本型

.局部变量 返回1, 文本型

.局部变量 Json1, 类_json

.局部变量 str1, 文本型

地址1 ＝ “https://aip.baidubce.com/rest/2.0/solution/v1/form_ocr/get_request_result?access_token=” ＋ 编辑框1.内容

数据1 ＝ “request_id=” ＋ request_id ＋ “&result_type=excel&”

返回1 ＝ 到文本 (网页_访问 (地址1, 1, 数据1))

返回1 ＝ 编码_URL解码 (返回1, 真)

调试输出 (返回1)

.如果真 (寻找文本 (返回1, “未开始”, , 假) ≠ -1)

程序_延时 (3000)

启动线程 (&分析图像, , )

返回 ()

.如果真结束

.如果真 (寻找文本 (返回1, “进行中”, , 假) ≠ -1)

程序_延时 (3000)

启动线程 (&分析图像, , )

返回 ()

.如果真结束

.如果真 (寻找文本 (返回1, “image recognize error”, , 假) ≠ -1)

_启动窗口.标题 ＝ “不属于表格图像”

图片框2.可视 ＝ 假

按钮1.禁止 ＝ 假

返回 ()

.如果真结束

Json1.解析 (返回1)

str1 ＝ 文本_替换 (Json1.取通用属性 (“result.result_data”, 真), , , , #引号, “”)

_启动窗口.标题 ＝ “图像分析完成”

按钮1.禁止 ＝ 假

图片框2.可视 ＝ 假

超文本浏览框1.地址 ＝ str1

文件_删除 (取运行目录 () ＋ “\123.jpg”)

文件_删除 (取运行目录 () ＋ “\1234.jpg”)

.子程序 __启动窗口_被双击, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

编辑框1.可视 ＝ 真

.子程序 _图片框1_被双击, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

.如果真 (取字节集长度 (图片框1.图片) ＝ 0)

返回 ()

.如果真结束

载入 (窗口1, , 假)

.子程序 __启动窗口_将被销毁

文件_删除 (取运行目录 () ＋ “\123.jpg”)

文件_删除 (取运行目录 () ＋ “\1234.jpg”)

.子程序 _编辑框1_内容被改变

写配置项 (取运行目录 () ＋ “\表格配置.ini”, “配置”, “Token”, 编辑框1.内容)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接