各位前輩大家好! 小弟有一個問題 BCB 好像沒支援JPEG 圖檔 請問要如何撰寫vcl 或 程式 我可以直接用OpenPictureDialog去開檔 .. 第一次寫軟體 還請各位多多指教! ^^

引言: BCB 好像沒支援JPEG 圖檔 請問要如何撰寫vcl 或 程式 我可以直接用OpenPictureDialog去開檔 .. 第一次寫軟體 還請各位多多指教! ^^

auslk 你好: 有，請參考以下的連結文章 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { TJPEGImage *jpg=new TJPEGImage; jpg->LoadFromFile("C:\\hand.jpg"); Image1->Stretch=true; Image1->Picture->Assign(jpg); delete jpg; } -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/02/17 16:40:10

Dear 先進們, 小弟我想小弟是比較笨一 呵呵 試過上述方式,還是未得到想要的設計 我ㄉ構想很簡單 使用 OpenPictureDialog->Execute(); 直接取jpeg檔案 而非直接開檔 您所提到的方法 好像不是我要的重點 因為程式會直接開檔(還沒觸發前就執行了) 還請高手幫忙^^ 謝謝

引言: Dear 先進們, 小弟我想小弟是比較笨一 呵呵 試過上述方式,還是未得到想要的設計 我ㄉ構想很簡單 使用 OpenPictureDialog->Execute(); 直接取jpeg檔案 而非直接開檔 您所提到的方法 好像不是我要的重點 因為程式會直接開檔(還沒觸發前就執行了) 還請高手幫忙^^ 謝謝

auslk 你好: 那這樣呢(麻煩詳述你的問題)?? < class="code"> if(OpenPictureDialog1->Execute()) { if(FileExists(OpenPictureDialog1->FileName)) { // 在這裡做你想要做的事情 } } 備註: 另外~~你要設定 OpenPictureDialog1 中的 Filter 屬性(jpg, jpeg) 詳細的使用方法~~建議你查詢 BCB Help 中的說明(有問題再提出) --

多謝您囉!     if(OpenPictureDialog1->Execute())       {        if(FileExists(OpenPictureDialog1->FileName))                   {         // 在這裡做你想要做的事情           }    }    這一段重點是要開jpeg  這是無法開啟ㄉ  您可以幫我如何使用下一段程式ㄇ    TJPEGImage *jpg=new TJPEGImage;    jpg->LoadFromFile(FileName);    Image1->Stretch=true;    Image1->Picture->Assign(jpg);    delete jpg;    

auslk您好: 試試下面的code #include "jpeg.hpp" if(OpenPictureDialog1->Execute()) { TJPEGImage *jpg=new TJPEGImage; jpg->LoadFromFile(OpenPictureDialog1->FileName); Image1->Stretch=true; Image1->Picture->Assign(jpg); delete jpg; }

多謝囉 你這種寫法 可以用在BCB 5.0 可是BCB 6.0 就會有問題發生 沒關係我用BCB 5.0好囉 多謝協助^^

引言: 可是BCB 6.0 就會有問題發生

auslk 你好: 可是我這樣寫在 BCB 6.0 Update 2 並沒有問題耶 < class="code"> void __fastcall TForm1::Button2Click(TObject *Sender) { if(OpenPictureDialog1->Execute()) { if(FileExists(OpenPictureDialog1->FileName)) { TJPEGImage *jpg=new TJPEGImage; jpg->LoadFromFile(OpenPictureDialog1->FileName); Image1->Stretch=true; Image1->Picture->Assign(jpg); delete jpg; } } } -- Enjoy Researching & Developing --

我的BCB 6.0是試用版 我不知道和這個有關ㄇ 總之,態感謝您囉 對囉 有評分ㄉ方式.. 我不知道在哪 ..還請告訴小弟!

引言: 對囉 有評分ㄉ方式.. 我不知道在哪 ..還請告訴小弟!

auslk 你好: 請參考總績分制度的說明