基于tcp局域網(wǎng)聊天程序設(shè)計(jì)(delphi(參考版)
2024-11-16 15:03本頁(yè)面
【正文】 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 19 errorcode:=0。 ErrorEvent: TErrorEvent。 procedure (Sender: TObject。 Socket: TCustomWinSocket)。 end。 begin :=false。 end。 end else // 當(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。 18 // (39。%^)39。 end else 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ì)你說(shuō)： 39。,tmptext)+2)。,tmptext)+2,length(tmptext)pos(39。 usename:=copy(tmptext,pos(39。$$39。 chattext:= copy(tmptext,1,signpos1)。39。amp。字符串時(shí)表示私聊 begin tmptext := copy(tmptext,1,length(tmptext)6)。%amp。%amp。39。%amp。 if pos(39。 usename : string。 16 signpos : integer。 i,j: integer。 var tmptext: string。 procedure (Sender: TObject。 已連接 39。 Socket: TCustomWinSocket)。 end。連接到 39。 Socket: TCustomWinSocket)。 end。監(jiān)聽狀態(tài) ...39。 Socket: TCustomWinSocket)。 begin end。 end。 15 :=false。%^)39。 begin if then begin (usename+39。 procedure (Sender: TObject。 begin 。 end。 procedure (Sender: TObject)。 end else (temptext)。,temptext)0 then begin mssge:=copy(temptext,1,length(temptext)8)。$%^amp。 if (temptext)1 then ((temptext))。)。 (temptext+39。^$%^$39。 end。)。 if temptext then begin (temptext+39。*%^39。 end end else if pos(39。%^)39。 (usename+39。密碼錯(cuò)誤，登陸失敗，請(qǐng)檢查后重新登陸！ 39。 :=true。 :=false。 :=true。)。 if temptext=password then begin (39。39。 if pos(39。 mssge : string。 var temptext : string。 13 procedure (Sender: TObject。 password:=。)。 (+39。 exit。)。 then begin showmessage(39。 if =39。 exit。)。 then begin showmessage(39。 begin if =39。 end。 。 對(duì)大家說(shuō)：39。 。39。%amp。+usename+39。+chatname+39。amp。 (+39。 break。+)。+chatname+39。 (39。 end。)。 then begin showmessage(39。 begin if =39。 var chatname : string。 end。 var Key: Char)。 end。 。 11 :=tr
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1