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

TServerSocket & TClientSocket 傳輸檔案範例(Server)

 
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-02-13 21:34:02 IP:61.221.xxx.xxx 未訂閱
TServerSocket & TClientSocket 傳輸檔案範例(Client) PS: BCB 6.0 Enterprise, Update 2 -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
附加檔案:25913_server.zip
kevintam
一般會員


發表:7
回覆:11
積分:3
註冊:2003-02-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-02-19 13:24:52 IP:211.74.xxx.xxx 未訂閱
大大:     那如果我是要製做一個自發性的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); } } //---------------------------------------------------------------------------
danielj
初階會員


發表:65
回覆:135
積分:40
註冊:2003-06-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-07 14:48:50 IP:61.220.xxx.xxx 未訂閱
小弟以BCB5.0試過範例程式,compile時出現"Unable to Open File INDY.LIB"的錯誤 不知是否5.0少了什麼library?
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-07 16:03:24 IP:203.73.xxx.xxx 未訂閱
引言: 小弟以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 --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
danielj
初階會員


發表:65
回覆:135
積分:40
註冊:2003-06-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-08 09:54:58 IP:61.220.xxx.xxx 未訂閱
首先感謝您的回覆! 小弟依照您的說法2做了之後,indy的問題沒了,但是又出現rtl.lib bcbsmp... 等等一大堆不能open的錯誤,是我的設定上出了什麼問題嗎? 另外順便一問,在檔案範例中有一行 Sleep(10)是用於讓檔案傳出去的等待時間嗎? 我好像沒辦法使用這個指令 還有,傳送檔案一定得先分割嗎?還是元件自動會幫忙分割,我們只需要管傳那個檔案就可以了? 麻煩各位高手們撥冗回答,不勝感激!
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-07-08 10:22:11 IP:203.73.xxx.xxx 未訂閱
引言: 首先感謝您的回覆! 小弟依照您的說法2做了之後,indy的問題沒了,但是又出現rtl.lib bcbsmp... 等等一大堆不能open的錯誤,是我的設定上出了什麼問題嗎? 另外順便一問,在檔案範例中有一行 Sleep(10)是用於讓檔案傳出去的等待時間嗎? 我好像沒辦法使用這個指令 還有,傳送檔案一定得先分割嗎?還是元件自動會幫忙分割,我們只需要管傳那個檔案就可以了? 麻煩各位高手們撥冗回答,不勝感激!
danielj 你好:
(1)不太清楚你的問題在哪裡?? 是否把你的 Project 上傳至「會員求助程式檔
   案上傳區」,讓小弟我幫你看一看??
    >
    >
    -- 
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
danielj
初階會員


發表:65
回覆:135
積分:40
註冊:2003-06-11

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-07-08 10:30:01 IP:61.220.xxx.xxx 未訂閱
多謝版主大哥的回覆!很抱歉,亂貼文造成版主的困擾… 其實我的問題是在於下載了範例程式卻無法在bcb5上compile,我現在換成bcb6已經可以compile了,但是send to client時會出現 "list index out of bounds (0)"的錯誤, 想再請版主或其它的高手們幫忙解決一下問題,再次感謝!
danielj
初階會員


發表:65
回覆:135
積分:40
註冊:2003-06-11

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-07-08 10:31:32 IP:61.220.xxx.xxx 未訂閱
多謝版主大哥的回覆!很抱歉,亂貼文造成版主的困擾… 其實我的問題是在於下載了範例程式卻無法在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
系統時間:2024-03-28 22:51:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!