Страница: 1 |
Страница: 1 |
Вопрос: Код выполняется вопреки логике !!!
Добавлено: 19.10.05 22:30
Автор вопроса: student-uni
Код приблизительнотакой
' в реале вызывается функция которая потом вызывает эту функцию
If RasDialErrorCode <> 0 Then ' если ошибка - ругаемся
MsgBox(" Error-Code - " & RasDialErrorCode)
RasHangUp(MyNullHandle) 'на всякий случай вешаем трубку
Sleep(3000) ' подождём закрытия порта - рекомендовано МСДН
Me.Close() и закрываем форму
Else
GEtenumconnections() 'запускаем другую функцию
' в реале вызывается функция которая потом вызывает эту функцию
endif
Теперь внимание проблема:
RasDial("Соединение с Интернет") не срабатывает как вы понимаете сразу
надо время секунд 5-10
так вот пока она "думает" код идёт выполняться дальше
и пока я получаю RasDialErrorCode <> 0
всё равно выскакивает
GEtenumconnections()
который не должен был бы выскочить если бы RasDialErrorCode принял своё значение без задержки.
Вопрос
Как обойти эту пакость ?
Эффект проверен.
если перед проверкой записать значение насильно
If RasDialErrorCode <> 0 Then ' если ошибка - ругаемся
то всё работает нормально
Спасибо всем
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #1
Добавлено: 19.10.05 22:50
а если после RasDial("Соединение с Интернет" вставить Sleep(6000) ?
Номер ответа: 2
Автор ответа:
DaSharm
ICQ: 780477
Вопросов: 72
Ответов: 1297
Web-сайт:
Профиль | | #2
Добавлено: 19.10.05 23:10
не ну офигеть, а кто тебе сказал, что RasDial сразу запишет ошибку? это ведь не синхронное действие.
Номер ответа: 3
Автор ответа:
student-uni
Вопросов: 122
Ответов: 257
Профиль | | #3
Добавлено: 19.10.05 23:28
причину вижу, чем лечить то ?
Номер ответа: 4
Автор ответа:
student-uni
Вопросов: 122
Ответов: 257
Профиль | | #4
Добавлено: 19.10.05 23:29
2 Хакер
можно, но комп то умирает,
нехорошо как то с юзверем ...
Номер ответа: 5
Автор ответа:
Morpheus
Вопросов: 224
Ответов: 3777
Web-сайт:
Профиль | | #5
Добавлено: 19.10.05 23:34
ну цикл поставь типа "делать пока не подключимся" и вызывать DoEvents и рендерить надпись "погоди противный, подключаемся"
Номер ответа: 6
Автор ответа:
student-uni
Вопросов: 122
Ответов: 257
Профиль | | #6
Добавлено: 20.10.05 23:57
Спасибо всем и особенно Morpheus
Рулит !!