用 下 面 这 段 代 码 就 可 以 实 现 这 种 转 换 。
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。