可以对应很多。定义全局的
CustomWinSocket1:TCustomWinSocketprocedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
CustomWinSocket1:=Socket;
end;
CustomWinSocket1:TCustomWinSocketprocedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
CustomWinSocket1:=Socket;
end;
第一个连接的是connections[0],以后类推。