表情
| procedure TChatRoom.LoginRoom(UserName:string); //用户登陆聊天室事件，这里没有完全实现 begin inc(FConnectCount); end; procedure TChatRoom.LeaveRoom(UserName: string); //用户离开聊天室事件，这里没有完全实现 begin Dec(FConnectCount); end; 服务器端的最后一个比较重要的部分TchatRoomManager： type TChatRoomManager=class private ChatRoom:array of TChatRoom; public constructor Create; function FindRoomByID(id:integer):TChatRoom; end; 实现部分： { TChatRoomManager } constructor TChatRoomManager.Create; var i,RoomCount:integer; |
正在阅读：开发基于DCOM的局域网聊天室(二)开发基于DCOM的局域网聊天室(二)
2004-02-14 09:34
出处：CSDN
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
