Многопользовательский серверок winsock

[TiG]

Эх... опять заблудился, сорь за тему избитую.

1. Существует ли возможность серверу обслуживать сотни клиентов, обходясь одним портом и одним констролом winsock?
2. Возможно ли юзать один порт сотнями контролов?
3. Первый или второй подход будет грамонтней и быстрее, нагружая менее серверок?

Если выше ересь написана, то подскажите плз, где можно прочитать пример похожий, например на тот же сетевой преферанс на 4 человек.

Хстати и что-нибудь про авторизацию или аунтификацию.

P.S. Серверок в инэте будет, поэтому не представляю как его клиенты будут искать по разным портам.

[GSerg]

1. Да; нет.
2. Да.
3. N/a.

Отчасти.

Статью Алибека смотри на сайте.

[tyomitch]

Оба-на, а у меня есть недописанный преферанс на 4 человека, кажется я уже рассказывал... Может мне его выложить, и кто-нибудь допишет?

[TiG]

ага выкладывай

[alibek]

Вдобавок, есть компоненты Dart (PowerTCP Winsock Tool), эти сокеты имеют проперть ReuseAddress, при установке которой в True можно использовать один порт для разных клиентов. Не знаю правда, как это реализовано внутри, скорее всего эмуляция.

[TiG]

2 GSerg: ты ответил на первый вопрос, что сотни обслуживать можно, но одним контролом и портом типа незя. Мона плз подробнее? Счаз вроде написали програмулинку, типа как пашет этот вариант.

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


Dim INTMAX As Integer
Private Sub Form_Load()
  INTMAX = 0
  tcpServer(0).Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
For i = 0 To INTMAX
tcpServer(INTMAX).Close
Next i
End Sub

Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
  If Index = 0 Then
        INTMAX = INTMAX + 1
        Load tcpServer(INTMAX)
        tcpServer(INTMAX).Accept requestID
    End If
   
End Sub

Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim strData As String
    tcpServer(Index).GetData strData
If Index = 1 Then Text1.Text = strData
If Index = 2 Then Text2.Text = strData
End Sub






[tyomitch]

TiG, так у тебя ведь не один контрол, а целый массив?

[TiG]

угу наверное) хз в общем, буду на ощупь идти