搜索
编程论坛 → 开发语言 → 『 VB6论坛 』 → [原创]图片压缩工具
标题：[原创]图片压缩工具
只看楼主
b13690976754
Rank: 1
等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
结帖率：100%
楼主
 问题点数：0 回复次数：11 
[原创]图片压缩工具
在论坛上放相片比较麻烦.QQ空间又要钱.其他地方又不给链接
一张相片一般在200~400KB左右。如果一帖20张，一页200张相片，就4~8M左右。一也网页负载8M是不可能的，就算如此打开网页也很慢。
所以我做了一个小小的软件-[图片压缩工具]，在微微减少一张相片的情况下，让图片大小缩小2~50倍.（因图片格式而义）如果全部压缩时出现白色现象属于正常现象,等待几秒到几分钟(看机器配件而定) 图片压缩工具

[[it] 本帖最后由 b13690976754 于 2008-2-21 16:52 编辑 [/it]]

打开.jpg (38.13 KB)


单个压缩.jpg (39.51 KB)


单个压缩完毕.jpg (43.73 KB)


全部压缩过程.jpg (40.04 KB)


群压缩完毕.jpg (44.23 KB)


正常显像.jpg (19.57 KB)


正常显像2.jpg (11.21 KB)


大小.jpg (27.62 KB)


图片压缩工具.rar (25.96 KB)
搜索更多相关主题的帖子: 工具　相片　压缩　网页　配件　
2008-02-17 22:14
b13690976754
Rank: 1
等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
第 2 楼
 得分:0 
嘻嘻 觉得好用就分享一下

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2008-02-17 22:14
西山居士
Rank: 4
等　级：贵宾
威　望：11
帖　子：581
专家分：0
注　册：2007-4-21
第 3 楼
 得分:0 
好久没见楼主了，一向可好

学海无涯
2008-02-18 22:06
b13690976754
Rank: 1
等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
第 4 楼
 得分:0 
西山居士 好久没见.以前谢谢你的照顾.之后我就去学习了JAVA.SQL.MYSQL.JSP等一些语言.最近在学外语.

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2008-02-18 22:12
b13690976754
Rank: 1
等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
第 5 楼
 得分:0 
优化的全部压缩的速度和时间.
以前200张图片 需要380多秒 现在只需要100秒左右(以我本人机器衡量的.不同配件时间稍微有些出入)

１１.jpg (38.9 KB)

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2008-02-19 00:11
??
Rank: 1
等　级：新手上路
帖　子：68
专家分：0
注　册：2007-11-24
第 6 楼
 得分:0 
放出源码吧,共同学习呀
2008-02-19 11:55
wyfandy
Rank: 1
来　自：深圳
等　级：新手上路
帖　子：376
专家分：0
注　册：2006-12-11
第 7 楼
 得分:0 
楼主可否给出代码或说出你的思路以便大家学习学习.

不论什么事，只要认准了一个目标，然后朝之不懈地努力，就一定实现。编程爱好者QQ群:21318556
2008-02-19 17:16
hundnn
Rank: 1
等　级：新手上路
帖　子：123
专家分：0
注　册：2007-8-23
第 8 楼
 得分:0 
是用VB写的吗？
2008-02-19 18:05
b13690976754
Rank: 1
等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
第 9 楼
 得分:0 
目前还在测试中...

1.修正全部压缩后的名字.
2.再次优化压缩速度
3.再次优化压缩大小

454张图片
274.9M

压缩只用了124秒
占空间29.5M

111.jpg (45.51 KB)


222.jpg (27.77 KB)


333.jpg (13.64 KB)

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2008-02-19 21:18
尐妖
Rank: 2
来　自：广东省
等　级：新手上路
威　望：3
帖　子：120
专家分：0
注　册：2008-2-16
第 10 楼
 得分:0 
是啊.期待楼主能共享代码.

倣棄?.﹎徻sんì嬄種繲脫嗎╃┈
2008-02-27 18:05



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-200199-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.441533 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved