線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:775
推到 Plurk!
推到 Facebook!

觀看檔案<圖檔>的細目出不來

尚未結案
2ujioggl
一般會員


發表:16
回覆:15
積分:6
註冊:2003-05-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-05 20:07:52 IP:218.170.xxx.xxx 未訂閱
各位好啊^^ 小弟目前寫的秀圖程式已經能夠show 圖了,以為把Listview的ViewStyle 就可以實現了^^,可是我錯了,想請問各位為什麼無法顯示詳細的檔案資訊 如下 這個只有秀圖沒有問題 但是要看圖檔的詳細資訊就怪怪的如下: 因為我還是菜鳥^^謝謝各位能幫忙小弟,先向勞苦功高的各位致謝啦
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-06 14:59:48 IP:140.135.xxx.xxx 未訂閱
2ujioggl您好:   方便將程式碼貼上來嗎? 好讓有經驗的人可以幫您< > 順心< > ~我也是在學習的階段,回答的不好請您多多見諒與指教~
2ujioggl
一般會員


發表:16
回覆:15
積分:6
註冊:2003-05-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-09 01:17:08 IP:218.170.xxx.xxx 未訂閱
一開始就讀圖檔出來
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 TListItem *ListItem;
 TSearchRec sr;     int iPicCount();     ImageList1->Clear();
 ListView1->Items->Clear();     String Path("C:\\record");     if(!FindFirst((Path "\\" "*.jpeg"),faAnyFile,sr)){       do{
       //ShowMessage(sr.Name);
         TJPEGImage *pjpeg=new TJPEGImage();//要先載入Jpeg.hpp
        try{
          pjpeg->LoadFromFile(Path "\\" sr.Name);
         }
        catch(...){
          ShowMessage(Path "\\" sr.Name);
         }            Graphics::TBitmap *bufbmp = new Graphics::TBitmap();
        bufbmp->Height=120;
        bufbmp->Width=110;            bufbmp->Canvas->StretchDraw(Rect(1,1,110,120),pjpeg);            ListItem=ListView1->Items->Add();
        ListItem->Caption=sr.Name;
        ListItem->ImageIndex=ImageList1->Add(bufbmp,NULL);            delete pjpeg;
        delete bufbmp;            Application->ProcessMessages();
   }
   while(!FindNext(sr));         }    }        若選了其中一圖就在image秀出來
void __fastcall TForm1::ListView1Click(TObject *Sender)
{
  if(ListView1->SelCount){          String Path("C:\\record");          String Filename= ListView1->Selected->Caption;//取得檔名          Image1->Picture->LoadFromFile(Path "\\" Filename);      }
}
taishyang版主你好: 這幾天我的browser的編碼設成了unicode所以就不能回文章^^ 我的錯 嘿 還有我自已想了一個問題就是我這一支程式本來就只有傳圖而已,根本沒有 傳入檔案的資訊,是嗎? 出不來是正常的 發表人 - taishyang 於 2003/10/09 18:49:30
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-10-09 03:29:05 IP:61.231.xxx.xxx 未訂閱
2ujioggl您好: 請參考下面連結作適當的修改 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37787 謝謝您的配合 class="code"> TSearchRec FRec; FindFirst(Application->ExeName, faAnyFile, FRec); ShowMessage("大小:" IntToStr(FRec.Size)); ShowMessage("建立日期:" FormatDateTime("yyyy-mm-dd",FileDateToDateTime(FRec.Time))); ShowMessage("建立時間:" FormatDateTime("hh:nn:ss",FileDateToDateTime(FRec.Time))); 順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~ 發表人 -
2ujioggl
一般會員


發表:16
回覆:15
積分:6
註冊:2003-05-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-10-09 18:41:07 IP:218.170.xxx.xxx 未訂閱
^^對不起,我第一次po程式碼不知道說 對啊,就是那些資訊,但是不知道能否加入ListView1裡面 就像是windows的檔案總管的方式啊
2ujioggl
一般會員


發表:16
回覆:15
積分:6
註冊:2003-05-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-10-11 14:53:43 IP:218.170.xxx.xxx 未訂閱
謝謝 taishyang版主的指導^^ 雖然我笨笨的^^,不會add進去 我這幾天找到了bcb有一個範例VirtualListView,應該是我想要的吧 不過還是謝謝版主的回應
系統時間:2024-05-06 2:29:44
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!