开发基于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 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有