引言: 各位大大: BCB要如何做出像ACD顯示圖時快速,以下是我用的方法,但是在顯示是遇到上百張時速度慢的不行,是否要寫執行緒的方式顯示,請大大指點。 void __fastcall TShowMainForm::TreeViewChange(TObject *Sender, TTreeNode *Node) { TSearchRec sr; TListItem *ListItem; NowSelectPath = TreeViewGetPath(Node); int iPicCount=0; ImageList1->Clear(); ListView1->Items->Clear(); if ( !FindFirst(NowSelectPath "\\*.jpg",faAnyFile, sr) ) { do { TJPEGImage *PicJpg = new TJPEGImage(); try { PicJpg->LoadFromFile(NowSelectPath "\\" sr.Name); } catch(...) { ShowMessage(NowSelectPath "\\" sr.Name); } Graphics::TBitmap *DestBmp = new Graphics::TBitmap(); float JpgWidth = PicJpg->Width; float JpgHeight = PicJpg->Height; DestBmp->Width=180; DestBmp->Height=180; DestBmp->Canvas->StretchDraw(Rect(1,1,JpgWidth,JpgHeight),PicJpg); ListItem = ListView1->Items->Add(); ListItem->Caption = sr.Name; ListItem->ImageIndex = ImageList1->Add(DestBmp,NULL); delete PicJpg; delete DestBmp; StatusBar1->Panels->Items[0]->Text = "Total : " IntToStr( iPicCount) " Jpeg."; Application->ProcessMessages(); } while ((!FindNext(sr)) && (!bCloseForm)); FindClose(sr); } } //---------------------------------------------------------------------------

kevintam 你好: 先請問一下~~你是一次先載入所有的圖檔嗎?? --

引言: kevintam 你好: 先請問一下~~你是一次先載入所有的圖檔嗎?? -- >< face="Verdana, Arial, Helvetica"> 大大你好: 是的..但我在載入時會依序載入但效果不佳,是否要撰寫如執行緒的概念...是要將某一目錄下jpg的圖案都一並顯示出來;因為我們是做監控系統的,監控的畫面皆會存放在歸屬的目錄下.

引言: kevintam您好: 您可以利用Timer來作連續讀圖檔的動作... 我測試過連續讀上千張圖檔都不會有問題.... 我們是同行ㄝ,我也有在做監視系統 ^_^

引言: 您好: 我連續讀取是沒有問題,但是在顯示圖的速度大大折扣了,因為我是利用搜尋圖案再利用ImageList加入ListItem(程式如下),此時它會連續RUN但是要等到他完全讀取完時才會結束,效率上大大折扣;您在監控系統要顯示全部圖片是如何寫的,我是想做出和ACD一樣顯示圖片的方式.....希望各位大大指點

kevintam 你好:
以下是我對你的問題的建議(參考看看)
( >
(>    -- 
        

引言:

引言: 您好: 我連續讀取是沒有問題,但是在顯示圖的速度大大折扣了,因為我是利用搜尋圖案再利用ImageList加入ListItem(程式如下),此時它會連續RUN但是要等到他完全讀取完時才會結束,效率上大大折扣;您在監控系統要顯示全部圖片是如何寫的,我是想做出和ACD一樣顯示圖片的方式.....希望各位大大指點

kevintam 你好:
以下是我對你的問題的建議(參考看看)
( >
(>    -- >< face="Verdana, Arial, Helvetica">
感謝大大的指點....       因為專題的需要,需要在教師點選到特定的目錄時,在顯示時就可以看到圖  片(大小約180*180,因為要讓老師看到是否有作幣的畫面,不需一個一個點  來看)我以有利用FindFirst的方式尋找出jpg的圖,但問題是在要顯示是效率不佳(找到時再將圖show出來),如ACD是先找到所以檔案數,再慢慢的顯示......    我的專題介面和ACD顯示時的圖
http://tw.photo.yahoo.com/kevintam5566/ab1/     
        

引言: 我的專題介面和ACD顯示時的圖 http://tw.photo.yahoo.com/kevintam5566/ab1/

引言: 這個也可參考 【轉貼】用Delphi讀取JPEG文件的縮覽圖 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21809 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

引言:

引言: 我的專題介面和ACD顯示時的圖 http://tw.photo.yahoo.com/kevintam5566/ab1/

參考這個範例試試! 1.類似 ACDsee 中縮圖瀏覽的功能 http://netcity1.web.hinet.net/UserData/nep2314/Datas/BmpViewer.zip 2.當圖片大於可視範圍時如何用滑鼠拖曳圖片，也就是ACDSee用滑鼠抓住圖片移動的功能。 http://netcity1.web.hinet.net/UserData/nep2314/Datas/MovePic.zip 3.利用BFbmpV11.zip元件所寫的簡單旋轉圖形的範例 ( BFbmpV11.zip 有附上 ) http://netcity1.web.hinet.net/UserData/nep2314/Datas/RotatePic.zip 資料來源:星點子工作室 http://www.sit.idv.tw/ 網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]--- 發表人 - axsoft 於 2003/02/21 18:27:14