关于BMP到JPEG的转化！(50分)

C

coolmyf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #1

请问如何把BMP图转化为JPEG图象！谢谢！

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #2

procedure TForm1.Button1Click(Sender: TObject);
(*压缩MBP为JPEG;但是没有提供压缩比可选项
凑合用吧，大概1/3 ^_^:
Note:必须加上JPEG到Uses单元
*)
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('e:/lm.BMP'); //你的图片位置
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
CompressionQuality:=10; //压缩比例
Compress;
SaveToFile('e:/lm01.JPEG');//保存路径……
Free;
end;
finally
Free;
end;
end;

 

C

coolmyf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #3

这个我也看到了，但是我要别的方法！谢谢！

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp :TBitmap;
JPG :TJpegImage;
begin
Bmp :=TBitmap.Create;
Bmp.LoadFromFile('f:/图片/end004.bmp');
JPG :=TJpegImage.Create;
JPG.Assign(Bmp);
JPG.SaveToFile('c:/aaa.jpg');
Bmp.Free;
JPG.Free;
end;

记得添加jpeg单元。

 

K

kindly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #5

何谓别的方法,说清除一点

 

崔

崔占东

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #6

var
myjpeg: TJpegImage;
image1: Timage;
begin
image1 := Timage.Create;
Myjpeg := TJpegImage.Create;
Image1.LoadFromFile('bmpTest.Bmp');
Myjpeg.Assign(Image1.Bitmap);
Myjpeg.SaveToFile('jpegTest.jpg');
image1.free;
myjpeg.free;
end;

 

C

coolmyf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #7

接受答案了.