主要用到了，tcpserver和tcpclinet的，基本功能已經實現，可能裡面有需要完善的地方，希望有興趣的人去完善吧。
伺服器裡有斷**如下：
procedure tform1.itstalkexecute(athread: tidpeerthread);
begin
acceptstr:
=athread.connection.readln();
peerip:
=athread.connection.socket.binding.peerip;
ifsametext(acceptstr,
'quit
') then
begin
memosysteminfo.lines.add(datetimetostr(now())+'
：'+peerip+'
退出伺服器！');
updateip();
endelse
begin
sendid:
=leftstr(acceptstr,ansipos('，
',acceptstr)-1
);//
通過ansipos(const substr, s: string)返回子串substr出現在主串s中的第乙個位置
memosysteminfo.lines.add(datetimetostr(now())+'
：'+athread.connection.socket.binding.peerip+'
傳送訊息給 '+
sendid);
memotalkinfo.lines.add(datetimetostr(now())+'
：'+athread.connection.socket.binding.peerip+'
微笑地說：'+
acceptstr);
athread.connection.writeln(
'傳送成功！');
end;
end;
Qt編寫的區域網聊天程式
這個程式足足用了乙個月的時間，也怪小生內功不強，但此番修煉著實受益良多。整體程式不建議大家觀摩，主要是太亂了。在這裡我會將其中的幾個重要部分剝離出來和大家分享。該程式介面靈感 於網路，小生不才，又加了一部分自己的愚見，還望源作者能夠原諒。此程式借鑑了江湖上的各位大俠的秘籍和高招，既然 於江湖，就回歸...
用Socket做乙個區域網聊天工具
程式設計成為簡單的服務端和客戶端之間的通訊,但通過一些方法可以將這兩者進行統一起來,讓服務端也成為客戶端,讓客戶端也成為服務端,使它們之間可以互相隨時不間斷的通訊.考慮到實現最原始的服務端和客戶端之間的通訊所需要的步驟對於寫這樣的程式是很有幫助的.作為服務端,要宣告乙個socket a並繫結 bin...
用L指令碼語言開發乙個簡單的區域網聊天程式
scp 這是乙個簡單的區域網聊天程式的例子 定義 字串,string1 定義 字串,string2 addr1是對方的位址 addr2是自己的位址 如果addr1和addr2相同，就是自己和自己聊天 定義 位址,addr1,127.0.0.1,27015 定義 位址,addr2,127.0.0.1,...