如何開除了bmp以外的圖檔

發文回覆瀏覽次數：1363

推到 Plurk!

推到 Facebook!

尚未結案

jane7374015
一般會員

發表：5
回覆：3
積分：1
註冊：2005-06-08

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-07-27 14:44:36

IP:163.17.xxx.xxx 未訂閱

各位大大好請問如何使用OpenPictureDialog1開 *.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf show在 Image 在預設雖然有以上那些檔可是我點選了除了bmp以外的就錯了

poaivy
中階會員

發表：40
回覆：78
積分：53
註冊：2004-08-09

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-07-28 09:30:42

IP:140.117.xxx.xxx 未訂閱

必須include其他檔案 #include "jpeg.hpp" 請參考這一篇：

RedSnow
版主

發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我

#3 引用回覆回覆

發表時間：2005-07-28 23:22:42

IP:61.230.xxx.xxx 未訂閱

jane7374015 妳好：以下是我的寫法，妳參考一下吧：

// 我的環境是 BCB4，不清楚其它版本是否需要引入下列檔案？
#include "gifimage.hpp"
#include     if(OpenPictureDialog1->Execute()){
    bool SupportFiles = true;
    Graphics::TBitmap *tmpBitmap = new Graphics::TBitmap();        AnsiString fName = OpenPictureDialog1->FileName;
    AnsiString curExt = LowerCase(ExtractFileExt(fName));        if(curExt == ".gif"){
        TGIFImage *GIF = new TGIFImage;
        GIF->LoadFromFile(fName);
        tmpBitmap->Assign(GIF);
        delete GIF;
    }else if(curExt == ".jpg" || curExt == ".jpeg"){
        TJPEGImage *JPEG = new TJPEGImage;
        JPEG->LoadFromFile(fName);
        tmpBitmap->Assign(JPEG);
        delete JPEG;
    }else if(curExt == ".emf" || curExt == ".wmf"){
        TMetafile *WMF = new TMetafile;
        WMF->Width=Width;
        WMF->Height=Height;
        WMF->LoadFromFile(fName);
        WMF->Enhanced = true;            tmpBitmap->Height = WMF->Height;
        tmpBitmap->Width = WMF->Width;
        tmpBitmap->Canvas->Draw(0, 0, WMF);
        delete WMF;
    }else if(curExt == ".ico"){
        TIcon *TheIcon = new TIcon();            TheIcon->LoadFromFile(fName);
        tmpBitmap->Height = TheIcon->Height;
        tmpBitmap->Width = TheIcon->Width;
        tmpBitmap->Canvas->Draw(0, 0, TheIcon);
        delete TheIcon;
    }else if(curExt == ".bmp"){
        tmpBitmap->LoadFromFile(fName);
    }else{
        ShowMessage("本程式尚未支援 " curExt " 類型的檔案！");
        SupportFiles = false;
    }        if(SupportFiles){
        Image1->Picture->Bitmap->Assign(tmpBitmap);
    }        delete tmpBitmap;
}

7 天天敲鍵盤 v 時時按滑鼠 8

系統時間：2024-04-18 15:15:19

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！