powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / winsock
1 сообщений из 1, страница 1 из 1
winsock
    #35948711
jhonkuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот какой вопрос:
На сервере хочу выполнять проверку доступности клиентов (типа все ли в сети) и для этого использую winsock. В серверном приложении для этого используй код:

Код: plaintext
1.
2.
3.
4.
Private Sub Timer1_Timer()
For i =  1  To ListView1.ListItems.Count
       tcpServer(i).SendData "puk"
Next i
End sub

ListView1.ListItems - список компов с клиентским приложением.
Идея: клиентское приложение не доступно, когда при выполнении кода в таймере tcpServer(i).SendData "puk" выплевывает ошибку. Как перехватить эту ошибку, чтобы в списке ListView1.ListItems поставить отметку, типа клиент "offline"?

Этот код:

Код: plaintext
1.
2.
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)
MsgBox (Index)
End Sub

ошибку не отрабатывает. Может чего ото по другому можно, буду рад за умную мысль. Заранее спасибо.
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / winsock
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]