При использовании протокола TCP, если вам необходимо создать клиентское приложение, вы должны указать имя или IP-адрес сервера. Коммуникационный порт приложения будет внимательно отслеживать сообщения, отправленные другой стороной в любое время, что является гарантией надежного соединения системы. После установления соединения любая сторона может отправлять и получать данные через SendData и отделять свои собственные данные через GetData. При передаче данных вам необходимо сначала установить атрибут LocalPort клиента. Серверу нужно только установить атрибут RemoteHost для адреса Ethernet клиента, установить тот же адрес порта, что и атрибут LocalPort клиента, и начать отправку сообщений с помощью метода SendData. Клиент разделяет отправленную информацию через событие DataArrival в событии GetData. Элемент управления Winsock позволяет локальному компьютеру подключаться к удаленному компьютеру с использованием протоколов UDP или TCP. Оба протокола могут создавать клиентские и серверные приложения.
При использовании элемента управления Winsock обе стороны связи должны выбрать один и тот же протокол. Протокол TCP подходит для передачи файлов данных большого объема, требующих гарантий безопасности, тогда как протокол UDP подходит для ситуаций, когда вам необходимо общаться со многими подчиненными по отдельности или когда установлено множество и изменяющихся во времени соединений, особенно когда объем данных небольшой. При настройке вы можете использовать метод Winsock1.PROtocol=sckTCPProtocol. Сначала найдите имя вашего компьютера и добавьте его в свойство LocalHost Winsock.
При создании приложения вы должны сначала определить, создаете ли вы клиентское приложение или серверную службу. Только когда установленное серверное приложение начинает работать и переходит в состояние прослушивания, клиентское приложение начинает устанавливать соединение и переходить в нормальное состояние связи. . Автор создал приложение, функция которого заключается в том, что при движении мыши клиента серверное приложение может отображать положение мыши в реальном времени.
Вот как создать серверное приложение:
1. Создайте новый стандартный EXE-файл;
2. Добавьте элемент управления Winsock;
3. Добавьте следующий код:
ПриватСубФормЛоад()
tcpServer.LocalPort=1001
tcpServer.Localhost=сервер
tcpServer.remotePort=1002
tcpServer.Localhost=клинт
tcpServer.Слушать
EndSub
'Проверка соединения
PrivateSubtcpServerConnectionRequest (ByValrequestIDasLong)
IftcpServer.State＜＞sckClosedThen
tcpServer.Close
tcpServer.AcceptrequestID
EndSub
'Отправить данные
PrivateSubfrmservermonsemove(x,y)
tcpServer.SendDatax&str(x)
tcpServer.SendDatay&str(y)
EndSub
Как создать клиентское приложение:
1. Создайте новый стандартный EXE-файл;
2. Добавьте элемент управления Winsock;
3. Добавьте два текстовых поля — txtx и txty;
4. Добавьте следующий код:
ПриватСубФормЛоад()
tcpServer.LocalPort=1002
tcpServer.Localhost=клинт
tcpServer.remotePort=1001
tcpServer.Localhost=сервер
tcpServer.Слушать
EndSub
'Проверка соединения
Приватсубткпклинтконнектионреквест
(ПовалрекуестИДаслонг)
Iftcpklint.State＜＞sckClosedThen
tcpklint.Закрыть
tcpklint.AcceptrequestID
EndSub
получать данные
Приватсубткпклиентдатарривалл
(Бивалбайтестоталаслонг)
Димстрдатаасстринг
tcpklint.GetDatastrData
ifleft(strData,1)=Xthen
txtx.Text=strData
еще
txty.Text=strData
конец
EndSub
Вышеописанная процедура реализует очень простую двухточечную связь. С небольшими изменениями на этой основе можно сформировать функционально сложную интерактивную систему связи АА в компьютерной сети реального времени для управления, графического моделирования и т. д. Winsock в VB предоставляет нам простой метод передачи данных, позволяющий легко обеспечить двухточечную сетевую связь.
->