delphi不同计算机程序间通信用TServerSocket实现

在Delphi中，用ServerSocket与ClientSocket组件，建立TCP/IP通信非常容易。

Delphi安装 Tclientsocket, Tserversocket控
添加方法：
菜单component->Install Packets
按Add按钮，选择delphi目录里的bin目录下的dclsockets70.bpl(delphi2010是dclsockets140.bpl)，然后TClientSocket和TServerSocket控件就会出现在Internet页上了





1、创建2个应用程序，一个是Server，另一个是Client。


2、Server程序的窗体上放置ServerSocket组件，并设置其port属性（如：设置为5000）,并将Active属性设置为True;


3、Client程序的窗体上放置ClientSocket组件，也设置其port属性，与ServerSocket组件的port属性相同，也设置为5000;设置Adress属性为Server程序所在的机器的IP地址。如果Server程序与Client程序在同一台机器上，则设置Address 为127.0.0.1 。
  再放一个命令按钮，在OnClick事件中添加一行事件处理程序：
   ClientSocket1.Open;


在OnConnect事件中添加事件处理程序：
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.lines.add('已经建立连接...');
end;


4、Server端：利用ServerSocket1.socket.connections[i].sendtext('......')
发送文本。在OnClientRead事件中接收Client端发送来的信息：


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.lines.add(socket.ReceiveText);
end;


5、Client端：利用ClientSocket1.Socket.SendText('......')
发送文本。在OnRead事件中接收Server端发送来的信息：


procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.lines.add(socket.ReceiveText);

end;

//发送到服务端上语句

ClientSocket1.socket.SendText(edit2.Text);