powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Зависает winsock приложения
14 сообщений из 14, страница 1 из 1
Зависает winsock приложения
    #33106268
DEN15
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Намертво зависает среда разработки при завершении работы приложения, а в скомпилированном виде остаются в памяти с меткой "не отвечает".
Кто сталкивался и победил? поделитесь пожалста...
Работаю на
Windows Xp Home SP2 VB6EE SP6
Вот кусочек кода из программы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private lngNum as Long
Private Sub LoadServer()
If chkStock.Value =  1  Then
    lngNum =  0  'num of winsocks
    tcpServer( 0 ).LocalPort =  27478  'port to listen on
    tcpServer( 0 ).Listen 'start listening (for clients)
    Call FormatGrid
End If
End Sub

Private Sub UnLoadServer()
Dim i As Single
For i =  0  To lngNum
    tcpServer(i).Close
Next i
End Sub
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33107018
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мало инфы. Этот код ни о чем.
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33109019
DEN15
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AntonariyМало инфы. Этот код ни о чем.
Поконкретней: какой инфы мало? о чём должен быть код?
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33109108
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нужен весь код, отвечающий за время жизни винсоков. Желательно вычищенный от не имеющих отношения к вопросу инструкций типа Call FormatGrid.
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33110869
DEN15
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело в следующем:
среда зависает при завершении работы программы, вот этот код больше ничего.(отдельно сделал проектик и оставил только этот код), стартует нормально, но завершаешь программу и виснет намертво ВБ.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit

Private Sub Form_Load()
    Winsock1.LocalPort =  27478 
    Winsock1.Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33110959
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DEN15Дело в следующем:
среда зависает при завершении работы программы, вот этот код больше ничего.(отдельно сделал проектик и оставил только этот код), стартует нормально, но завершаешь программу и виснет намертво ВБ.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit

Private Sub Form_Load()
    Winsock1.LocalPort =  27478 
    Winsock1.Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub


именно такой код работает
проблема не в коде
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33110972
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это у тебя какой-то локальный глюк. Попробуй переустановить VB и/или XP.
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33110997
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нечто подобное может происходить, если соединение на сокете уже установлено и клиент не закрывает соединение на своей стороне в ответ
на серверный Winsock1.Close.


правда по выданному описанию догадаться что именно у автора вопроса происходит нельзя.
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33111479
ддд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторWindows Xp Home SP2 VB6EE SP6
возможно поднят локальный брандмауэр и нет прав на открытие порта.
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33111558
DEN15
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, Windows Firewall включен, но я попробовал и добавить в лист исключений (exceptions list) VB и выключить firewall, проблема не ушла. Переустановить Win это будет очень сложно (много причин этого не делать), и к сожалению переставлять VB тоже не получиться, потому что на клиентах эта проблема тоже есть, по менеджеру задач видно, что приложение "висит" в памяти. Клиенты на WinXP PRO SP2/Win2k Pro sp4. Может проблема с winsock? он у меня v.6.1.97.82. авторнечто подобное может происходить, если соединение на сокете уже установлено и клиент не закрывает соединение на своей стороне в ответ
на серверный Winsock1.Close. в данном случае клиенты не подключаются, так сказать локальный запуск.
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33111653
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Winsock1.LocalPort = 27478
on error resume next
Winsock1.Listen
debug.p
Winsock1.Close
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33111657
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ох, кнопки сами жмутся....

Попробуйте повесить весь код целиком на отдельную кнопку и посмотреть, что там с ошибками.
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33113014
DEN15
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробовал, ошибок нет (Debug.Print Err.Number)
И зависла, именно на кнопочку закрыть жмёшь и всё...
...
Рейтинг: 0 / 0
Зависает winsock приложения
    #33113912
DEN15
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть вот такая статья:
http://]http://support.microsoft.com/default.aspx?scid=kb;en-us;171843
http://support.microsoft.com/default.aspx?scid=kb;en-us;171843
Пробовал, результат:
В памяти он висит, но VB не виснет, и загруз CPU100%
Для себя я сделал вывод: (почитав статью) в данном контексте проблема не решаема.
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Зависает winsock приложения
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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