开发一个基于DCOM的局域网聊天室（三）(1)

基于修正通过测试所发现的bug，和功能的完善，我们有对客户端进行了一定的改动，主要体现在：

·对客户端进行更好的异常处理，以防止由于服务器异常中断而导致客户端仍不端请求服务器所造成的死锁。

·增加了说话对象和悄悄话功能（在客户端实现）

·增加了登录窗体，可以登陆到指定的房间并对服务器进行配置（参看下面服务器的改进）

另外在服务器端我们也做了部分的改进，主要完成了上次没有实现的功能，主要体现在：

·完成了服务器端任意配置并开放多个话题房间的功能（一个TchatRoom的实例对应着一个话题房间）

·在服务器端的每个房间维护一份登录进房间的人员列表，供客户端调用

·完善了服务器端的UI，并在服务器端实现为每个用户的登录和登出进行向客户系统公告的功能，并在服务器端限制登录的人数和进行重名判断

我们来看看主要的改进部分的代码变化情况，首先是服务器端的接口：

IChatManager = interface(IDispatch)

['{E7CD7F0D-447F-497A-8C7B-1D80E748B67F}']

……

function GetRoomList: IStrings; safecall;//客户端获得服务器端的房间列表

function RoomCanLogin(RoomID: Integer; const UserName: WideString): Integer; safecall;

//客户端接收到一个返回值用以判断服务器是否允许客户登录

//返回值的表示：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;

if FRoomUserList.Count>50 then //最多允许一个房间有50个人

begin

result:=3;

exit;

end;

for i:=0 to FRoomUserList.Count-1 do

//遍历由TchatRoom维护的人员列表以判断是否有重名用户

begin

if FRoomUserList[i]=UserName then

result:=2;

break;

end;

end;

再来看看，上次没有实现的多话题房间维护：

//请对比上篇文章的同名实现

constructor TChatRoomManager.Create;

var

i:integer;

begin

FRoomList:=TStringList.Create;

try

FRoomList.LoadFromFile(ExtractFilePath(application.ExeName)+'ChatRoomList.ini');

except

on E:Exception do

begin

application.MessageBox(Pchar('配置文件错误，错误代码：'+E.Message),'DComChatPro',MB_ICONWARNING);

application.Terminate;

end;

end;

FRoomList.Delete(0);

FRoomCount:=FRoomList.Count;

//这里将从配置文件中读出有几个聊天室

setlength(ChatRoom,FRoomCount);

for i:=1 to FRoomCount do

ChatRoom[i]:=TChatRoom.Create(FRoomList[i-1],i);

//创建房间的每一个实例

end;

客户端的Timer.OnTimer的重要改进（悄悄话和说话对象的功能都在这里实现）：