|
先行知识Delphi / 接口 / OLE&COM&DCOM / Win
首先祝大家新春快乐猴年万事如意！
在前面的几篇文章中我们已经探讨了不少基于微软COM的相关技术而分布式COM（以下简称DCOM）的出现给我们轻松的创建分布式应用提供了机会我们可以完全不去理会低级别的Windows Sockets（DCOM通过MSRPC让客户与对象进行通信幸运的是要开发COM应用开发者几乎可以不去理会MSRPC）而开发出功能强大偶合性低（功能模块相对独立很好的发挥了OO的思想）易于部署的分布式计算系统
在这次的文章中我们就打算使用DCOM来开发一个局域网聊天室不仅是作为技术上的研究实际上我相信这应该也是一个有用的工具首先我们要对这个聊天室的功能有一个大致的了解至少这个聊天室应该允许多个局域网用户进行聊天（有点废话）应该能够有多个话题的子聊天室用户可以选择进入某个聊天室进行聊天客户端应该尽量简单（不用配置DCOM）并需要一个服务器端管理所有的交互行为管理聊天室的数目和相关配置并做好系统监测和日志记录等对聊天室功能进行扩展（如悄悄话功能表情符号等）根据以上的功能描述在仔细分析问题以后我们设计出下面的草图
这篇文章中我们要大致实现这个程序的一个基本的核心包括IChatManagerTChatRoomManagerTchatRoom完成一个最基本功能的服务器端并做一个简单的客户端进行检测我们的重点是服务器端因为它将实现聊天室的大部分功能客户端只是一个十分小巧简单的程序
由于篇幅关系我们只列出重要的部分的代码完整的程序请给我发email首先来看看我们的IchatManager接口是什么样子（由于这里我们只实现了最基本的功能这个接口并不完整我们将在以后的文章中给出完整的声明）
IChatManager = interface(IDispatch)
[&#;{ECDFDFACBDEBF}&#;]
procedure SpeakTo(const content: WideString; destid: Integer); safecall;
//客户向指定的房间说话destid为房间号
function ReadFrom(sourceid: Integer): IStrings; safecall;
//客户从指定的房间读取谈话内容sourceid为房间号
function ReadReady(id: Integer): Byte; safecall;
//客户检测指定的房间是否已经可以读取谈话内容
procedure ConnectRoom(const UserName: WideString; RoomID: Integer); safecall;
//客户登陆指定房间
procedure DisconnectRoom(const UserName: WideString; RoomID: Integer); safecall;
//客户退出指定房间
function TestClearBufferTag(RoomID: Integer): Integer; safecall;
//客户测试指定房间的缓沖区的清空与否状况
end;
再来看看接口的实现类TChatManager部分
type
TChatManager = class(TAutoObject IChatManager)
protected
function ReadFrom(sourceid: Integer): IStrings; safecall;
//在这里我们使用Delphi扩展的复杂类型TStings为了让COM支持这种
//类型delphi提供了IStrings接口
procedure SpeakTo(const content: WideString; destid: Integer); safecall;
function ReadReady(id: Integer): Byte; safecall;
//用来提供给客户端查询指定的房间是否可读既指定房间缓沖区是否为空
procedure ConnectRoom(const UserName: WideString; RoomID: Integer);
safecall;
procedure DisconnectRoom(const UserName: WideString; RoomID: Integer);
safecall;
function TestClearBufferTag(RoomID: Integer): Integer; safecall;
end;
实现部分
function TChatManagerReadFrom(sourceid: Integer): IStrings;
var
TempRoom:TChatRoom;
begin
TempRoom:=ChatRoomManagerFindRoomByID(sourceid);
while TempRoomLocked do
begin
//do nothing只是等待解锁
end;
GetOleStrings(TempRoomOneReadResult);
end;
procedure TChatManagerSpeakTo(const content: WideString; destid: Integer);
var
TempRoom:TChatRoom;
begin
TempRoom:=ChatRoomManagerFindRoomByID(destid);
while
|
