如何将GIF转换成BMP文件(急。。) ( 积分: 300 )

如题

如题

http://www.delphibbs.com/delphibbs/dispq.asp?lid=493605

跟这个意思差不多，改一点就ok

procedure TxtToGif (txt, FileName: String);
var
temp: TBitmap;
GIF : TGIFImage;
begin
temp:=TBitmap.Create;
try
temp.Height :=400;
temp.Width :=60;
temp.Transparent:=True;
temp.Canvas.Brush.Color:=colFondo.ColorValue;
temp.Canvas.Font.Name:=Fuente.FontName;
temp.Canvas.Font.Color:=colFuente.ColorValue;
temp.Canvas.TextOut (10,10,txt);
Imagen.Picture.Assign(nil);
GIF := TGIFImage.Create;
try

GIF.Assign(Temp);
//保存 GIF
GIF.SaveToFile(FileName);
Imagen.Picture.Assign (GIF);
finally
GIF.Free;
end;
Finally
temp.Destroy;
End;
end;

不好使，只是把文件名改了，结构还是GIF

img1:=TGIFImage.Create;
img1.LoadFromFile('c:/img.gif');
img1.Bitmap.SaveToFile('c:/aaa.bmp');

这里试试看(theGif是TGifImage)
theGif.Images.SubImages[0].Bitmap

var
ChartStream:TMemoryStream;
GifImg:TGIFImage;
begin
GifImg:=TGIFImage.Create;
ChartStream:=TMemoryStream.Create;
IdHTTP1.Get('http://www.wg5i.com/Safecode.asp',ChartStream);
GifImg.LoadFromStream(ChartStream);
ChartStream.Free;
Image1.Picture.Bitmap:=GifImg.Bitmap;
哪有问题？