怎么用delphi将jpeg图像转换为bmp

Question

google了一下都说用TJPEGImage这个控件，还说什么在Dehphi目录下的Info\Extras\JPEG里，但我在delphi7里没找到这个控件啊，有谁能提供一个吗？谢谢

Answer 1

它是一个类，不是控件。
uses
  Graphics, Jpeg;procedure .....
var 
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  jpg := TJpegImage.Create;
  jpg.LoadFromFile('.....');
  bmp := TBitmap.Create;
  bmp.PixelFormat := pf24Bit;
  bmp.Width := jpg.Width;
  bmp.Height := jpg.Height;
  bmp.Assign(jpg);
  bmp.SaveToFile('....');
  jpg.Free;
  bmp.Free;
end;

Answer 2

他这种算怎么封装的，TJpegImage的源代码都看不到，提示unable to locat file

Answer 3

procedure 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;