Есть WinSock в режиме Listen и есть событие DataArrival.
- Код: Выделить всё
Private Sub Form_Load()
tcpServer.LocalPort = 3356
tcpServer.Listen
End Sub
- Код: Выделить всё
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
tcpServer.GetData strData
Debug.Print strData
End Sub
Собственно, в браузер подается URL вида: http://localhost:3356/?blablabla
В итоге, получаем ответ в окне отладки, как следовало догадаться.
Но, при повторном переходе по этому или другому URL, ничего не получаем.
Пробуем изменить код события примерно на следующий:
- Код: Выделить всё
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
tcpServer.GetData strData
Debug.Print strData
tcpServer.Close
tcpServer.LocalPort = 3356
tcpServer.Listen
End Sub
Теперь получаем все и вовремя. Но в количестве 5-10 штук за переход по ссылке.
Вопрос, почему? А также, как сделать так, чтобы каждый раз получать данные в единичном экземпляре, желательно без закрытия сокета.
