Delphi多个socket对象

在Delphi中，可以使用TServerSocket和TClientSocket组件创建多个socket对象。这些组件允许您在同一应用程序中创建多个socket对象，并在不同的端口上侦听连接。您可以使用TServerSocket组件侦听传入连接，而使用TClientSocket组件连接到其他服务器。

以下是创建多个socket对象的示例代码：

使用TServerSocket创建多个socket对象：

var
Server1: TServerSocket;
Server2: TServerSocket;
begin
// Create first server socket
Server1 := TServerSocket.Create(nil);
Server1.Port := 8000;
Server1.Active := True;

// Create second server socket
Server2 := TServerSocket.Create(nil);
Server2.Port := 9000;
Server2.Active := True;
end;

使用TClientSocket创建多个socket对象：

var
Client1: TClientSocket;
Client2: TClientSocket;
begin
// Create first client socket
Client1 := TClientSocket.Create(nil);
Client1.Address := '127.0.0.1';
Client1.Port := 8000;
Client1.Active := True;

// Create second client socket
Client2 := TClientSocket.Create(nil);
Client2.Address := '127.0.0.1';
Client2.Port := 9000;
Client2.Active := True;
end;

您还可以将多个socket对象保存在数组或列表中，以便更方便地管理它们。例如，以下代码创建一个TServerSocket对象的数组：

var
Servers: array[0..1] of TServerSocket;
begin
// Create first server socket
Servers[0] := TServerSocket.Create(nil);
Servers[0].Port := 8000;
Servers[0].Active := True;

// Create second server socket
Servers[1] := TServerSocket.Create(nil);
Servers[1].Port := 9000;
Servers[1].Active := True;
end;

请注意，使用多个socket对象时，您需要确保它们使用不同的端口号，并正确处理所有连接和数据传输。