如何进行BMP到JPG的相互转换

Question

如何实现将JPG 转换成 BMP

Answer 1

uses Jpeg;var jpg: TJpegImage;
    bmp: TBitmap;  bmp := TBitmap.Create
  jpg := TJpegImage.Create;
  bmp.LoadFromFile('c:\123.bmp');
  jpg.Assign(bmp);
  jpg.SaveToFile('c:\123.jpg');
  jpg.Free;
  bmp.Free;

Answer 2

procedure TForm1.Button1Click(Sender: TObject); 
//必须加上JPEG到Uses单元 
var 
MyJPEG : TJPEGImage; 
MyBMP : TBitmap; 
begin 
MyBMP := TBitmap.Create; 
with MyBMP do 
try 
LoadFromFile('e:\aa.BMP');  
MyJPEG := TJPEGImage.Create; 
with MyJPEG do begin 
Assign(MyBMP); 
CompressionQuality:=10; //压缩比例 
Compress; 
SaveToFile('e:\aa.JPEG');//保存路径…… 
Free; 
end; 
finally 
Free; 
end; 
end;

Answer 3

uses Jpeg;//反过来也可以
var jpg: TJpegImage;
    bmp: TBitmap;  bmp := TBitmap.Create
  jpg := TJpegImage.Create;
  jpg.LoadFromFile('c:\123.jpg');
  bmp.Assign(jpg);
  bmp.SaveToFile('c:\123.bmp');
  bmp.Free;
  jpg.Free

Answer 4

如果你只想简单地使用 Delphi 内含的 Jpeg 单元的话，
可以类似下面这样处理：    b := TBitmap.Create;
    jp := TJpegImage.Create;
    b.LoadFromFile( 'aBitmapFile.BMP' );
    jp.CompressionQuality := 75;
    jp.PixelFormat := jf24bit;
    jp.Assign( b );
    jp.SaveToFile( 'aJpegFileName.jpg' );
    ....

Answer 5

有的bmp的图不行，在MyJPG.Assign(MyBMP);时出现bitmap is not valid的错误，但是这种bmp图片可以使用画图工具处理。不知道为什么。

Answer 6

这样试一下
uses Jpeg;var jpg: TJpegImage;
    bmp: TBitmap;  bmp := TBitmap.Create
  jpg := TJpegImage.Create;
  jpg.LoadFromFile('c:\123.jpg');
  bmp.Canvas.Draw(0,0,jpg);
  bmp.SaveToFile('c:\123.bmp');
  bmp.Free;
  jpg.Free