目前想要一個gif的VCL,可是板上的文章提供的GIF VCL都無法安裝在6.0上 請問一下哪裡找的到這個VCL呢?

luckfox您好: 您可以參可考下面連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31622 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

1.我測試了一下,發現會有如下的錯誤 unknow picture file extension(.gif) 2. 另外BCB中,當我們用TImage讀入GIF File,但是如何確定那是一個正確的GIF File呢        //---------------------------------------------------------------------------    #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include  #include #include #include <Forms.hpp> #include #include #include #include #include #include #include "JPEG.hpp" #include "GIFimage.hpp" //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TImage *Image1; TIdHTTP *IdHTTP1; TButton *Button1; void __fastcall Button1Click(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TMemoryStream *ms; ms=new TMemoryStream(); IdHTTP1->Get("http://tw.yimg.com/i/tw/hp/yk_masthead_15.gif", ms); if(IdHTTP1->ResponseCode==200) { ms->SaveToFile("C:\\banner.gif"); } if(FileExists("C:\\banner.gif")) Image1->Picture->LoadFromFile("C:\\banner.gif"); delete ms; }