易语言调用百度图片识别实现的图片转表格的代码
截图模块代码
.版本 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.内容)
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接
赞 (0)