请各位大侠帮忙,怎么才能把40多K的。JPG文件压缩成几K的。JPG文件(100分)

  • 主题发起人 主题发起人 huwei7200
  • 开始时间 开始时间
H

huwei7200

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位大侠帮忙,怎么才能把40多K的。JPG文件压缩成几K的。JPG文件
 
恐怕不行,高手来回答吧
 
photoshop转换
 
jpg := tjpegimage.Create;
try
jpg.Assign(BmpNow);
jpg.CompressionQuality:=30;
jpg.SaveToStream(jf);
finally
jpg.Free;
end;

调整CompressionQuality可以改变大小。
jpg本身压缩量就比较大,所以还要再减少大小会损失图像质量的。
jpg的PixelFormat实际上只有jf24Bit一种模式,所以无法通过改变
PixelFormat来得到更小的图片。
 
uses Jpeg;

var
myjpg:TJpegImage;
begin
myjpg:=TJpegImage.Create ;
myjpg.LoadFromFile('......');
myjpg.CompressionQuality := //这里设定压缩比1..100
myjpg.Compress;
myjpg.SaveToFile('.....');
myjpg.Free;
end;
 
Jpeg文件本身的压缩比就相当高了,要压缩成那么小的文件几乎没有可能。除非可以
同时缩小图片的尺寸,那就可以用楼上那位所说的ACDSEE的TOOLS下的RESIZE命令,
将尺寸设为原来的30%左右就可以了。我用卷兄的方法得出的只是一个0K大小的文件。
 
to HunterTeam:卷兄的方法应该没有问题。
 
我试了可以
 
为什么我使用Jpeg在uses中,使用卷兄的方式时提示我'JPEG error #52'?
 
关于这个问题,这里有讨论,解决了:

http://www.delphibbs.com/delphibbs/dispq.asp?lid=945589
 
卷兄:
我COPY你讲的方法,还是提示'JPEG error #52'!
是不是要安装什么控件?
 
你试着换换其他的jpeg图片看看,有的图片不行的。
 
卷兄:
换一个JPG图片确实可以!!!
为什么有的不行呢,我要压缩的图片是我扫描后保存为JPG的图片,
这种压缩不行,有没有别的办法?
谢谢!!!
 
扫描后,你可以保存为jpg、jpeg、tiff。。。。。。等等。
自己试试哦。偶没有扫描仪。。。。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部