如何把图片大小缩小至指定大小？

wh1234567

易语言如何把图片的大小缩小到指定大小以下？例如：图片大小为15MB压缩到100KB以下？如果是宽高尺寸不变的情况下，利用 转换到JPG (文件名,文件名 , 假, 这里设置到多少才符合条件？）如何判断？求完整例子



补充内容 (2025-2-7 21:41):
或者有没有更好的办法

补充内容 (2025-2-8 04:24):

编辑框1里有图片或者其他文件的完整路径，例如：D:\reDis\gam\aecenter.PNG，如何在文件名称后面添加字符“修改”，不是后缀名，是名称后面，也就是.....

1752328925

完美完美完美

梦雨心君

做个循环判断呀，先压缩率为90%，如果超过大小，则再次进行压缩90% 。

wh1234567

1752328925 发表于 2025-2-7 21:49
完美完美完美

感谢帮助，问问，循环里加了 计次数 ＝ 计次数 ＋ 1 好像次数多了1次

补充内容 (2025-2-7 22:30):
在循环标签1.标题 ＝ “第” ＋ 到文本 (计次数) ＋ “ 压缩质量” ＋ 到文本 (压缩质量) ＋ “ 大小” ＋ 到文本 (文件大小)
为啥在运行中不显示？

wh1234567

1752328925 发表于 2025-2-7 21:49
完美完美完美

若若问老师一个问题：把图片尺寸修改小算不算也叫压缩？

是可可吖

是在编辑框里改还是在文件完整路径的文件名后面改？例如：D:\reDis\gam\aecenter修改.PNG

wh1234567

是可可吖 发表于 2025-2-8 04:34
是在编辑框里改还是在文件完整路径的文件名后面改？例如：D:\reDis\gam\aecenter修改.PNG ...

修改编辑框里的路径即可，也就是例如：D:\reDis\gam\aecenter.PNG 修改成D:\reDis\gam\aecenter修改.PNG

补充内容 (2025-2-8 04:37):
不实际修改文件名称，只修改编辑框里这段路径字符即可

是可可吖

wh1234567 发表于 2025-2-8 04:36
修改编辑框里的路径即可，也就是例如：D:\reDis\gam\aecenter.PNG 修改成D:\reDis\gam\aecenter修改.PNG
...

  

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

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

文本 ＝ 文本_取左边 (编辑框1.内容, “.”, , )
编辑框1.内容 ＝ 文本 ＋ “修改” ＋ “.PNG”

.版本 2<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 文本_取左边 (编辑框1.内容, “.”, , )<br /> 编辑框1.内容 ＝ 文本 ＋ “修改” ＋ “.PNG”

wh1234567

是可可吖 发表于 2025-2-8 04:39
[e=2].版本 2

.子程序 _按钮3_被单击

非常感谢老师正确帮助，

wh1234567

是可可吖 发表于 2025-2-8 04:39
[e=2].版本 2

.子程序 _按钮3_被单击

对了，忘记了，如果是给这个路径的文件名追加这个字符的话怎么修改？仅仅修改编辑框估计不行吧？

补充内容 (2025-2-8 04:55):
要编辑框里的路径和实际文件的名称同时修改才行