基于tcp局域網(wǎng)聊天程序設(shè)計(jì)(delphi(文件)
【正文】 不用，盡量簡(jiǎn)單，果然把這個(gè)問題解決了，現(xiàn)在局域網(wǎng)聊天時(shí)候，一發(fā)送完信息，在對(duì)方那立刻顯示。 :=true。 :=true。 begin :=39。 procedure (Sender: TObject。+ 。 end。%^)39。 :=39。 11 :=true。 end。 end。 begin if =39。)。 (39。+)。 (+39。+chatname+39。%amp。 。 。 begin if =39。)。 if =39。)。 (+39。 password:=。 var temptext : string。 if pos(39。 if temptext=password then begin (39。 :=true。 :=true。 (usename+39。 end end else if pos(39。 if temptext then begin (temptext+39。 end。 (temptext+39。 if (temptext)1 then ((temptext))。,temptext)0 then begin mssge:=copy(temptext,1,length(temptext)8)。 procedure (Sender: TObject)。 begin 。 begin if then begin (usename+39。 15 :=false。 begin end。監(jiān)聽狀態(tài) ...39。 Socket: TCustomWinSocket)。 end。 已連接 39。 var tmptext: string。 16 signpos : integer。 if pos(39。39。%amp。amp。 chattext:= copy(tmptext,1,signpos1)。 usename:=copy(tmptext,pos(39。,tmptext)+2)。 break。$%$%$%39。 chatname[counter]:=tmptext。,tmptext,39。$%^amp。~{}()amp。~{}()amp。 end。??**39。 member:=copy(tmptext,1,signpos1)。).AsString=member then (39。 (39。)。 end。%^)39。+tmptext+39。 for i:=0 to counter1 do [i].SendText(tmptext+39。 dec(counter)。 end。 end。 procedure (Sender: TObject。 begin if errorcode=10054 then 19 errorcode:=0。 end。服務(wù)器連接！ [39。 end else showmessage(39。 procedure (Sender: TObject)。服務(wù)器已經(jīng)關(guān)閉 39。]39。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 end。 。服務(wù)器關(guān)閉！ [39。 。)。]39。 begin if not then begin :=true。 procedure (Sender: TObject)。 ErrorEvent: TErrorEvent。 Socket: TCustomWinSocket)。 begin :=false。 end else // 當(dāng)無任何標(biāo)記時(shí)表示公聊 begin for i:=0 to counter1 do [i].SendText(tmptext)。)。 39。 18 // (39。 end else if pos(39。注冊(cè)成功，請(qǐng)先登陸再進(jìn)行聊天！ 39。+member+39。 39。 with table1 do begin if (39。??**39。 inc(counter)。)。)。)。))。 check :=((39。$%$%$%39。 end。 悄悄對(duì)你說： 39。,tmptext)+2,length(tmptext)pos(39。$$39。39。字符串時(shí)表示私聊 begin tmptext := copy(tmptext,1,length(tmptext)6)。%amp。%amp。 usename : string。 i,j: integer。 procedure (Sender: TObject。 Socket: TCustomWinSocket)。連接到 39。 end。 Socket: TCustomWinSocket)。 end。%^)39。 procedure (Sender: TObject。 end。 end else (temptext)。$%^amp。)。^$%^$39。)。*%^39。%^)39。密碼錯(cuò)誤，登陸失敗，請(qǐng)檢查后重新登陸！ 39。 :=false。)。39。 mssge : string。 13 procedure (Sender: TObject。)。 exit。 then begin showmessage(39。 exit。 then begin showmessage(39。 end。 對(duì)大家說：39。39。+usename+
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1