delphi实现jpg图片转换成bmp格式

将一个jpg格式的图片文件转换为bmp格式的文件，如果直接将扩展名jpg改成bmp，在XP及以上的系统中能自动识别打开bmp文件，但在2000及以下的系统中就会提示格式错误，这段代码实现了jpg格式到bmp格式的转换，转换后的bmp文件在2000以下的系统中也能正确打开 

procedure TForm1.JpgToBmp(const JpgFile, BmpFile: string);
var
  jpg: TJPEGImage;
  Bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  try
    jpg.LoadFromFile(JpgFile);
    Bmp.Assign(jpg);
    Bmp.SaveToFile(BmpFile);
  finally
    jpg.Free;
    Bmp.Free;
  end;
end;

 

转换例子：

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  SFile, DFile: string;
begin
  SFile := ExtractFilePath(Application.ExeName) + '1.jpg';
  DFile := ExtractFilePath(Application.ExeName) + '1.bmp';
  JpgToBmp(SFile, DFile);
end;

使用这段代码需要引用单元jpeg。