delphi Jpg和Gif轉Bmp

begin 

    bmp:=TBitmap.Create; 

    jpeg:=TJPEGImage.Create; 

    jpeg.LoadFromFile(fname); 

    with bmp do 

    begin 

      PixelFormat:=pf24bit; 

      Height:=60; 

      Width:=self.RzListBox.Width; 

      Canvas.Brush.Color:=$00F0EDE6; 

      Canvas.FillRect(Canvas.ClipRect); 

      Canvas.StretchDraw(Bounds(0,0,80,60), jpeg); 

    end; 

  //這裡你可以用save之類的方法了 

  bmp.Free; 

  jpeg.Free; 



--------------------------------------------------------


--convert JPEG to BMP 


uses 

  JPEG; 


procedure JPEGt*****P(const FileName: TFileName); 

var 

  jpeg: TJPEGImage; 

  bmp:  TBitmap; 

begin 

  jpeg := TJPEGImage.Create; 

  try 

    jpeg.CompressionQuality := 100; {Default Value} 

    jpeg.LoadFromFile(FileName); 

    bmp := TBitmap.Create; 

    try 

      bmp.Assign(jpeg); 

      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp')); 

    finally 

      bmp.Free 

    end; 

  finally 

    jpeg.Free 

  end; 

end; 





--------------------------------------------------------


--有一個TGIFImage組件 


function GifT*****p(filename: string): TBitmap; 

var 

GIF: TGIFImage; 

begin 

GIF := TGIFImage.Create; 

try 

GIF.LoadFromFile(filename); 

Result := TBitmap.Create; 

Result.Assign(GIF.Bitmap); 

finally 

GIF.Free; 

end; 

end;