截图模块代码
|
1
2
3
4
5
6
7
|
.版本 2
.子程序 开始截图, 逻辑型, 公开, 截图成功返回真，图片被自动保存到剪贴板。失败或放弃截图则返回假。
.参数 是否截取鼠标, 逻辑型, 可空
.参数 调节框颜色, 整数型, 可空, 默认：Red=10，Green=100，Blue=130
.参数 矩形信息框颜色, 整数型, 可空, 默认黑色
.参数 矩形信息字体颜色, 整数型, 可空, 默认黑色
.子程序 取剪贴板位图, 字节集, 公开
|
表格图片转表格源码
此功能需要加载精易模块5.6
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
.版本 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.内容)
|
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接