先行知識：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
