在Delphi为支持通过网络（internet、intranet和local）交换数据的应用程序而提供的所有组件中，最常见的两个组件是TServerSocket和TClientSocket，这两个组件都旨在通过TCP/IP连接支持读写功能。

winsock和delphi套接字组件

Windows Sockets（Winsock）为Windows操作系统下的网络编程提供了一个开放接口。它提供了访问任何协议栈的网络服务所需的一组函数、数据结构和相关参数。Winsock充当网络应用程序和底层协议栈之间的链接。

Delphi套接字组件（Winsock的包装器）简化了使用TCP/IP和相关协议与其他系统通信的应用程序的创建。使用套接字，您可以通过与其他机器的连接进行读写，而无需担心底层网络软件的细节。

Delphi组件工具栏上的internet调色板承载TServerSocket和TClientSocket组件以及TcpClient、TcpServer和TUdpSocket。

要使用套接字组件启动套接字连接，必须指定主机和端口。通常，主机为服务器系统的IP地址指定别名；端口指定标识服务器套接字连接的ID号。

一个简单的单向发送文本的程序

要使用Delphi提供的套接字组件构建一个简单的示例，请创建两个表单，一个用于服务器，另一个用于客户端计算机。其思想是使客户端能够向服务器发送一些文本数据。

首先，打开Delphi两次，分别为服务器应用程序和客户端创建一个项目。

服务器端：

在表单上，插入一个TServerSocket组件和一个TMemo组件。在表单的OnCreate事件中，添加下一个代码：

procedure TForm1.FormCreate(Sender: TObject);begin ServerSocket1.Port := 23; ServerSocket1.Active := True;end;

OnClose事件应包含：

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin ServerSocket1.Active := false;end;

客户端：

对于客户端应用程序，将TClientSocket、TEdit和TButton组件添加到表单中。为客户端插入以下代码：

procedure TForm1.FormCreate(Sender: TObject);begin ClientSocket1.Port := 23; //local TCP/IP address of the server ClientSocket1.Host := '192.168.167.12'; ClientSocket1.Active := true;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin ClientSocket1.Active := false;end;procedure TForm1.Button1Click(Sender: TObject);beginif ClientSocket1.Active then ClientSocket1.Socket.SendText(Edit1.Text);end;

这段代码很好地描述了它自己：当客户端单击一个按钮时，Edit1组件中指定的文本将被发送到具有指定端口和主机地址的服务器。

返回服务器：

本示例中的最后一点是为服务器提供一个功能，以“查看”客户端正在发送的数据。我们感兴趣的事件是OnClient，它发生在服务器套接字从客户端套接字读取信息时。

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);begin Memo1.Lines.Add(Socket.ReceiveText);end;

当多个客户端向服务器发送数据时，您需要编写更多的代码：

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);var i:integer; sRec : string;beginfor i := 0 to ServerSocket1.Socket.ActiveConnections-1 dobeginwith ServerSocket1.Socket.Connections[i] dobegin sRec := ReceiveText; if sRecr '' thenbegin Memo1.Lines.Add(RemoteAddress + ' sends :') ; Memo1.Lines.Add(sRecr); end; end; end;end;

当服务器从客户端套接字读取信息时，它会将该文本添加到Memo组件中；文本和客户端远程地址都被添加，因此您将知道是哪个客户端发送了信息。在更复杂的实现中，已知IP地址的别名可以作为替代。

对于使用这些组件的更复杂的项目，请浏览Delphi&gt；演示&gt；互联网&gt；聊天项目。它是一个简单的网络聊天应用程序，对服务器和客户端使用一个表单（项目）。