科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件Delphi开发基于DCOM的聊天室

Delphi开发基于DCOM的聊天室

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文我们打算使用DCOM来开发一个局域网聊天室,不仅是作为技术上的研究,实际上我相信这应该也是一个有用的工具。

作者:hkbarton 来源:论坛 2007年10月31日

关键字:

  • 评论
  • 分享微博
  • 分享邮件
在服务器端的主要核心部分完成以后,我们配置好服务器端的DCOM配置,就可以开发一个简单的客户端进行测试了:(虽然客户端尽可能的简单,我们不用配置DCOM但我们仍需要拷贝服务器端的类型库文件.tlb到客户端并注册后才能开发和使用客户端,当然,这些都可以通过安装程序来完成)

  在客户端我们只列出两个相对重要的函数,其余的都省略,请想我来信获得全部的程序:

procedure TForm1.Button1Click(Sender: TObject);

//点击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的局域网聊天室的核心部分就基本完成了,并且所有的测试都比较顺利,这里需要补充说明一下聊天室服务器的一个难点:就是需要开发者非常谨慎的处理同步,虽然我也进行了一定的同步处理,但在客户端人数众多的情况下仍然可能发生死锁或其它活锁的情况,这个程序还需要更进一步的测试、甚至进行一定的重构。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章