posted @ 2008-11-07 15:20 YangHe 阅读(300) 评论(0) 推荐(0)
摘要:
//当客户端断开连接时 procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); var i:integer; begin for i:=0 to sessions do begin if session[i].CHandle =Socket.S... 阅读全文