开发基于DCOM的局域网聊天室(二)

1 2 3 4 5 下一页

　　TchatRoom的实现：
　　
　　{ TChatRoom }
　　
　　constructor TChatRoom.Create(RoomName:string;RoomID:integer);
　　
　　begin
　　
　　 FBufferLength:=0;
　　
　　 FConnectCount:=0;
　　
　　 FClearBufferTag:=1;
　　
　　 FLocked:=false;
　　
　　 FRoomName:=RoomName;
　　
　　 FRoomID:=RoomID;
　　
　　end;
　　
　　procedure TChatRoom.ClearBuffer;
　　
　　var
　　
　　 i:integer;
　　
　　begin
　　
　　 ///在这里可以检测一个标志，判断是否需要服务器记录每一次聊天内容
　　
　　 for i:=1 to 20 do
　　
　　 FBuffer[i]:='';
　　
　　 FBufferLength:=0;
　　
　　 FClearBufferTag:=0-FClearBufferTag;
　　
　　end;
　　
　　procedure TChatRoom.OneSpeak(content:string);
　　
　　begin

　　 FLocked:=true;
　　
　　 inc(FBufferLength);

上一篇： Delphi托盘编程实战演练
下一篇： 在Delphi中使用电子邮件

1 2 3 4 5 下一页

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