58问答库 > Delphi的一段jpg转换成bmp的代码，就几行，求挨行测试，有源代码。

Delphi的一段jpg转换成bmp的代码，就几行，求挨行测试，有源代码。

2025-04-16 14:00:08

推荐回答（1个）

回答（1）：

Var  
  jpeg: TJPEGImage;  
  bmp: TBitmap;  
Begin  
  jpeg:= TJPEGImage.Create;  
  try  
    jpeg.LoadFromFile( filename );  
    bmp:= TBitmap.Create;  
    try  
      bmp.Assign( jpeg );  
      bmp.SaveTofile( ChangeFileExt( filename, '.BMP' ));  
    finally  
      bmp.free  
    end;  
  finally  
    jpeg.free  
  end;  
end;