TServerSocket & TClientSocket 傳輸檔案範例(Client) PS: BCB 6.0 Enterprise, Update 2 -- Enjoy Researching & Developing --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

附加檔案：25913_server.zip

大大:     那如果我是要製做一個自發性的FTP,我要更改時是否只需要在msFile動手腳 就可以達成嗎?別外想詢問一下大大,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); } } //---------------------------------------------------------------------------

小弟以BCB5.0試過範例程式，compile時出現"Unable to Open File INDY.LIB"的錯誤 不知是否5.0少了什麼library?

引言: 小弟以BCB5.0試過範例程式，compile時出現"Unable to Open File INDY.LIB"的錯誤 不知是否5.0少了什麼library?

danielj 你好:
(1)在 BCB IDE 中按「Project/Options」啟動「Project Options」Dialog，
   選擇「Packages」Tab，在「Runtime packages」欄位中，把「Indy」的關鍵
   字去掉，按「OK」應該就可以了
(2)如果還是不行的話，先把 BCB 關掉，用 UltraEdit 或記事本把 *.bpr 打開
   ，搜尋「Indy」關鍵字，並全部去掉、儲檔，再以 BCB 打開該 Project 應
   該就可以了

-- Enjoy Researching & Developing --

首先感謝您的回覆！ 小弟依照您的說法2做了之後，indy的問題沒了，但是又出現rtl.lib bcbsmp... 等等一大堆不能open的錯誤，是我的設定上出了什麼問題嗎？ 另外順便一問，在檔案範例中有一行 Sleep(10)是用於讓檔案傳出去的等待時間嗎？ 我好像沒辦法使用這個指令 還有，傳送檔案一定得先分割嗎？還是元件自動會幫忙分割，我們只需要管傳那個檔案就可以了？ 麻煩各位高手們撥冗回答，不勝感激！

引言: 首先感謝您的回覆！ 小弟依照您的說法2做了之後，indy的問題沒了，但是又出現rtl.lib bcbsmp... 等等一大堆不能open的錯誤，是我的設定上出了什麼問題嗎？ 另外順便一問，在檔案範例中有一行 Sleep(10)是用於讓檔案傳出去的等待時間嗎？ 我好像沒辦法使用這個指令 還有，傳送檔案一定得先分割嗎？還是元件自動會幫忙分割，我們只需要管傳那個檔案就可以了？ 麻煩各位高手們撥冗回答，不勝感激！

danielj 你好:
(1)不太清楚你的問題在哪裡?? 是否把你的 Project 上傳至「會員求助程式檔
   案上傳區」，讓小弟我幫你看一看??
    >
    >
    -- 
        

多謝版主大哥的回覆！很抱歉，亂貼文造成版主的困擾… 其實我的問題是在於下載了範例程式卻無法在bcb5上compile，我現在換成bcb6已經可以compile了，但是send to client時會出現 "list index out of bounds (0)"的錯誤， 想再請版主或其它的高手們幫忙解決一下問題，再次感謝！

多謝版主大哥的回覆！很抱歉，亂貼文造成版主的困擾… 其實我的問題是在於下載了範例程式卻無法在bcb5上compile，我現在換成bcb6已經可以compile了，但是send to client時會出現 "list index out of bounds (0)"的錯誤， 另外您提到的stream方式似乎只限於從client傳送檔案給server，但是小弟的用途正好相反（server->client），這樣不知道是不是可以用？ 想再請版主或其它的高手們幫忙解決一下問題，再次感謝！ 發表人 - danielj 於 2003/07/08 13:43:39