正在阅读：开发基于DCOM的局域网聊天室(一)开发基于DCOM的局域网聊天室(一)

2004-02-14 09:34 出处：CSDN 作者：hkbarton 责任编辑：linjixiong

end; 　　　　procedure TChatManager.ConnectRoom(const UserName: WideString; 　　　　 RoomID: Integer); 　　　　//客户端通过接口登陆到指定的房间，没有完全实现　　　　var 　　　　 TempRoom:TChatRoom; 　　　　begin 　　　　 TempRoom:=ChatRoomManager.FindRoomByID(RoomID); 　　　　 TempRoom.LoginRoom(UserName); 　　　　end; 　　　　procedure TChatManager.DisconnectRoom(const UserName: WideString; 　　　　 RoomID: Integer); 　　　　//客户端通过接口离开指定的房间，没有完全实现　　　　var 　　　　 TempRoom:TChatRoom; 　　　　begin 　　　　 TempRoom:=ChatRoomManager.FindRoomByID(RoomID); 　　　　 TempRoom.LeaveRoom(UserName); 　　　　end; 　　　　function TChatManager.TestClearBufferTag(RoomID: Integer): Integer; 　　　　var 　　　　 TempRoom:TChatRoom; 　　　　begin 　　　　 TempRoom:=ChatRoomManager.FindRoomByID(RoomID); 　　　　 result:=TempRoom.ClearBufferTag; 　　　　end;

察看评论详细内容我要发表评论