當然用ExtractFileExt可以偵測副檔名是否為GIF 可是我遇到的問題是, 使用者把GIF副檔名改為JPG 這樣我圖到該圖時就會ERROR if(ExtractFileExt(OpenPictureDialog1->FileName).UpperCase()==".JPG" || ExtractFileExt(OpenPictureDialog1->FileName).UpperCase()==".JPEG") { TJPEGImage *jpg=new TJPEGImage; jpg->LoadFromFile(OpenPictureDialog1->FileName); //... } 想請問是否有可以判斷該圖是否為GIF圖檔資訊之方法? 如EXIF或如何安裝BCB GIF函式 或LoafFromFile錯誤時時可以自動略過錯誤 謝謝 發表人 - chocj 於 2005/06/02 14:41:22

您好: 使用try catch捕捉錯誤就好了.

謝謝SUPMAN大 這我之前有試過,以下是我的測試原碼 GIF的附檔名為JPG之圖檔本網頁左上角就有SMILE可以抓    也很有可能是我那邊寫錯,還請指教!    //---------------------------------------------------------------------------    #include  #pragma hdrstop #include #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) { if ( OpenPictureDialog1->Execute() ) { try { Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); Image1->AutoSize=true; Image1->Stretch=true; } catch(Exception &e) { int i=0; } } } //PO文章時空白怎麼加入呀 ~><~

您好:    PO程式碼的方式請參考版規說明,煩請修改謝謝您的配合 >

您好: 我測試是沒問題阿,可能是因為設計時期,BCB會秀出錯誤訊息,所以您認為會有錯誤訊息,如果您沒在BCB環境中,自己去執行那各執行檔,應該不會有錯誤才對

  if ( OpenDialog1->Execute() )
  {
    try
    {
      Image1->Picture->LoadFromFile(OpenDialog1->FileName);
      Image1->AutoSize=true;
      Image1->Stretch=true;
    }
    catch(Exception &e)
    {
     ShowMessage("錯誤喔");
    }
  }

引言: 您好: 我測試是沒問題阿,可能是因為設計時期,BCB會秀出錯誤訊息,所以您認為會有錯誤訊息,如果您沒在BCB環境中,自己去執行那各執行檔,應該不會有錯誤才對

  if ( OpenDialog1->Execute() )
  {
    try
    {
      Image1->Picture->LoadFromFile(OpenDialog1->FileName);
      Image1->AutoSize=true;
      Image1->Stretch=true;
    }
    catch(Exception &e)
    {
     ShowMessage("錯誤喔");
    }
  }

果然是這樣沒錯, 自己要多加強! ~><~