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

这篇文章中我们要大致实现这个程序的一个基本的核心，包括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;