格式转换 ( 积分: 30 )

怎样将bmp转换成jpg or jpeg ?
有没有其他格式间的转换?

bmp --> jpeg;
uses JPEG;
var
xJPEG : TJPEGImage;
xBMP : TBitmap;
begin
xBMP := TBitmap.Create;
try
xBMP.LoadFromFile('C:/x.BMP');
xJPEG := TJPEGImage.Create;
with xJPEG do
begin
Assign(xBMP);
{ 压缩 }
CompressionQuality:=10;
Compress;
SaveToFile('C:/x.JPEG');
free;
end;
finally
xBMP.free;
end;
end;
*************************************
jpeg --> bmp
uses JPEG;
var
xJPEG : TJPEGImage;
xBMP : TBitmap;
begin
xJPEG:= TJPEGImage.Create;
try
xJPEG.LoadFromFile('C:/x.JPEG);
xBmp := TBitMap.Create;
with xBmp do
begin
Assign(xJpeg);
{ 压缩 }
CompressionQuality:=10;
Compress;
SaveToFile('C:/x.bmp);
free;
end;
finally
xJpeg.free;
end;
end;