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

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;