关于【转换到JPG】如何预览转换后的文件大小？

小小的世界

如题：在使用 转换到JPG （） 的时候，如何预览转换后的文件大小？我的目标是可以调整参数，预览转换后的文件大小，再进行转换。

原图片 3M左右，目标==》小于 500KB

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

转换到JPG (, , 假, 75, 真, 0)
' 源图片 比如 3MB
' 调整参数后，预览小于500KB后，再转换输出文件。

i支持库列表	支持库注释
eImgConverter	图像格式转换支持库

.版本 2<br /> .支持库 eImgConverter<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 转换到JPG (, , 假, 75, 真, 0)<br /> <br /> <br /> ' 源图片 比如 3MB<br /> ' 调整参数后，预览小于500KB后，再转换输出文件。

麻拐

图片压缩代码.e (6.54 KB, 下载次数: 2)

2025-2-10 16:32 上传

点击文件名下载附件
回来了重新编了一下，可以调节输出大小的。新手写得有点啰嗦！

kingtt

精易模块

.版本 2

.子程序 _按钮1_被单击
.局部变量 原图, 字节集
.局部变量 转换后的图, 字节集
.局部变量 转换后的文件大小, 整数型

原图 ＝ 读入文件 (“F:\原图.png”)
图片_转换 (原图, 2, , 转换后的图, )
转换后的文件大小 ＝ 取整 (字节集_取长度 (转换后的图) ÷ 1024)
.判断开始 (转换后的文件大小 ＜ 500)
    写到文件 (“F:\转换后.jpg”, 转换后的图)
.默认
    信息框 (“转换后的jpg图片大于或等于500kb”, 0, , )

麻拐

图片压缩代码.e (6.07 KB, 下载次数: 0)

2025-2-10 14:12 上传

点击文件名下载附件

大概就是这个意思，没写完，我有急事要出门了。你自己修改一下就行了！！！希望可以帮到你！



补充内容 (2025-2-10 14:14):
压缩后的大小在标签没写出来，还有就是写出文件功能没写·你自己优化一下！

华庭大哥

  

子程序名	返回值类型	公开	备 注
预览并转换到JPG	逻辑型
参数名	类 型	参考	可空	数组	备 注
原图片路径	文本型
目标路径	文本型
最大文件大小	整数型				默认500000  ' 500KB = 500 * 1024 = 512000字节

变量名	类 型	静态	数组	备 注
质量	整数型
临时路径	文本型
文件大小	整数型

如果真 (是否为空 (最大文件大小))
最大文件大小 ＝ 500000

' 初始化质量参数
质量 ＝ 100  ' 初始质量为100（最高质量）
' 临时文件路径
临时路径 ＝ 取特定目录 ( #临时文件目录 ) ＋ “\temp_preview.jpg”
' 循环调整质量
循环判断首 ()
' 转换图片并保存到临时文件
转换到JPG (原图片路径, 临时路径, 真, 质量, 真, 0)
' 获取临时文件大小
文件大小 ＝ 取文件尺寸 (临时路径)
' 判断文件大小是否符合要求
如果真 (文件大小 ≤ 最大文件大小)
' 符合要求，正式保存并退出循环
复制文件 (临时路径, 目标路径)
删除文件 (临时路径)
返回 (真)

' 调整质量参数
质量 ＝ 质量 － 5  ' 每次降低5%质量
调试输出 (“文件大小”, 文件大小, “质量”, 质量)
循环判断尾 (文件大小 ＞ 最大文件大小 且 质量 ＞ 0)
' 如果循环结束仍未找到合适参数，返回失败
删除文件 (临时路径)
返回 (假)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
eImgConverter	图像格式转换支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 eImgConverter<br /> .支持库 spec<br /> <br /> .子程序 预览并转换到JPG, 逻辑型<br /> .参数 原图片路径, 文本型<br /> .参数 目标路径, 文本型<br /> .参数 最大文件大小, 整数型, 可空, 默认500000  ' 500KB = 500 * 1024 = 512000字节<br /> .局部变量 质量, 整数型<br /> .局部变量 临时路径, 文本型<br /> .局部变量 文件大小, 整数型<br /> <br /> .如果真 (是否为空 (最大文件大小))<br />     最大文件大小 ＝ 500000<br /> <br /> .如果真结束<br /> <br /> ' 初始化质量参数<br /> 质量 ＝ 100  ' 初始质量为100（最高质量）<br /> ' 临时文件路径<br /> 临时路径 ＝ 取特定目录 (#临时文件目录) ＋ “\temp_preview.jpg”<br /> ' 循环调整质量<br /> .循环判断首 ()<br />     ' 转换图片并保存到临时文件<br />     转换到JPG (原图片路径, 临时路径, 真, 质量, 真, 0)<br />     ' 获取临时文件大小<br />     文件大小 ＝ 取文件尺寸 (临时路径)<br />     ' 判断文件大小是否符合要求<br />     .如果真 (文件大小 ≤ 最大文件大小)<br />         ' 符合要求，正式保存并退出循环<br />         复制文件 (临时路径, 目标路径)<br />         删除文件 (临时路径)<br />         返回 (真)<br />     .如果真结束<br /> <br />     ' 调整质量参数<br />     质量 ＝ 质量 － 5  ' 每次降低5%质量<br />     调试输出 (“文件大小”, 文件大小, “质量”, 质量)<br /> .循环判断尾 (文件大小 ＞ 最大文件大小 且 质量 ＞ 0)<br /> <br /> ' 如果循环结束仍未找到合适参数，返回失败<br /> 删除文件 (临时路径)<br /> 返回 (假)

小小的世界

麻拐 发表于 2025-2-10 16:33
回来了重新编了一下，可以调节输出大小的。新手写得有点啰嗦！

这个是当前的办法：先生成临时文件，判断大小后生成结果。
要是有跳过临时文件的办法，那最棒了。

小小的世界

华庭大哥 发表于 2025-2-10 15:19
[e=0].版本 2
.支持库 shell
.支持库 eImgConverter

这个是当前的办法：先生成临时文件，判断大小后生成结果。
要是有跳过临时文件的办法，那最棒了。

小小的世界

kingtt 发表于 2025-2-10 13:44
精易模块

.版本 2

这个是当前的办法：先生成临时文件，判断大小后生成结果。
要是有跳过临时文件的办法，那最棒了。