массив winsoc

[petroff]

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

Private Sub Form_Load()
   intmax = 0
   tcpServer(0).LocalPort = 1001
   tcpServer(0).Listen
   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).LocalPort = 0
      tcpServer(intmax).Accept requestID
      ''Load txtData(intmax)
   End If
End Sub
   
   Private Sub txtSendData_Change()
      tcpServer().SendData txtSendData.Text
   End Sub
   
   Private Sub tcpServer_DataArrival _
   (Index As Integer, ByVal bytesTotal As Long)
     Dim strData As String
   tcpServer(Index).GetData strData
   txtOutput.Text = strData
   End Sub



Почемуто при попытки присоединение второго клиента, плюется -Обект уже загружен-"Load tcpServer(intmax)"
Один клиент соединяется нормально, но сервер ругается если с него пытатся отправить мессаг клиенту. Ругается абсолютно справедливо, так как массив

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

Private Sub txtSendData_Change()
      tcpServer().SendData txtSendData.Text
   End Sub

но какой элемент указывать я не знаю

[tyomitch]

В чём конкретно затруднение?

[petroff]

Обновил.

[RazArt]

А зачем собстна проверка на то что индект рвен нулю? оО
И я сначала закрываю этот винсок, потом принемаю подключение

[tyomitch]

но какой элемент указывать я не знаю

А которому из клиентов ты собираешься отправлять данные?


2RazArt: закрывать слушатель уж точно ни к чему.

[RazArt]

Незнаю я привык, вообще скинул бы пример, но винда полетела и все вместе с ней =\
Щас что-нибудь начиркаю...