Помогите найти и исправить ошибку в программе

[AntonGV]

Во время передачи данных с помощью winsock возникает ошибка:

Run-time error '40006':
Wrong protocol or connection state for the requested transaction or request.

Пожалуйста посмотрите программу и исправьте ошибку

[keks-n]

Скорее всего, когда ты пытаешься что-то отправить, соединение ещё не установлено, или уже закрыто. у winsock'а есть такое хорошее свойство-state, проверяй его перед отправкой.

[keks-n]

А теперь собственно ошибка: loopback - это не 121.0.0.1, а 127.0.0.1

И запомни: при неудачном подключении winsock НЕ СГЕНЕРИТ ошибку, так что всегда жди пока он соединится или выставит state в sckError, и только если state=sckConnected, считай, что соединение установлено.

[AntonGV]

Огромное спасибо! ошибку я искал совсем в другом месте =)

[tyomitch]

И запомни: при неудачном подключении winsock НЕ СГЕНЕРИТ ошибку

Да ну прямо?

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

Option Explicit

Private Sub Form_Load()
Winsock1.Connect "google.com", 12345
End Sub

Private Sub Winsock1_Error(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 "Какой кошмар! Ошибка!" & vbCrLf & Description
End Sub


Запусти и подожди таймаута.

[keks-n]

Он не сгенерит ошибку, в обычном понимании, а сгенерит событие сообщающее о ней. Ловить его из процедуры соединения не очень удобно, проще мониторить state...

[tyomitch]

Если процедура соединения -- это не бесконечный цикл с DoEvents внутри, а нормальный event-driven код, то такое событие ловить весьма удобно.