//客户端接收到一个返回值用以判断服务器是否允许客户登录
//返回值的表示：1:可以登陆 2：用户重名 3：人数过多
function roomuserlist(roomid: integer): istrings; safecall;
//供客户端获得在一个房间内的人员列表，由tchatroom维护这个列表
//每登录和离开一个user便更新列表
end;
其中roomcanlogin需要的实现比较重要，其余的两个接口只是返回有服务器维护的两个列表而已。
//roomcanlogin方法对应于tchatroom类内的实现
function tchatroom.canlogin(username:string): integer;
var
i:integer;
begin
result:=1;
