Sub Sock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Response
MsgBox "Получены данные размером " & bytesTotal & " байт. Содержание: " & Response
End Sub
Нужен исходник Сетевого мессенджера
Приведите, пожалуйста, пример сетевого приложения типа Аси или Mail агента... P.S. общение напрямую (без сервера):confused:
Что именно вы хотите? Готовое решение?
Нет, я привык делать сам. Мне нужен принцип работы. Основные команды для общения двух приложений через Сеть.
Все достаточно просто реализовать через сокеты. Для этого кидаете на форму компонент winsock (Windows Socket).
Только помните, что один компонент=одна связь и лишь в одну сторону.
Поскольку вам нужно, чтобы связь была двусторонней, нужно использовать 2 этих компонента, например sock1 и sock2. После этого в свойствах прописываете хост и порт удаленного компьютера. Обрабатывать события нужно после того, как осуществлен коннект:
Sock1.Connect
Примерно так. Под рукой ВБ нет, так что могут быть ошибки. Но пробуйте, разбирайтесь. Будут вопросы - спрашивайте. Можно было бы исходников в сети накачать, но имхо самому разбираться лучше, нежели иметь готовые решения.
Только помните, что один компонент=одна связь и лишь в одну сторону.
Поскольку вам нужно, чтобы связь была двусторонней, нужно использовать 2 этих компонента, например sock1 и sock2. После этого в свойствах прописываете хост и порт удаленного компьютера. Обрабатывать события нужно после того, как осуществлен коннект:
Sock1.Connect
Код:
Примерно так. Под рукой ВБ нет, так что могут быть ошибки. Но пробуйте, разбирайтесь. Будут вопросы - спрашивайте. Можно было бы исходников в сети накачать, но имхо самому разбираться лучше, нежели иметь готовые решения.