Jpg和Gif转Bmp

[luincnyou]

谁能给一个Jpg转Bmp和Gif转Bmp的代码？谢啦~~

[iuIRCClient]

var
jpeg:TJPEGImage;
bmp:TBitMap;

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;

[hongqi162]

--convert JPEG to BMP

uses
JPEG;

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

[hongqi162]

--有一个TGIFImage组件

function GifToBmp(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;

[iuIRCClient]

方法有很多种，有画上去的，有用组件转换的，条条大路通罗马啊

[hangzhou_hammer]

啊扑~~

[luincnyou]

TGIFImage是哪的？还有啊，我的image控件可以显示gif的，能不能用它转换呢？我不想用第三方组件。谢谢。

[iuIRCClient]

不管用什么方法转，自已画上去都肯定没有问题的。参考上面我的答案

[brightyang]

image可以显示gif?

[luincnyou]

我的image控件gif、jpg都可以显示。。。

[bamfk10231023]

如何取得　gif 某个区域的图象，如果透明也透明
draw不支持Rect呀.

[sumland]

请问哪里有gif解码的C语言库呢？