方便自己处理海康4200软件门禁图片修改

xiayuan0310

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片操作	类_图像格式转换类
全局_图片路径	文本型
保存路径	文本型
高	整数型
宽	整数型
品质参数	整数型
倍率	小数型

子程序名	返回值类型	公开	备 注
图片_修改大小

变量名	类 型	静态	数组	备 注
图片数据	字节集
新图片数据	字节集
图片路径	文本型
j	整数型
文件名	文本型
高_局部	整数型
宽_局部	整数型

如果 (超级列表框1.取表项数 () ≤ 0)
信息框 (“未载入数据”, 0, “提示”, )
返回 ()




' 读取设置参数
读取参数设置 ()
如果 (选择框_全部修改.选中 ＝ 真)
' 修改大小 按分辨率修改
如果 (单选框_按分辨率修改.选中 ＝ 真)
日志 (“按分辨率修改”)
计次循环首 (超级列表框1.取表项数 (), j)
图片路径 ＝ 超级列表框1.取标题 (j － 1, 1)
文件名 ＝ 文件_取文件名 (图片路径, )
日志 (“正在修改......”)
日志 (图片路径)
超级列表框1.置标题 (j － 1, 5, “正在修改”)
图片数据 ＝ 读入文件 (图片路径)
新图片数据 ＝ 图片_缩放 (图片数据, 宽, 高, )
写到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 新图片数据)
如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))
日志 (“修改成功”)
超级列表框1.置标题 (j － 1, 5, “修改成功”)

计次循环尾 ()




' 按倍率修改分辨率
如果 (单选框_按比例修改.选中 ＝ 真)
日志 (“按倍率修改分辨率”)
计次循环首 (超级列表框1.取表项数 (), j)
图片路径 ＝ 超级列表框1.取标题 (j － 1, 1)
文件名 ＝ 文件_取文件名 (图片路径, )
日志 (“正在修改......”)
日志 (图片路径)
超级列表框1.置标题 (j － 1, 5, “正在修改”)
图片数据 ＝ 读入文件 (图片路径)
宽_局部 ＝ 到整数 (超级列表框1.取标题 (j － 1, 2)) × 倍率
高_局部 ＝ 到整数 (超级列表框1.取标题 (j － 1, 3)) × 倍率
日志 (“宽：” ＋ 到文本 (宽_局部))
日志 (“高：” ＋ 到文本 (高_局部))
新图片数据 ＝ 图片_缩放 (图片数据, 宽_局部, 高_局部, )
写到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 新图片数据)
如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))
日志 (“修改成功”)
超级列表框1.置标题 (j － 1, 5, “修改成功”)

计次循环尾 ()







图片路径 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
图片数据 ＝ 读入文件 (图片路径)
文件名 ＝ 文件_取文件名 (图片路径, )
日志 (“正在修改......”)
日志 (图片路径)
新图片数据 ＝ 图片_缩放 (图片数据, 宽, 高, )
写到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 新图片数据)
如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))
日志 (“修改成功”)
超级列表框1.置标题 (超级列表框1.现行选中项, 5, “修改成功”)

子程序名	返回值类型	公开	备 注
图片_修改品质

变量名	类 型	静态	数组	备 注
图片路径	文本型
j	整数型
文件名	文本型

如果 (超级列表框1.取表项数 () ≤ 0)
信息框 (“未载入数据”, 0, “提示”, )
返回 ()




读取参数设置 ()
' 修改品质
计次循环首 (超级列表框1.取表项数 (), j)
图片路径 ＝ 超级列表框1.取标题 (j － 1, 1)
日志 (图片路径)
文件名 ＝ 文件_取文件名 (图片路径, )
图片操作.载入图像 (读入文件 (图片路径))
图片操作.转换到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 2, 品质参数)
日志 (“正在压缩......”)
超级列表框1.置标题 (j － 1, 5, “正在压缩”)
如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))
日志 (“压缩成功”)
超级列表框1.置标题 (j － 1, 5, “压缩成功”)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
图片_导入数据

变量名	类 型	静态	数组	备 注
数据	文本型		0
总次数	整数型
sy	整数型
i	整数型
文件数量	整数型
图片数据	字节集
高	文本型
宽	文本型
文件大小	长整数型

超级列表框1.全部删除 ()
文件数量 ＝ 文件_枚举 (全局_图片路径, “*.jpg|*.png|*.bmp”, 数据, 真, , )
总次数 ＝ 文件数量
计次循环首 (总次数, i)
sy ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (sy, 0, 到文本 (i))
超级列表框1.置标题 (sy, 1, 数据 [i])
文件大小 ＝ 文件_取大小 (数据 [i]) ÷ 1024
图片数据 ＝ 读入文件 (数据 [i])
宽 ＝ 到文本 (图片_取宽度 (图片数据))
超级列表框1.置标题 (sy, 2, 宽)
高 ＝ 到文本 (图片_取高度 (图片数据))
超级列表框1.置标题 (sy, 3, 高)
超级列表框1.置标题 (sy, 4, 到文本 (文件大小) ＋ “kb”)
计次循环尾 ()

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

拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

全局_图片路径 ＝ 文件_取目录 (接收到的文件路径)
如果 (全局_图片路径 ≠ “”)
图片_导入数据 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (功能, , )

子程序名	返回值类型	公开	备 注
读取参数设置

高 ＝ 到整数 (编辑框_高.内容)
宽 ＝ 到整数 (编辑框_宽.内容)
保存路径 ＝ 编辑框_保存路径.内容
品质参数 ＝ 到整数 (编辑框_品质.内容)
倍率 ＝ 到小数 (组合框_倍率.内容)
日志 (到文本 (倍率))
' -------------检查存储目录-------------
如果 (改变目录 (编辑框_保存路径.内容))
日志 (“目录存在”)

创建目录 (编辑框_保存路径.内容)
日志 (“创建目录：” ＋ 编辑框_保存路径.内容)

子程序名	返回值类型	公开	备 注
_修改大小_被选择

线程_启动 (&图片_修改大小, , )

子程序名	返回值类型	公开	备 注
_清空列表_被选择

超级列表框1.全部删除 ()

子程序名	返回值类型	公开	备 注
日志
参数名	类 型	参考	可空	数组	备 注
内容	文本型

编辑框_日志.加入文本 (内容 ＋ #换行符 )
调试输出 (内容)

子程序名	返回值类型	公开	备 注
_标签1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 浏览文件夹 (“选择保存文件夹”, 假)
如果 (路径 ≠ “”)
编辑框_保存路径.内容 ＝ 路径

子程序名	返回值类型	公开	备 注
_hk条_品质_位置被改变

编辑框_品质.内容 ＝ 到文本 (hk条_品质.位置)

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

子程序名	返回值类型	公开	备 注
_压缩品质_被选择

线程_启动 (&图片_修改品质, , )

i支持库列表	支持库注释
iext	扩展界面支持库一
edroptarget	拖放支持库
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 edroptarget<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 图片操作, 类_图像格式转换类<br /> .程序集变量 全局_图片路径, 文本型<br /> .程序集变量 保存路径, 文本型<br /> .程序集变量 高, 整数型<br /> .程序集变量 宽, 整数型<br /> .程序集变量 品质参数, 整数型<br /> .程序集变量 倍率, 小数型<br /> <br /> .子程序 图片_修改大小<br /> .局部变量 图片数据, 字节集<br /> .局部变量 新图片数据, 字节集<br /> .局部变量 图片路径, 文本型<br /> .局部变量 j, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 高_局部, 整数型<br /> .局部变量 宽_局部, 整数型<br /> <br /> .如果 (超级列表框1.取表项数 () ≤ 0)<br />     信息框 (“未载入数据”, 0, “提示”, )<br />     返回 ()<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> ' 读取设置参数<br /> 读取参数设置 ()<br /> .如果 (选择框_全部修改.选中 ＝ 真)<br />     ' 修改大小 按分辨率修改<br />     .如果 (单选框_按分辨率修改.选中 ＝ 真)<br />         日志 (“按分辨率修改”)<br /> <br />         .计次循环首 (超级列表框1.取表项数 (), j)<br /> <br />             图片路径 ＝ 超级列表框1.取标题 (j － 1, 1)<br />             文件名 ＝ 文件_取文件名 (图片路径, )<br />             日志 (“正在修改......”)<br />             日志 (图片路径)<br />             超级列表框1.置标题 (j － 1, 5, “正在修改”)<br />             图片数据 ＝ 读入文件 (图片路径)<br /> <br />             新图片数据 ＝ 图片_缩放 (图片数据, 宽, 高, )<br /> <br />             写到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 新图片数据)<br /> <br />             .如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))<br />                 日志 (“修改成功”)<br />                 超级列表框1.置标题 (j － 1, 5, “修改成功”)<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br /> <br /> <br />     .否则<br /> <br /> <br />     .如果结束<br /> <br /> <br />     ' 按倍率修改分辨率<br />     .如果 (单选框_按比例修改.选中 ＝ 真)<br />         日志 (“按倍率修改分辨率”)<br />         .计次循环首 (超级列表框1.取表项数 (), j)<br /> <br />             图片路径 ＝ 超级列表框1.取标题 (j － 1, 1)<br /> <br /> <br />             文件名 ＝ 文件_取文件名 (图片路径, )<br />             日志 (“正在修改......”)<br />             日志 (图片路径)<br />             超级列表框1.置标题 (j － 1, 5, “正在修改”)<br />             图片数据 ＝ 读入文件 (图片路径)<br /> <br />             宽_局部 ＝ 到整数 (超级列表框1.取标题 (j － 1, 2)) × 倍率<br />             高_局部 ＝ 到整数 (超级列表框1.取标题 (j － 1, 3)) × 倍率<br /> <br />             日志 (“宽：” ＋ 到文本 (宽_局部))<br />             日志 (“高：” ＋ 到文本 (高_局部))<br /> <br /> <br /> <br />             新图片数据 ＝ 图片_缩放 (图片数据, 宽_局部, 高_局部, )<br /> <br />             写到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 新图片数据)<br /> <br />             .如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))<br />                 日志 (“修改成功”)<br />                 超级列表框1.置标题 (j － 1, 5, “修改成功”)<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> <br /> .否则<br /> <br />     图片路径 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br /> <br />     图片数据 ＝ 读入文件 (图片路径)<br />     文件名 ＝ 文件_取文件名 (图片路径, )<br />     日志 (“正在修改......”)<br />     日志 (图片路径)<br /> <br />     新图片数据 ＝ 图片_缩放 (图片数据, 宽, 高, )<br /> <br />     写到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 新图片数据)<br />     .如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))<br />         日志 (“修改成功”)<br />         超级列表框1.置标题 (超级列表框1.现行选中项, 5, “修改成功”)<br />     .如果真结束<br /> <br /> <br /> <br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> .子程序 图片_修改品质<br /> .局部变量 图片路径, 文本型<br /> .局部变量 j, 整数型<br /> .局部变量 文件名, 文本型<br /> <br /> .如果 (超级列表框1.取表项数 () ≤ 0)<br />     信息框 (“未载入数据”, 0, “提示”, )<br />     返回 ()<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> 读取参数设置 ()<br /> ' 修改品质<br /> <br /> <br /> .计次循环首 (超级列表框1.取表项数 (), j)<br />     图片路径 ＝ 超级列表框1.取标题 (j － 1, 1)<br />     日志 (图片路径)<br />     文件名 ＝ 文件_取文件名 (图片路径, )<br />     图片操作.载入图像 (读入文件 (图片路径))<br />     图片操作.转换到文件 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”, 2, 品质参数)<br /> <br />     日志 (“正在压缩......”)<br />     超级列表框1.置标题 (j － 1, 5, “正在压缩”)<br /> <br />     .如果真 (文件是否存在 (保存路径 ＋ “\” ＋ 文件名 ＋ “.jpg”))<br />         日志 (“压缩成功”)<br />         超级列表框1.置标题 (j － 1, 5, “压缩成功”)<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> .子程序 图片_导入数据<br /> .局部变量 数据, 文本型, , "0"<br /> .局部变量 总次数, 整数型<br /> .局部变量 sy, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文件数量, 整数型<br /> .局部变量 图片数据, 字节集<br /> .局部变量 高, 文本型<br /> .局部变量 宽, 文本型<br /> .局部变量 文件大小, 长整数型<br /> <br /> <br /> 超级列表框1.全部删除 ()<br /> 文件数量 ＝ 文件_枚举 (全局_图片路径, “*.jpg|*.png|*.bmp”, 数据, 真, , )<br /> <br /> <br /> <br /> 总次数 ＝ 文件数量<br /> <br /> <br /> .计次循环首 (总次数, i)<br /> <br />     sy ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (sy, 0, 到文本 (i))<br />     超级列表框1.置标题 (sy, 1, 数据 <i>)<br />     文件大小 ＝ 文件_取大小 (数据 <i>) ÷ 1024<br /> <br />     图片数据 ＝ 读入文件 (数据 <i>)<br /> <br />     宽 ＝ 到文本 (图片_取宽度 (图片数据))<br /> <br />     超级列表框1.置标题 (sy, 2, 宽)<br /> <br />     高 ＝ 到文本 (图片_取高度 (图片数据))<br /> <br />     超级列表框1.置标题 (sy, 3, 高)<br /> <br />     超级列表框1.置标题 (sy, 4, 到文本 (文件大小) ＋ “kb”)<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 全局_图片路径 ＝ 文件_取目录 (接收到的文件路径)<br /> .如果 (全局_图片路径 ≠ “”)<br />     图片_导入数据 ()<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _超级列表框1_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (功能, , )<br /> <br /> <br /> .子程序 读取参数设置<br /> <br /> 高 ＝ 到整数 (编辑框_高.内容)<br /> 宽 ＝ 到整数 (编辑框_宽.内容)<br /> 保存路径 ＝ 编辑框_保存路径.内容<br /> 品质参数 ＝ 到整数 (编辑框_品质.内容)<br /> 倍率 ＝ 到小数 (组合框_倍率.内容)<br /> 日志 (到文本 (倍率))<br /> <br /> ' -------------检查存储目录-------------<br /> .如果 (改变目录 (编辑框_保存路径.内容))<br />     日志 (“目录存在”)<br /> <br /> .否则<br />     创建目录 (编辑框_保存路径.内容)<br />     日志 (“创建目录：” ＋ 编辑框_保存路径.内容)<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _修改大小_被选择<br /> <br /> <br /> 线程_启动 (&图片_修改大小, , )<br /> <br /> <br /> .子程序 _清空列表_被选择<br /> <br /> 超级列表框1.全部删除 ()<br /> <br /> <br /> .子程序 日志<br /> .参数 内容, 文本型<br /> <br /> 编辑框_日志.加入文本 (内容 ＋ #换行符)<br /> 调试输出 (内容)<br /> <br /> .子程序 _标签1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 浏览文件夹 (“选择保存文件夹”, 假)<br /> <br /> .如果 (路径 ≠ “”)<br />     编辑框_保存路径.内容 ＝ 路径<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _hk条_品质_位置被改变<br /> <br /> 编辑框_品质.内容 ＝ 到文本 (hk条_品质.位置)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> <br /> <br /> .子程序 _压缩品质_被选择<br /> <br /> 线程_启动 (&图片_修改品质, , )

神一样的人猫腻

感谢分享

Av0x

有没有将GIF的图连续转出多个bmp的软件