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

procedure LoginRoom(UserName:string);//参看实现部分注释

procedure LeaveRoom(UserName:string);//参看实现部分注释

function OneRead:Tstrings;//从缓冲区中读出记录

property Locked:boolean read FLocked; //readonly;//供IChatManager检测

property CanRead:boolean read GetCanRead;//判断缓冲区是否为空，否则是不可读的

property ClearBufferTag:integer read FClearBufferTag;

end;
（接后文）

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!