鏀惰棌 (0) +1 璧� (0) +1 韪� (0) +1
鏀惰棌鎴愬姛鏌ョ湅鏀惰棌>>

正在阅读:开发基于DCOM的局域网聊天室(二)开发基于DCOM的局域网聊天室(二)

2004-02-14 09:34 出处:CSDN 作者:hkbarton 责任编辑:linjixiong
//点击button1后将edit的内容“说”出去      begin       Server.SpeakTo(edit1.Text,1);      end;      procedure TForm1.Timer1Timer(Sender: TObject);      //每隔一段时间向服务器请求谈话内容,我设置了为1.5秒      var       TempStrings:TStrings;       i:integer;      begin       if Server.ReadReady(1)=1 then       begin       TempStrings:=TStringList.Create;       SetOleStrings(TempStrings,Server.ReadFrom(1));       if FReadStartPos>19 then       if (FClearBufferTag=0-Server.TestClearBufferTag(1)) then       begin       FReadStartPos:=0;       FClearBufferTag:=Server.TestClearBufferTag(1);       end;       for i:=FReadStartPos to TempStrings.Count-1 do       Memo1.Lines.Add(TempStrings[i]);       FReadStartPos:=TempStrings.Count;       end;      end;      一个基于DCOM的局域网聊天室的核心部分就基本完成了,并且所有的测试都比较顺利,这里需要补充说明一下聊天室服务器的一个难点:就是需要开发者非常谨慎的处理同步,虽然我也进行了一定的同步处理,但在客户端人数众多的情况下仍然可能发生死锁或其它活锁的情况,这个程序还需要更进一步的测试、甚至进行一定的重构。尽请关注后文。
察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:
键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品
鎵嬫満璁块棶鍥炲埌椤堕儴