将BMP文件转换为JPEG文件
编号：QA000703
建立日期: 1999年3月26日 最后修改日期：1999年3月26日
所属类别：
Ｑ
worm:
Delphi 4
win98
Delphi4中的TJpegImage类能否将bmp文件读入,且将其转换为jpeg格式的文件再存盘?若能,敬请予以指点。
Ａ回答:
用下面这段代码就可以实现这种转换。
procedure TForm1.Button1Click(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
Begin
bmp:= TBitmap.Create;
try
bmp.LoadFromFile( 'e:\car.bmp' );
jpeg:= TJPEGImage.Create;
try
jpeg.Assign( bmp );
jpeg.compress;
jpeg.SaveTofile( 'e:\car.jpg');
finally
jpeg.free
end;
finally
bmp.free
end;
end;
将上面代码中的jpeg和bmp交换一下就成了将jpeg转换为bmp。
此问题由李海回答。
| |
|
|
| |
|
|
