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

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

RoomNames:TStrings;//RoomName是配置文件中的聊天室名称　　　　begin 　　　　 RoomCount:=1; 　　　　 //这里将从配置文件中读出有几个聊天室　　　　 RoomNames:=TStringList.Create; 　　　　 RoomNames.Add('TestRoom');//这句将被最终的从配置文件读取替换掉　　　　 setlength(ChatRoom,RoomCount); 　　　　 for i:=1 to RoomCount do 　　　　 ChatRoom[i]:=TChatRoom.Create(RoomNames[i-1],i); 　　end; 　　　　function TChatRoomManager.FindRoomByID(id:integer): TChatRoom; 　　　　//该函数由IChatManager接口调用，由于最终版本的接口将会提供给客户　　　　//端得到房间列表的功能，所以客户端知道自己房间的id 　　　　begin 　　　　 result:=ChatRoom[id]; 　　　　end; 　　　　initialization 　　　　 ChatRoomManager:=TChatRoomManager.Create; 　　　　end. 　　　　在服务器端的主要核心部分完成以后，我们配置好服务器端的DCOM配置，就可以开发一个简单的客户端进行测试了：（虽然客户端尽可能的简单，我们不用配置DCOM但我们仍需要拷贝服务器端的类型库文件.tlb到客户端并注册后才能开发和使用客户端，当然，这些都可以通过安装程序来完成）　　　　在客户端我们只列出两个相对重要的函数，其余的都省略，请想我来信获得全部的程序：　　　　procedure TForm1.Button1Click(Sender: TObject);

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