请问使用DELPHI编写聊天室的方法

参考一下delphi自带的聊天室例子!

解决方案 »

  1.   

    标准方法是使用WinSock中UDP、多点通信、多址广播
    DCOM也可以实现
      

  2.   

    使用Webbroker+InternetExpress(如果需要)
      

  3.   

    我要使用ASP+DELPHI编写聊天室,
    够造一个ISAPI,需要注意哪些事项,请高手指教
    OICQ 20591580
      

  4.   

    你到底是用ASP还是ISAPI，如果是使用ASP，主要是利用Delphi建立ASP组件的问题。如果是
    后者，主要是WebAction响应的问题。另外还有就是IIS的设定问题。
      

  5.   

    使用TCP/IP协议实现聊天程序TCP/IP协议的传输即面向点到点的传输方式！1.创建应用程序。
    选择“NEW”菜单下的“Application”选项，创建一个普通的应用程序。2.创建所需控件。
    首先在控件栏的Win32页中选择ImageList控件和CoolBar控件，再从Win32栏选择ToolBar控件放置到CoolBar控件上。用鼠标右键单击“ImageList”控件，在弹出的菜单中选择“ImageList Editer...”选项，弹出“ImageList Editer”对话框，单击“Add...”按钮，选择5幅位图。在对象管理器Object Inspector中将ToolBar控件的Image属性设为“ImageList1”，用鼠标右键单击“ToolBar”控件，选“New Button”选项，总共创建5个ToolButton，在 对象管理器中将5个ToolButton的ImageIndex属性分别设置为0，1，2，3，4。此时ImageList控件中的5幅位图将会分别显示在Toolbutton上，将5个ToolButton控件的ShowHint属性全都设置为“ture”，并将它们的Hint属性分别设置为“监听”、“连接”、“断开连接”、“更改你的昵称”和“退出聊天程序”。然后在窗体中放置一个Edit控件、Memo控件、StatusBar控件和一个Label控件。将Label控件的Caption属性设置为“输入框”。最后，也是最关键的，在控件栏的Internet页中选择SeverSocket控件和ClientSocket控件放置在窗体中，将SeverSocket控件和ClientSocket控件的Port属性设置为“1100”。SeverSocket控件是基于TCP/IP协议传输的服务器方的控件，它的主要作用是用来监听其它基于TCP/IP传输计算机的连接请求，并在收到连接请求时建立连接，进行数据传输，ClientSocket控件是基于TCP/IP传输的客户方的控件，它的主要作用是向监听TCP/IP传输的服务器发出连接请求，在收到服务器的允许连接的响应后，建立连接，并传输数据，之所以在窗体中同时创建ServerSocket和ClientSocket控件，是因为应用程序既可作为服务器,又可作为客户端使用。3.Serversocket和ClientSocket之间的连接
    首先设置两个全局变量：
    NickName:string;
    b_Client:boolean;其中NickName用于放聊天人的名称，b_Client用于表明应用程序是否作为客户端进行数据传输。
    在窗体Form1的Oncreate事件中初始化变量，代码如下：procedure TForm1.FormCreate(Sender:TObject);
    begin
      NickName := '我的昵称';
      b_Client := ture;
    end;双击ToolButton1，编写服务器监听代码如下：procedure TForm1.Toolbutton1Click(Sender:TObject);
    begin
      ClientSocket1.close;
      ServerSocket1.open;
      StatusBar1.SimpleText  := '开始监听’；
    end;双击ToolButton2,编写客户的申请连接，代码如下：procedure TForm1.ToolButton2Click(Sender:TObject);
    var s:string;
    begin
      if Clientsocket1.Active then
      ClientSocket1.close;
      if InputQuery('连接到计算机','要连接的计算机名称或IP地址：',s) then
        if Length(s)>0 then
          with ClientSocket1 do
          begin
            Host:=s;
            open;
          end;
    end;在对象管理器中，双击ClientSocket事件页的OnConnecting事件，编写处理客户等待连接请求，代码如下：procedure TForm1.ClientSocket1Connectin(Sender:TObject;Socket:TCustomWinSocket);
    begin
      StatusBar1.SimpleText:='等待来自'+Socket.RemoteAddress+'的连接允许响应...';
    end;在对象管理器中，双击SeverSocket事件页的OnAccept事件，处理服务器响应连接事件，代码如下：procedure TForm1.SeverSocket1Accept(Sender:TObject;Socket:TCustomWinSocket);
    begin
      b_Client:=false;
      StatusBar1.SimpleText:='连接到'+Socket.RemoteAddress;
    end;在对象管理器中，双击ClientSocket事件页的OnConnect事件，OnConnect事件在连接成功时被调用，代码如下：procedure TForm1.ClientSocket1Connect(Sender:TObject;Socket:TCustomWinSocket);
    begin
      b_Client:=ture;
      StatusBar1.SimpleText:='连接成功';
    end;4.ServerSocket和ClientSocket之间的数据传输聊天的内容是通过Edit控件输入并在敲回车键后显示在Memo控件中，再传输到与之连接的计算机中。
    Edit的OnKeyDown事件代码如下：procedure TForm1.Edit1KeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
    begin
      if Key=VK_Return then
      begin
        Memo1.Lines.Add(NickName+':'+Edit1.Text0;
        if b_Client then
          ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.lines.Count-1])
        else
          ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines[Memo1.lines.Count-1]);
      end;end;在ServerSocket控件的onread事件中编写服务器接收到数据后的动作，代码如下：procedure TForm1.ServerSocket1ClientRead(Sender:TObject;Socket:TCustomWinSocket);
    beginMemo1.lines.Add(Socket.ReceiveText);end;在ClientSocket控件的onread事件中编写客户端接收到数据后的动作，代码如下：procedure TForm1.ClientSocket1Read(Sender:TObject;Socket:TCustomWinSocket);
    begin
      Memo1.lines.Add(Socket.ReceiveText);
    end;5.断开Serversocket和ClientSocket之间的连接双击ToolButton3,编写客户端断开的处理过程，代码如下：procedure TForm1.ToolButton3Click(Sender:TObject);
    begin
      ClientSocket1.close;
      StatusBar1.SimpleText:='断开连接';
    end;编写服务器响应客户端断开的处理过程，代码如下：procedure TForm1.ServerSocket1ClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);
    begin
      SeverSocket1.close;
      StatusBar1.SimpleText:='断开连接';
    end;6.更改聊天者的昵称双击Toolbutton4,编写更改昵称代码如下：procedure TForm1.ToolButton4Click(sender:TObject);
    var
      s:string;
    begin
      if InputQuery('更改昵称','你的新昵称',s) then
        if Length(s)>0 then
          NickName:=s;
    end;7.退出应用程序双击Toolbutton5，编写退出应用程序代码如下：
    procedure TForm1.ToolButton5Click(sender:TObject);
    ClientSocket1.close;
    ServerSocket1.close;
    Form1.close;
    end;8.保存并运行应用程序
    最好在网上运行该程序，如果没联网，但你的计算机支持TCP/IP协议（可以通过网络邻居安装TCP/IP协议），你可以在你的计算机上从“我的电脑”中运行该应用程序的两个实例。运行后，将一个聊天程序作为服务器监听，另一个聊天程序作为客户与服务器连接并聊天。局域网中同样可以运行！！！
      

  6.   

    我说明一下
    我要编写WEB界面的聊天室,不需要聊客下载客户端软件
      

  7.   

    to db:
    你写的程序和demo-chat里面的有什么区别？你是怎么实现多人聊天的？我认为如果实现多人聊天还需要自定义协议，通过协议来实现多人聊天。就是自建一个服务器，所有的信息用服务器来中转这样的话，就可以实现多人聊天了。
    to YTLD:
    我学delphi只有一个月，我不知道怎么用web界面的。如果你想要可以实现多人聊天的聊天室。
    application的，如果你想知道我可以告诉你原理。发邮件给我[email protected]
      

  8.   

      用ASP来实现，首先做一个聊天页面，然后对SUBMIT按钮进行响应，只要用<Form name = "a" action = "\..\XXX.asp" method = "post">就可以实现了，XXX。ASP还是要你自己做的，这才是重头戏，可能后端还要连一个数据库，看看帮助就搞定了，不太难的
      

  9.   

    ASP的我会,我要用DELPHI作WEB界面聊天室