如何转换图像格式！？(30分)

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #1

用delphi抓取了一幅图像放在一个image里，要把这图像保存为jpg格式，压缩为33%。该如何编写
代码！？主要是压缩，保存可以用Image.Picture.SaveToFile('d:/图库/1.jpg');
请各位大虾指导。
谢谢。

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #2

去www.vclxx.org 看看是否这种控件

如果你很牛 就自己写个压缩算法

 

V

varphone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #3

You can see the property in the TJpeg,to set compress you can set the
quality property!

 

V

varphone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #4

Oh,i forget to tell you add the JPEG unit,the delphi4-5 include the JPEG unit!

 

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #5

to varphone:
我知道这样
Temp :=image.Picture.Graphic is TJPEGImage;
if Temp then
with TJPEGImage( image.Picture.Graphic ) do
CompressionQuality := 33;
image.Picture.SaveToFile('d:/图库/'+inttostr(i)+'.jpg');
但是保存的图像还是很大，我只希望有几十K。
清说详细一些好么！？

 

C

Criss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #6

1。首先保存在 Image1中的图象格式是BMP；
2。保存为JPG格式时，应该进行转化。
。。。
Bitmap=image1中的位图，
然后按下面的代码试一下。
jpg:=tjpegimage.Create ;
jpg.CompressionQuality :=33;
jpg.Assign (Bitmap);
jpg.SaveToFile (文件名+'.JPG') ;


。。。。

 

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #7

多人接受答案了。