【導(dǎo)讀】TCP/IP協(xié)議的核心部分是傳輸層協(xié)議，網(wǎng)絡(luò)層協(xié)議和物理接口層，這三層通常是在操作系統(tǒng)內(nèi)核中設(shè)計。因此用戶一般不涉及。TCP是面向連接的，通信。庫函數(shù)方式提供的各種函數(shù)。前者為核內(nèi)設(shè)計，后者為核外設(shè)計。的應(yīng)用程序才能設(shè)計，所以要使用套接字來設(shè)計。C/S結(jié)構(gòu)是大家熟知的客戶機和服務(wù)器結(jié)構(gòu)。和Server端來實現(xiàn)，降低了系統(tǒng)的通訊開銷。應(yīng)用系統(tǒng)的發(fā)展方向。新進程處理此客戶請求，并不需要對其他請求做出應(yīng)。服務(wù)完成后，關(guān)閉此新進程與客戶的通信鏈路，并終止。向服務(wù)器發(fā)出服務(wù)請求報文，等待并接收應(yīng)答；繼續(xù)提出請求。正常終止或者強迫終止。通信完全是異步的。socket之間的連接可以分為三種類型：客戶端連接，監(jiān)聽連接以及服務(wù)器端連接。當(dāng)然，服務(wù)器端的socket此時未必正好處于準(zhǔn)備好狀。當(dāng)使用sockets寫應(yīng)用程序時，大多數(shù)工作發(fā)生在socket控件的handler事件中.束一個連接時,服務(wù)器socket收到一個OnClientDisconnect事件.錯誤代碼改為0,以避免socket產(chǎn)生一個例外.

　　

【正文】 chattext:= copy(tmptext,1,signpos1)。 member:=copy(tmptext, signpos+2,pos(39。$$39。,tmptext)2signpos)。 usename:=copy(tmptext,pos(39。$$39。,tmptext)+2,length(tmptext)pos(39。$$39。,tmptext)+2)。 for i:=0 to counter1 do begin if member=chatname[i] then begin [i].SendText(usename+39。 悄悄對你說： 39。+chattext)。 break。 end。 end。 end else if pos(39。$%$%$%39。,tmptext)0 then // 當(dāng)有 39。$%$%$%39。表示有登陸信息 begin tmptext := copy(tmptext,1,length(tmptext)6)。 chatname[counter]:=tmptext。 (tmptext)。 check :=((39。usename39。,tmptext,39。password39。))。 (check+39。@$%^amp。39。)。 if counter0 then 17 begin for i:=0 to counter1 do begin [counter].SendText(chatname[i]+39。~{}()amp。*%^39。)。 [i].SendText(tmptext+39。~{}()amp。*%^39。)。 sleep(300)。 end。 end。 inc(counter)。 end else if pos(39。??**39。,tmptext)0 then //表示注冊信息 begin signpos:=pos(39。??**39。,tmptext)。 member:=copy(tmptext,1,signpos1)。 chattext:=copy(tmptext,signpos+6,length(tmptext)6length(member))。 with table1 do begin if (39。usename39。).AsString=member then (39。用戶名已經(jīng)有人用了，請檢查后重新注冊。 39。) else begin insertrecord([member,chattext])。 (39。新用戶： [39。+member+39。]注冊成功！ 39。)。 (39。注冊成功，請先登陸再進行聊天！ 39。)。 end。 end。 end else if pos(39。*^amp。%^)@39。,tmptext)0 then // 有人走了 begin tmptext:=copy(tmptext,1,length(tmptext)8)。 18 // (39。用戶 [39。+tmptext+39。]離開聊天室。 39。)。 for i:=0 to counter1 do [i].SendText(tmptext+39。^$%^$39。)。 for i:= downto 1 do if [i1]=tmptext then begin (i1)。 dec(counter)。 end。 end else // 當(dāng)無任何標(biāo)記時表示公聊 begin for i:=0 to counter1 do [i].SendText(tmptext)。 end。 end。 procedure (Sender: TObject)。 begin :=false。 。 end。 procedure (Sender: TObject。 Socket: TCustomWinSocket)。 begin clientip:= end。 procedure (Sender: TObject。 Socket: TCustomWinSocket。 ErrorEvent: TErrorEvent。 var ErrorCode: Integer)。 begin if errorcode=10054 then 19 errorcode:=0。 end。 procedure (Sender: TObject)。 begin :=true。 end。 procedure (Sender: TObject)。 begin if not then begin :=true。 (39。服務(wù)器連接！ [39。+Datetimetostr(now)+39。]39。)。 end else showmessage(39。已經(jīng)在監(jiān)聽狀態(tài) 39。)。 end。 procedure (Sender: TObject)。 begin :=false。 。 :=39。服務(wù)器已經(jīng)關(guān)閉 39。 (39。服務(wù)器關(guān)閉！ [39。+Datetimetostr(now)+39。]39。)。 。 end。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 20 begin 。 end。 end.