Несколько соединений на 1 порт

[krobab]

Подскажите кто знает.
Как сделать несколько соединений на 1 порт ,а не создавать несколько видов контрола винсока?
Т.е. на 1 коме запускается сервер под определённым портом, а к нему подключаются сразу несколько клиентов с других компьютеров, и между сервером и клиентами происходит обмен информацией.

[Fedorfx]

Размещаеш на форме Winsock1 и массив Winsock2
Winsock1.listen


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2(i).Accept
End Sub

[SSecurity]

Код: Выделить всё

Размещаеш на форме Winsock1 и массив Winsock2
Winsock1.listen

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2(i).Accept
End Sub


Все классно, тока позаботится надо о свободных винсоках и занятых ... ну сам проверять будешь (от себя: - вот я тебе не завидую в обработке всех данных с такой ссты можно съехать с ума ... я проект на полпути свернул (правда через день доделал ))