winsock не реагирует на обрыв связи

[dklmn]

Такая проблемка
- есть сервер с массивом винсоков.
- все работает вроде как надо
- но по идее ведь винсок контрол должен генерить ошибку при обрыве связи.
Вот я написал некий обработчки ошибок:
'*********************

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


Private Sub tcpserver_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Log_Event "Server error " & Description
    If Number = 10053 Then
         tcPServer(Index).Tag = ""
        tcPServer(Index).Close
        Log_Event "Обрыв связи , сокет закрыт.."
       
    End If
End Sub[syntax="vb"]

'***************
теперь коннекчусь клиентом начинаю что то передавать и на самом интересном месте убиваю клиента.
Ошибка НЕ генериться.
Сокет так и висит открытым.
Что не так делаю?[/syntax]

[uhm]

Событие error не возникает, если связь прерывается. Не знаю, может быть, есть более изящный способ, но я у себя в программе делал таймер и по нему проверял Winsock.State.

[alibek]

А событие Close происходит?

[alibek]

Обрывы бывают разные. В одних случаях происходит Error, в других Close.

[uhm]

О, точно! Проглядел я это событие! Winsock.Close.

[dklmn]

А событие Close происходит?

Хм...
и правда происходит.
Хорошо когда уже обо всем позаботились.
Но плохо когда об этм не знаешь.
Спасибо.

[Alexander N. Samarin]

Я сделал так:

Сервер::

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


Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
    If tcpServer.State <> sckClosed Then tcpServer.Close
   
    tcpServer.Accept requestID
   
    tcpServer.SendData "Connect"
End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
    Dim InputData As String
   
    tcpServer.GetData InputData
   
    If InputData = "ClientON" Then
        Answer = True
        ...
    ElseIf InputData = "ClientOFF" Then
        Answer = False

        MsgBox "Client diconnected", vbInformation + vbOKOnly, App.Title
        End
    Else
        ...
    End If
End Sub



Клиент::

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


Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
    Dim InputData As String
   
    tcpClient.GetData InputData
   
    If InputData = "Connect" Then
        Connected = True       
        tcpClient.SendData "ClientON"
    ElseIf InputData = "Diconnect" Then
        Connected = False
       
        tcpClient.Close
       
        MsgBox "Server diconnected", vbInformation + vbOKOnly, App.Title
        End
    Else
        ...
    End If
End Sub



Это реагирует на нормальное отключение клиента, также можно сделать проверку, есть ли связь.