开发一个基于DCOM的局域网聊天室

2008-02-23 07:17:43来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

难度:★★★☆☆

先行知识:Delphi / 接口 / OLE&COM&DCOM / Win32

首先祝大家新春快乐,猴年万事如意!

在前面的几篇文章中我们已经探讨了不少基于微软COM的相关技术,而分布式COM(以下简称DCOM)的出现给我们轻松的创建分布式应用提供了机会;我们可以完全不去理会低级别的Windows Sockets(DCOM通过MS-RPC让客户与对象进行通信,幸运的是要开发COM应用,开发者几乎可以不去理会MS-RPC)而开发出功能强大、偶合性低(功能模块相对独立,很好的发挥了OO的思想)、易于部署的分布式计算系统。

在这次的文章中,我们就打算使用DCOM来开发一个局域网聊天室,不仅是作为技术上的研究,实际上我相信这应该也是一个有用的工具。首先我们要对这个聊天室的功能有一个大致的了解:1、至少这个聊天室应该允许多个局域网用户进行聊天。(有点废话。。。)2、应该能够有多个话题的子聊天室,用户可以选择进入某个聊天室进行聊天。3、客户端应该尽量简单(不用配置DCOM),并需要一个服务器端管理所有的交互行为,管理聊天室的数目和相关配置,并做好系统监测和日志记录等。4、对聊天室功能进行扩展(如悄悄话功能,表情符号等)。根据以上的功能描述,在仔细分析问题以后我们设计出下面的草图:

这篇文章中我们要大致实现这个程序的一个基本的核心,包括IChatManager、TChatRoomManager、TchatRoom,完成一个最基本功能的服务器端,并做一个简单的客户端进行检测。我们的重点是服务器端,因为它将实现聊天室的大部分功能,客户端只是一个十分小巧简单的程序。

由于篇幅关系,我们只列出重要的部分的代码,完整的程序请给我发email。首先来看看我们的IchatManager接口是什么样子(由于这里我们只实现了最基本的功能,这个接口并不完整,我们将在以后的文章中给出完整的声明):

IChatManager = interface(IDispatch)

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

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 TChatManager.ReadFrom(sourceid: Integer): IStrings;

var

TempRoom:TChatRoom;

begin

TempRoom:=ChatRoomManager.FindRoomByID(sourceid);

while TempRoom.Locked do

begin

//do nothing只是等待解锁

end;

GetOleStrings(TempRoom.OneRead,Result);

end;

procedure TChatManager.SpeakTo(const content: WideString; destid: Integer);

var

TempRoom:TChatRoom;

begin

TempRoom:=ChatRoomManager.FindRoomByID(destid);

while TempRoom.Locked do

begin

//do nothing只是等待解锁

end;

TempRoom.OneSpeak(content);

end;

function TChatManager.ReadReady(id: Integer): Byte;

var

TempRoom:TChatRoom;

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用Delphi建立通讯与数据交换服务器—Transceiver技术剖析(下)

下一篇:Delphi 中压缩流和解压流的应用