delphi里怎样加载*.gif图片?

我想加载一幅gif图片，但delphi的image控件却不支持*.gif 格式，请哪位大虾教小弟一法实现之！！万分感谢。

解决方案 »

  1.   

    http://finn.mobilixnet.dk/delphi/Anders写的噢？一流！！！
      

  2.   

    下下来的控件添加不起，谁有用得起的TGifImage控件，请发到
    请注明csdn的id，一经试用成功，马上给分！！多谢。
    （ps:我使用Delphi7!!!）
      

  3.   

    僅供參考：
    uses graphics, jpeg; procedure ConvertBMPtoJPG(filename:string);
    Var
    J:TJpegImage;
    I:TBitmap;
    S:String;
    begin
    s:=filename;
    J:=TJpegImage.Create;
    I:=TBitmap.Create;
    I.LoadFromFile(s);
    J.Assign(I);
    I.Free;s:=changefileext(s, '.jpg');
    J.SaveToFile(s);
    Application.processmessages;
    J.Free;
    end;
    procedure ConvertJPGtoBMP(filename:string);
    Var
    J:TJpegImage;
    I:TBitmap;
    s:string;
    begin
    s:=filename;
    I:=TBitmap.Create;
    J:=TJpegImage.Create;
    J.LoadFromFile(s);
    I.Assign(J);
    J.Free;s:=changefileext(s, '.bmp');
    I.SaveToFile(s);
    I.Free;
    Application.processmessages;
    end;
      

  4.   

    songlian77，多谢你提供的解决*.jpg文件的问题，但我需要的是解决*.gif文件的问题，还望重新赐教！谢谢！
      

  5.   

    其实D6开始TImage完全可以支持gif动画的，只要引用gifimage单元就可以了，不过有些D版没有这个单元，你可以去网上搜一下，很多地方都有下载。
      

  6.   

    用RxLib控件中的RxGIFAnimator我个人认为比TGifImage好占资源少～
      

  7.   

    来这里下载GifImage控件：http://202.96.70.228/cakk/delphi/gifimage.exeuses gifimage;var
    　FBitmap :TBitmap;
    　FGif :TGifImage;
    begin
    　FGif :=TGifImage.Create;
    　FGif.LoadFromFile('.......');
    　FBitmap :=TBitmap.Create;
    　//FBitmap.PixelFormat :=pf24bit;
    　FBitmap.Assign(FGif);
    　FGif.Free;
    　Image.Picture.Bitmap.Assign(FBitmap);
    　FBitmap.Free;
    end; 
      

  8.   

    Rijie(做人真难),请问RxLib控件在哪下载？