很简单的问题，但是很急，回答马上给分

Question

我要做一个局域网的即时聊天工具，现在怎么样实现发送和接受消息的功能呢？
用C/S socket，怎样进行连接？请给出连接代码！！！
收发消息都要用到什么事件呢？

Answer 1

用socket吧。看看安装目录下的demo：
......\Borland\Delphi6\Demos\Internet\Chat

Answer 2

delphi自带的demo里有。找找看。

Answer 3

把E_MAIL留下，我这里有源程序，收发都有。

Answer 4

该段代码的作用很明显，就是开始发消息了。其中如果是Server的话，它只向第一个客户机发消息，由于一个服务器可以连接多个客户机，而同客户机的每一个连接都由一个Socket来维持，因此ServerSocket.Socket.Connnections数组中存储的就是同Client维持连接的Socket。在标准Socket中，服务器方的Socket通过accept()方法的返回值获取维持同客户机连接的Socket而发送、接受消息的方法分别为send(sendto)和recv(recvfrom)Delphi对此进行了封装。5、其余代码的简要介绍。procedure TChatForm.ServerSocketAccept(Sender: TObject;Socket: TCustomWinSocket);
begin
　IsServer := True;
end;　　ServerSocket的Accept方法，当客户机第一次连接时完成，通过其参数可以认为，它是在标准的accept方法后执行的，因为有TCustomWinSocket这个参数类型，它应该是标准Server方Socket的返回值。procedure TChatForm.ClientSocketRead(Sender: TObject;Socket: TCustomWinSocket);
begin
　Memo2.Lines.Add(Socket.ReceiveText);
end;procedure TChatForm.ServerSocketClientRead(Sender: TObject;Socket: TCustomWinSocket);
begin
　Memo2.Lines.Add(Socket.ReceiveText);
end;　　这两段代码分别是服务器方和客户机方在收到对方的消息时，由Delphi触发的，作用是在memo2中显示收到的消息。其中，ClientSocketRead中的Socket实际上就是Socket本身，而在ServerSocketClientRead中的Socket实际上是ServerSocket.Socket.Connection[]中的某个Socket。不过在Delphi中，对服务器方的Socket进行了有效的封装。procedure TChatForm.ServerSocketClientConnect(Sender: TObject;Socket: TCustomWinSocket);
begin
　Memo2.Lines.Clear;
end;procedure TChatForm.ClientSocketDisconnect(Sender: TObject;Socket: TCustomWinSocket);
begin
　ListenItemClick(nil);
end;　　这两段比较简单。其中ServerSocketClientConnect在ServerSocket收到一个新的连接时触发。而ClientSocketDisconnect在ClientSocket发出Disconncet时触发。procedure TChatForm.Exit1Click(Sender: TObject);
begin
　ServerSocket.Close;
　ClientSocket.Close;
　Close;
end;procedure TChatForm.Disconnect1Click(Sender: TObject);
begin
　ClientSocket.Active := False;
　ServerSocket.Active := True;
end;　　第一段为关闭应用程序。在标准Socket中，每个Socket在关闭时，必须调用closesocket()方法，否则系统不会释放资源。而在ServerSockt.Close和ClientSocket.Close中，系统内部肯定调用了closesocket（）方法。三、标准Socket与Delphi中的Socket。　　标准的Socket的应用程序框架如下：　　Server方法： Socket()[ 新建一个Socket]－－Bind()[ 同服务器地址邦定 ]－－Listen() －Accept()－－block wait－－read()[接受消息，在windows平台中，方法为send(TCP) 或者是sendto(UDP)]－－处理服务请求－－Write()[发送消息，在windows平台中，方法为send(TCP)或者为sendto(UDP)。　　Client方相对简单：Socket()－－Connect()[通过一定的port连接特定的服务器，这是与服务器建立连接]－－Write()－－Read()。　　Socket可以是基于TCP的，也可以是基于UDP同时Socket甚至建立在其他的协议，比如IPX/SPX，DECNet等。在新建一个Socket时，可以指定新建何类Socket。Bind()用来同服务器的地址邦定，如果一个主机只有一个IP地址，实际上邦定的作用就相对多余了。Listen()开始监听网络，Accept()用于接受连接，其返回值是保持同客户机联系的Socket。　　在Delphi中，对于Windows中的Socket进行了有效的封装。在Delphi中，按其继承关系，可以分层两类：一、TComponent－－TAbstractSocket－－TCustomSocket－－TCustomServerSocket－－TServerSocket TComponent－－TAbstractSocket－－TCustomSocket－－TClientSocket二、直接从TObject继承过来:TObject－－TCustomWinSocket－－TServerWinSocket
TObject－－TCustomWinSocket－－TClientWinSocket
TObject－－TCustomWinSocket－－TServerClientWinSocket　　可以看出第一类建立在TCustomSocket基础上，第二类建立在TCustomWinSocket的基础上。第一类建立在TComponet的基础上，第二类直接构建在TObject基础上。因此如果用户非常熟悉Socket并且想要编写控制台程序时，可以使用TCustomWinScoket类。　　同uses中可以看出，它们都在ScktComp.pas中实现，而在schtComp.pas中，则包含了winsock.pas文件，如果继续深入winsock文件，在其中可以发现所有的Windows Socket的基本方法。　　实际上，如果你了解了标准Socket的应用程序框架，对于使用Delphi编写Socket应用程序也就得心应手了；这不是说你必须了解复杂的Socket中的标准函数，也没有必要，因为Delphi已经为你做了很好的封装了，这也正是Delphi的强势所在，你只要了解那么一点点的基本框架。　　这是我对Delphi中的Socket应用的理解，不足之处希望大家指正。同时也乐于为大家解答Delphi中有关Socket的问题。
 

Answer 5

再问一句，我知道SOCKET可以在局域网里有效。
但是在INTERNET网上也可以用吗？那样岂不是自己可以做一个QQ聊天程序了？