Коннект через Winsock

[Dimon_G]

Привет товарищи . У меня такая проблема. есть приложение Клиент-Сервер. Коннект через TCP-протокол. И Клиента и Сервер запускаю на одном компе, при первом запуске все нормально коннект есть данные отсылаются. Но когда я закрываю клиента и снова запускаю(при этом сервер остаётся запущенным),то коннект не происходит. Подскажите пожалуйста причину проблемы и как от этой проблемы избавится. Заранее спасибо.

[SSecurity]

Дорогой мой...
Когда Сервер включается он у тебя слушает порт, когда кнему коннектится клиент и устанавливается соединение порт уже не слушается ... и также он не слушается когда связь "рвется"

а для того, чтобы у тебя Сервер снова слушал порт ты должен восстанавливать его в состояние "прослушки".

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

Private Sub Timer1_Timer()
If Winsock1.State <> 7 Then Winsock1.Listen
End Sub


Интервал таймера: ~ 200

[Dimon_G]

Спасибо тебе

[SSecurity]

Всегда рад помочь

[Dagobert]

Лучше, вешать на прослушку один winsock, а на соединение другой.
Что-то вроде этого:

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

Private  Sub Winsock1_ConnectionRequest(acceptid)
Winsock2.Close
Winsock2.accept acceptid
end sub

А ещё лучше массив Winsock'ов для соединения.

[SSecurity]

ага ... тогда ты сможешь постоянно "коннектится" с большим кол-вом клиентов по одному порту, точнее он у тя не занят будит