【正文】 SendStreamThenDrop將關(guān)閉一個(gè)獨(dú)立的客戶(hù)連接服務(wù),而不是監(jiān)聽(tīng)連接.。 object, 通過(guò)socket連接寫(xiě),使用SendBuf,SendStream,可以使用SendStreamThenDrop方法. of methods)以允許通過(guò)連接讀或?qū)? object提供一個(gè)方法號(hào)(number sockets想通過(guò)連接讀或?qū)憰r(shí), 讀和寫(xiě)操作事件 connection也同樣可以通過(guò)blocking 附錄B：通過(guò)socket連接進(jìn)行讀和寫(xiě),或者想讀和寫(xiě)時(shí)是依靠哪些socket連接的相關(guān)服務(wù)的. ,可能想開(kāi)始通過(guò)socket連接在這端進(jìn)行讀或?qū)懖僮? socket ,它將替代TServerClientThread. handler中建立,將被用來(lái)替代TServerClientWinSocket. descendant,你可以在OnGetSocket socket 當(dāng)一個(gè)服務(wù)器socket同意一個(gè)客戶(hù)連接請(qǐng)求時(shí),接下來(lái)的事件發(fā)生: socket 當(dāng)構(gòu)成監(jiān)聽(tīng)連接前, events) ,就應(yīng)寫(xiě)一個(gè)OnConnect事件Handler去作這件事. ,它可能不同于從監(jiān)聽(tīng)socket處同意連接時(shí)得到的端口或IP地址. ,windows socket設(shè)置和初始化事件通知. client連接前做這件事. object,并且使用它的SocketHandle屬性去調(diào)用windows windows ,它試圖去定位server events events. events).如果應(yīng)用程序需要改變socket開(kāi)始操作的處理過(guò)程或通過(guò)連接開(kāi)始讀或?qū)懖僮鲿r(shí),將寫(xiě)事件handlers去應(yīng)答這些client 當(dāng)開(kāi)始和完成發(fā)生時(shí),socket控件通常會(huì)收到一個(gè)事件號(hào)(number 錯(cuò)誤事件:客戶(hù)sockets和服務(wù)器sockets通常會(huì)產(chǎn)生一個(gè)OnError事件,并且把錯(cuò)誤代碼改為0,以避免socket產(chǎn)生一個(gè)例外. 另外,客戶(hù)端Sockets和服務(wù)器端socket從連接中收到一個(gè)錯(cuò)誤信息時(shí),都將產(chǎn)生有個(gè)錯(cuò)誤事件. nonblocking)收到OnClientRead和OnClientWrite事件. ,服務(wù)器sockets(blocking 參考文獻(xiàn)[1] Marco [M].北京：電子工業(yè)出版社,2003[2] [M].北京：清華大學(xué)出版社,2004 [3] 黃超. Delphi網(wǎng)絡(luò)應(yīng)用開(kāi)發(fā)技術(shù)與實(shí)例[M].北京：清華大學(xué)出版社,2005[4] [M].北京：清華大學(xué)出版社,2006[5] [M].北京：機(jī)械工業(yè)出版社,2006附錄A：socket事件的應(yīng)答當(dāng)使用sockets寫(xiě)應(yīng)用程序時(shí)，,OnRead和OnWrite事件在nonblocking 經(jīng)過(guò)這2個(gè)星期的專(zhuān)業(yè)課程設(shè)計(jì)，確實(shí)學(xué)到了不少的東西，同時(shí)也深感自己知識(shí)的欠缺。 在課程設(shè)計(jì)的初期，從開(kāi)始熟悉這些知識(shí)到對(duì)整體設(shè)計(jì)有了解，再?gòu)母乓O(shè)計(jì)、詳細(xì)設(shè)計(jì)到開(kāi)始編碼，以及最后的測(cè)試，整個(gè)過(guò)程感覺(jué)很充實(shí)，雖然遇到了不少困難，但當(dāng)本人通過(guò)自己查資料、或是向指導(dǎo)老師請(qǐng)教以及向同學(xué)請(qǐng)教，而設(shè)計(jì)出解決方案并成功實(shí)現(xiàn)時(shí)，那種成就感和滿足感足以鼓勵(lì)自己加班加點(diǎn)的辛苦。第五章 結(jié)論通過(guò)本次專(zhuān)業(yè)課程設(shè)計(jì)，本人對(duì)軟件開(kāi)發(fā)過(guò)程有了更清晰的了解，首先是問(wèn)題定義、需求分析，然后是功能設(shè)計(jì)、詳細(xì)設(shè)計(jì)等，并對(duì)軟件測(cè)試的方法、手段有了較深的理解。3.數(shù)據(jù)庫(kù)的設(shè)計(jì)部分的設(shè)計(jì)出現(xiàn)了很多的問(wèn)題，如怎樣記錄信息，怎么樣使聊天程序正常運(yùn)行，以及怎么使服務(wù)器端的監(jiān)聽(tīng)自動(dòng)，經(jīng)查閱有關(guān)數(shù)據(jù)庫(kù)方面的書(shū)和請(qǐng)教了老師最后這些問(wèn)題一一解決了。 調(diào)試中出現(xiàn)的問(wèn)題1.在客戶(hù)端設(shè)計(jì)時(shí),不知道怎么保留注冊(cè)了的人的信息,經(jīng)過(guò)查找資料,發(fā)現(xiàn)可以使用Delphi中自帶的DataBase Desktop數(shù)據(jù)庫(kù)記錄注冊(cè)信息,這樣問(wèn)題就解決了。6.如果所作的修正無(wú)效，則撤消這次改動(dòng)，重復(fù)上述過(guò)程，直到找到一個(gè)有效的辦法為止。 4.修改程序代碼，排除這個(gè)錯(cuò)誤。2.如果第一步驟出錯(cuò)，看看錯(cuò)誤的外部表現(xiàn)，定位錯(cuò)位位置。服務(wù)器先運(yùn)行，自動(dòng)到監(jiān)聽(tīng)模式，然后可以運(yùn)行N個(gè)客戶(hù)端，這樣就能進(jìn)行聊天了。一個(gè)Delphi 數(shù)據(jù)庫(kù)應(yīng)用程序訪問(wèn)的是本地?cái)?shù)據(jù)庫(kù)還是遠(yuǎn)程SQL數(shù)據(jù)庫(kù)服務(wù)器上的數(shù)據(jù)庫(kù)，這對(duì)于最終用戶(hù)是完全透明的。利用Delphi的客戶(hù)/服務(wù)器功能，可以在本地?cái)?shù)據(jù)庫(kù)上或遠(yuǎn)程數(shù)據(jù)庫(kù)服務(wù)器上開(kāi)發(fā)客戶(hù)/服務(wù)器模式的應(yīng)用程序。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。 。]39。服務(wù)器關(guān)閉！[39。服務(wù)器已經(jīng)關(guān)閉39。 。procedure (Sender: TObject)。)。 end else showmessage(39。]39。服務(wù)器連接！[39。begin if not then begin :=true。end。procedure (Sender: TObject)。begin if errorcode=10054 then errorcode:=0。 ErrorEvent: TErrorEvent。procedure (Sender: TObject。 Socket: TCustomWinSocket)。end。begin :=false。end。 endelse // 當(dāng)無(wú)任何標(biāo)記時(shí)表示公聊 begin for i:=0 to counter1 do [i].SendText(tmptext)。 dec(counter)。)。 for i:=0 to counter1 do [i].SendText(tmptext+39。39。+tmptext+39。// (39。%^)39。 endelse if pos(39。 end。注冊(cè)成功，請(qǐng)先登陸再進(jìn)行聊天！39。)。+member+39。 (39。39。).AsString=member then (39。 with table1 do begin if (39。 member:=copy(tmptext,1,signpos1)。??**39。??**39。 inc(counter)。 end。)。~{}()amp。)。~{}()amp。)。$%^amp。))。,tmptext,39。 check :=((39。 chatname[counter]:=tmptext。$%$%$%39。$%$%$%39。 end。 break。悄悄對(duì)你