Gdiplus类模块使用问题

xb52014725 · 发表于 2020-8-25 13:05:17

做的批量JPG合成TIF
例:
JPG图1 600K 图2 300K 合成到TIF后文件到了3MB```

求解文件导出后过大的问题

源码模块.zip (308.18 KB, 下载次数: 9)

2020-8-25 13:04 上传

点击文件名下载附件

代码如下

子程序名	返回值类型	公开	备注
_一键处理_被单击

变量名	类型	静态	数组	备注
输出名	文本型
分割量	文本型		0
a	整数型
b	整数型
i	整数型
编码器参数	编码器参数集

主目录定位＝取运行目录 ()
信息执行 (“主目录:” ＋主目录定位)
子目录数量＝目录_枚举子目录 (主目录定位, 子目录数组, 真)
信息执行 (“共计子目录:” ＋到文本 (子目录数量))

计次循环首 (子目录数量, a)

清除数组 (分割量)

分割量＝分割文本 (子目录数组 [a], “\”, )

输出名＝分割量 [取数组成员数 (分割量)]

计次循环首 (取数组成员数 (图像), i)

图像 [i].销毁 ()

计次循环尾 ()

清除数组 (子子目录内文件)

列表框1.清空 ()

文件_枚举 (子目录数组 [a], “*.jpg”, 子子目录内文件, 真)

计次循环首 (取数组成员数 (子子目录内文件), b)

列表框1.加入项目 (子子目录内文件 [b], )

计次循环尾 ()

计次循环首 (取数组成员数 (图像), i)

图像 [i].销毁 ()

计次循环尾 ()

如果真 (列表框1.取项目数 () ＝ 0)

返回 ()

重定义数组 (图像, 假, 列表框1.取项目数 ())

计次循环首 (取数组成员数 (图像), i)

图像 [i].创建自文件 (列表框1.取项目文本 (i － 1))

计次循环尾 ()

' 本源码来自易语言资源网([url]www.eyuyan.la[/url])

编码器参数.参数数量＝ 1

编码器参数.编码器参数 [1].编码器Guid ＝ #编码器_保存标志

编码器参数.编码器参数 [1].值成员数＝ 1

编码器参数.编码器参数 [1].值类型＝ #编码器参数值类型_整数型

编码器参数.编码器参数 [1].值＝到字节集 ( #编码器值_多帧编码 )

' 将第一幅图像保存

信息执行 (输出名＋ “.TIF 文件输出”)

图像 [1].保存到文件 (主目录定位＋ “\” ＋输出名＋ “.TIF”, #图像格式_TIFF, 编码器参数)

' 追加保存其他图像

编码器参数.编码器参数 [1].值＝到字节集 ( #编码器值_帧维面页 )

计次循环首 (取数组成员数 (图像) － 1, i)

图像 [1].保存添加图像 (图像 [i ＋ 1], 编码器参数)

计次循环尾 ()

' 最后刷新

编码器参数.编码器参数 [1].值＝到字节集 ( #编码器值_刷新 )

图像 [1].保存添加 (编码器参数)

计次循环尾 ()
信息执行 (“输出结束”)

.版本 2<br />
<br />
.子程序 _一键处理_被单击<br />
.局部变量 输出名, 文本型<br />
.局部变量 分割量, 文本型, , "0"<br />
.局部变量 a, 整数型<br />
.局部变量 b, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 编码器参数, 编码器参数集<br />
<br />
主目录定位 ＝ 取运行目录 ()<br />
信息执行 (“主目录:” ＋ 主目录定位)<br />
子目录数量 ＝ 目录_枚举子目录 (主目录定位, 子目录数组, 真)<br />
信息执行 (“共计子目录:” ＋ 到文本 (子目录数量))<br />
.计次循环首 (子目录数量, a)<br />
    清除数组 (分割量)<br />
    分割量 ＝ 分割文本 (子目录数组 [a], “\”, )<br />
    输出名 ＝ 分割量 [取数组成员数 (分割量)]<br />
    .计次循环首 (取数组成员数 (图像), i)<br />
        图像 <i>.销毁 ()<br />
    .计次循环尾 ()<br />
    清除数组 (子子目录内文件)<br />
    列表框1.清空 ()<br />
    文件_枚举 (子目录数组 [a], “*.jpg”, 子子目录内文件, 真)<br />
    .计次循环首 (取数组成员数 (子子目录内文件), b)<br />
        列表框1.加入项目 (子子目录内文件 <strong>, )<br />
    .计次循环尾 ()<br />
    .计次循环首 (取数组成员数 (图像), i)<br />
        图像 <i>.销毁 ()<br />
    .计次循环尾 ()<br />
    .如果真 (列表框1.取项目数 () ＝ 0)<br />
        返回 ()<br />
    .如果真结束<br />
    重定义数组 (图像, 假, 列表框1.取项目数 ())<br />
    .计次循环首 (取数组成员数 (图像), i)<br />
        图像 <i>.创建自文件 (列表框1.取项目文本 (i － 1))<br />
    .计次循环尾 ()<br />
    ' 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br />
    编码器参数.参数数量 ＝ 1<br />
    编码器参数.编码器参数 [1].编码器Guid ＝ #编码器_保存标志<br />
    编码器参数.编码器参数 [1].值成员数 ＝ 1<br />
    编码器参数.编码器参数 [1].值类型 ＝ #编码器参数值类型_整数型<br />
    编码器参数.编码器参数 [1].值 ＝ 到字节集 (#编码器值_多帧编码)<br />
    ' 将第一幅图像保存<br />
    信息执行 (输出名 ＋ “.TIF 文件输出”)<br />
    图像 [1].保存到文件 (主目录定位 ＋ “\” ＋ 输出名 ＋ “.TIF”, #图像格式_TIFF, 编码器参数)<br />
    ' 追加保存其他图像<br />
    编码器参数.编码器参数 [1].值 ＝ 到字节集 (#编码器值_帧维面页)<br />
    .计次循环首 (取数组成员数 (图像) － 1, i)<br />
        图像 [1].保存添加图像 (图像 [i ＋ 1], 编码器参数)<br />
    .计次循环尾 ()<br />
    ' 最后刷新<br />
    编码器参数.编码器参数 [1].值 ＝ 到字节集 (#编码器值_刷新)<br />
    图像 [1].保存添加 (编码器参数)<br />
.计次循环尾 ()<br />
信息执行 (“输出结束”)