图像格式转换？？？(100分)

我

我想飞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #1

小弟是新手，在程序中想实现bmp 与 jpg 格式的图像的相互转换，请问各位如何实现？？[]

 

P

puyd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #2

Delphi有个JPG的类，可以先把BMP读到一个Image里，再存到一个JPG里面

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #3

var
i:tbitmap;
j:tjpegimage;
procedure.....click()
begin
form1.savepicturedialog1.defaultext:='jpg';
i:tbitmap.create;
j:=tjpegimage.create;
i.loadfromfile(form1.openpicturedialog1.filename);
j.assign(i);
if form1.savepicturedialog1.execute then
j.savetofile(form1.savepicturedialog1.filename);
i.free;
j.free;
end;

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #4

给分！

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #5

记得在Uses部分加上：Jpeg.

procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
jpg:TJpegImage;
begin
if od.Execute then //od是OpenDialog
begin
bmp:=TBitmap.Create;
jpg:=TJpegImage.Create;
try
bmp.LoadFromFile(od.FileName);
jpg.Assign(bmp);
jpg.SaveToFile('d:/temp/test.jpg');
finally
bmp.Free;
jpg.Free;
end;
end;
end;

 

我

我想飞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #6

多人接受答案了。