Использование Winsock контрола
Этот текст является вольным переводом из MSDN и демонстрирует возможности обмена данными по сети при помощи компонента Winsock.
Кое-что дополнено и исправлена одна ошибка из сэмпла MSDN из-за которой передача шла только в одну сторону.
Использование компонента Winsock
Компонент WinSock позволяет соединиться с удаленной машиной и обменяться с ней данными, используя UDP (User Datagram Protocol) или TCP (Transmission Control Protocol). Оба протокола могут быть использованы при создании клиент-серверных приложений. Также, как и Timer control, WinSock control является невидимым во время выполнения программы.
Как им пользоваться?
- cоздать приложение-клиент, которое будет собирать информацию перед отсылкой ее на центральный сервер;
- cоздать приложение-сервер, которое будет выполнять роль сборщика и хранителя информации от различных клиентских приложений;
- создать "chat"-приложение.
Выбор протокола.
Когда планируется использование а WinSock, необходимо решить какой протокол будет использоваться - TCP или UDP. Основное отличие между ними заключается в способе организации связи:
Соединение основанное на TCP протоколе, похоже на телефонное - пользователь сначала должен установить соединение, прежде чем что-либо передавать.
Соединение основанное на UDP протоколе, похоже на передачу голосом, сообщение передается от одного компьютера к другому, но не ясно, слышат ли они друг друга. Вдобавок, максимальный размер предаваемых данных устанавливается сетью.
Возможности приложения которое Вы создаете будет зависеть от протокола, который Вы изберете. Вот несколько вопросов которые могут помочь Вам выбрать подходящий протокол: Будет ли приложение требовать уведомления от сервера или клиента, когда данные передаются или получаются?
Если будет, то TCP протокол требует установленного соединения между передатчиком и приемником данных.
Будут ли передаваемые данные достаточно тяжелыми (например изображения или звуковые файлы)? Если соединение было установлено, TCP протокол будет его поддерживать и гарантируется целостность передаваемых данных. Такое соединение, из-за потребности в большем количестве вычислительных ресурсов, может сделать его более медленным.
Будут ли данные передаваться порциями или за одну сессию? Например, если Вы создаете приложение, которое сообщает каким-то компьютерам, о том, что какие-то задачи уже выполнены, то UDP протокол более подходящий. UDP протокол также блучше подходит для передачи небольшого количества данных.
Установка протокола.
Чтобы установить протокол, который будет использовать ваше приложение Вы должны в дизайн-тайме в окне свойств выбрать свойство Protocol и установить его sckTCPProtocol или sckUDPProtocol. Это можно также сделать программно:
Winsock1.Protocol = sckTCPProtocol
Определение имени компьютера.
Чтобы установить связь с удаленным компьютером, Вы должны знать либо его IP-адресс, либо его имя.
Основы TCP соединения.
Когда создается приложение, которое использует TCP протокол первое, что Вы должны решить, это чем будет ваше приложение клиентом или сервером. Если Вы создаете приложение-сервер, значит ваше приложение будет слушать указанный порт. Когда приложение-клиент подаст запрос на соедиение, приложение-сервер может принять запрос и таким образом установить соедиенеие. Если соединение установлено, приложение-клиент и приложение сервер могут свободно обмениваться данными.
Следующие шаги позволят Вам создать элементарное приложение-сервер:
Для создания TCP сервера
- Создайте новый Standard EXE проект.
- Замените имя формы по умолчанию на frmServer.
- В свойстве формы caption наберите "TCP Server"
- В меню Project\Components добавьте Microsoft Winsock Conrol 6.0
- Перетащите иконку компонента Winsock с панели инструментов и разместите ее на форме; измените имя компонента на tcpServer.
Добавьте на форму два Текстбокс элемента. В свойстве Name первого текстового поля наберите txtSendData, а второго txtOutput.
Добавьте в форму следующий код:
Private Sub Form_Load()
'Задать номер порта по которому будет осуществляться
'обмен данными, присвоив значение свойству LocalPort
'Вызвать метод Listen.
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show 'Показать форму клиента
End Sub
Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Проверяется свойство State, было ли завершено
' предыдущее соединение. Если не завершено,
' то перед установлением нового соединения,
' старое закрывается принудительно.
If tcpServer.State sckClosed Then _
tcpServer.Close
' Принятие запроса Accept с параметром requestID
' на установление соедиения.
tcpServer.Accept requestID
End Sub
Private Sub txtSendData_Change()
' Текстовое поле txtSendData
' содержит данные для передачи. Все символы,
' которые будут вводиться в это текстовое поле, будут единой
' строкой посылаться приложению-клиенту, используя метод SendData.
tcpServer.SendData txtSendData.Text
End Sub
Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Декларируется переменная-буфер для получаемых данных.
' Вызывается метод GetData и свойству Text
' текстового поля txtOutput, присваивается значение переменной-
' буфера.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
Описанные выше действия, выполненные Вами, приведут к созданию простого приложения-сервера. Но для того чтобы полностью выполнить задачу, необходимо создать еще и приложение-клиент.
Для создания TCP приложения-клиента
Добавьте новую форму в проект и назовите ее frmClient. И змените свойство формы caption на "TCP Client".
Перетащите и разместите компонент Winsock на форму и измените его свойство name на "tcpClient".
- Добавьте два Текстбокс-контрола на форму frmClient.
- Имя первого установите txtSend, а второго txtOutput.
- Перетащите на форму CommandButton и установите его свойство name в "cmdConnect".
- Измените свойство caption этой кнопки на "Connect".
Добавьте следующий код в форму.
Важно!!! Будьте внимательны при установке свойства RemoteHost. Оно должно соответствовать либо IP-адресу вашего компьютера, либо его "Дружественному имени" (см. Пуск\Настройка\Панель управления\Сеть) выберите вкладку "Идентификация". Текст из поля "Имя компьютера" и будет так называемым дружественным именем, которым можно заменять IP-адрес. Сам же IP-адрес, можно посмотреть, если выбрать закладку "Конфигурация" в списке выбрать TCP/IP, нажать кнопку "Свойства" и выбрать закладку IP-адрес.
Private Sub Form_Load() ' Имя Winsock-компонента tcpClient. ' Указывая имя удаленного компьютера можно ' указывать IP-адрес (например: "121.111.1.1") или ' дружественное имя, как в нижеприведенном коде. tcpClient.RemoteHost = "RemoteComputerName" 'или "121.111.1.1" tcpClient.RemotePort = 1001 End Sub Private Sub cmdConnect_Click() ' Вызвать метод Connect для создания соединения tcpClient.Connect End Sub Private Sub txtSend_Change() tcpClient.SendData txtSend.Text End Sub Private Sub tcpClient_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strData End Sub
Сохраните проект в отдельной директории.
Код приведенный выше - это простейшее клиент-серверное приложение. Чтобы попробовать, как это все работает на одной машине в связке, имитирующей межмашинное соединение, значение свойства RemoteHost приложения-клиента должно соответствовать дружественному имени или IP-адресу вашего компьютера. Запустите проект и нажмите кнопку "Connect". После этого наберите текст внутри текстового поля txtSendData на каждой форме и убедитесь, что тот же самый текст появится в текстовом поле txtOutput другой формы.
Если Вы хотите, попробовать, как приложения будут осуществлять связь между двумя компьютерами, то Вам прийдется произвести следующие действия:
- Удалить из кода формы приложения-сервера строку frmClient.Show.
- В окне Project Explorer щелкнуть правой кнопкой мыши на форме frmClient.frm и в появившемся меню выбрать Remove frmClient.frm после чего сохранить проект под именем Server1.
- Открыть первый вариант проекта и таким же образом удалить из проекта уже форму frmServer.frm.
- Создать exe модуль для frmClient-а и переписать его на удаленный компьютер и запустить его там.
Примечание: если на удаленном компьютере не установлен VB будьте готовы к тому, что вам потребуется переписать на него из WINDOWS\SYSTEM\mswinsck.ocx и зарегистрировать его при помощи команды WINDOWS\SYSTEM\regsvr32.exe mswinsck.ocx
Если приложение будет требовать какие-то дополнительные dll модули перепишите их со своей машины на удаленную.
- На своей машине, откройте проект Server и запустите его.
- На клиентской машине нажмите кнопку Connect и наберите текст внутри текстового поля txtSendData на каждой форме и убедитесь, что тот же самый текст появится в текстовом поле txtOutput в приложении, запущенном на другом компьютере.
Обработка более чем одного запроса на установление соединения.
Приложение-сервер, которое мы создавали сначала может обработать только один запрос на соединение. Тем не менее, существует возможность обработать несколько запросов на соединение, используя тот же самый управляющий элемент как один из массива управляющих элементов.
В этом случае, необязательно закрывать соединение - просто создайте новый вариант управляющего элемента (использовав его свойство Index) и вызовите метод Accept для этого нового варианта управляющего элемента.
В приведенном ниже тексте программы, свойству Index, размещенного на форме Winsock-компонента sckServer, присваивается значение 0, таким образом, управляющий элемент становится частью массива управляющих элементов. В разделе Declarations описана локальная переменная intMax. Когда для формы происходит событие Load, переменной intMax присваивается значение 0 и свойству LocalPort первого элемента массива управляющих элементов присваивается значение 1001. Только после того, как вызывается метод Listen этого управляющего элемента, он начинает слушать указанный порт. Когда поступает новый запрос на соединение, осуществляется проверка значения Index и равно ли оно 0 (значение элемента, который слушает порт). Таким образом, элемент который слушает порт, будет приращивать переменную intMax и использовать значение этой переменной для создания нового элемента массива. Этот новый элемент будет использоваться для обработки запроса на соединение.
Private intMax As Long Private Sub Form_Load() intMax = 0 sckServer(0).LocalPort = 1001 sckServer(0).Listen End Sub Private Sub sckServer_ConnectionRequest _ (Index As Integer, ByVal requestID As Long) If Index = 0 Then intMax = intMax + 1 Load sckServer(intMax) sckServer(intMax).LocalPort = 0 sckServer(intMax).Accept requestID Load txtData(intMax) End If End Sub
Основы UDP.
Создавать приложения, использующие UDP протокол проще, чем создавать приложения, использующие TCP протокол. Дело в том, что UDP не требует уже установленного соединения, как необходимого условия для передачи данных. В приложениях использующих TCP соединение, один Winsock элемент должен обязательно "слушать" порт, в ожидании пока какое-нибудь другое приложение не станет инициатором соединения, использовав метод Connect.
UDP протокол не требует обязательно установленного соединения для передачи данных. Для передачи данных между двумя приложениями, необходимо выполнить три следующих пункта с обеих соединяющихся сторон:
- присвоить свойству RemoteHost дружественное имя или IP-адрес компьютера с которым предстоит соединение;
- установить свойство RemotePort для LocalPort property of the second control.
- Вызвать метод Bind указав какой локальный порт будет использоваться (метод Bind подробнее будет обсужден ниже).
Т.к. оба компьютера полагаются равными в установлении соединения, мы можем назвать это соединение peer-to-peer. Чтобы продемонстрировать это соединение мы создадим так называемое приложение-chat позволяющее двум людям общаться в реальном режиме времени.
Для создания UDP соединения:
Создайте Standard EXE проект.
- Измените свойство name формы на frmPeerA.
- Измените свойство caption формы на "Peer A"
- Перетащите с панели инструментов иконку Winsock компонента и разместите его на форме. Присвойте свойству name значение udpPeerA.
- Измените свойство Protocol на UDPProtocol.
- Добавьте два текстовых поля на форму.
Имя первой должно быть txtSend а второй txtOutput. Добавьте приведенный ниже код на форму.
Private Sub Form_Load() ' Имя Winsock элемента udpPeerA With udpPeerA ' Важно: правильно укажите значение RemoteHost ' компьютера, с которым предстоит соединение. .RemoteHost= "PeerB" .RemotePort = 1001 ' Имя порта для соединения. .Bind 1002 ' Привязка к локальному порту. End With frmPeerB.Show ' Показать вторую форму. End Sub Private Sub txtSend_Change() ' Послать текст, как только он будет набран. udpPeerA.SendData txtSend.Text End Sub Private Sub udpPeerA_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData txtOutput.Text = strData End Sub
Чтобы создать второе UDP приложение.
- Добавить стандартную форму в проект.
- Изменить имя формы на frmPeerB.
- Изменить свойство caption формы на "Peer B".
- Перетащить и разместить иконку Winsock компонента на форму.
- Изменить имя Winsock на udpPeerB.
- Изменить свойство Protocol на UDPProtocol.
- Добавить два текстовых поля на форму.
Имя первого должно быть txtSend, а второго txtOutput.
Добавьте следующий код в форму.
Private Sub Form_Load() ' Имя Winsock элемента udpPeerB. With udpPeerB ' Будьте внимательны указывая имя или IP-адрес ' компьютера с которым предстоит соединение. .RemoteHost= "PeerA" .RemotePort = 1002 ' Номер порта для соединения. .Bind 1001 ' Привязка к локальному порту. End With End Sub Private Sub txtSend_Change() ' Пересылать текст, как только он будет набран в текстовом поле. udpPeerB.SendData txtSend.Text End Sub Private Sub udpPeerB_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData txtOutput.Text = strData End Sub
Чтобы попробовать приложение запустите проект, и наберите в текстовом поле txtSend каждой формы какой-то текст.
Этот текст появится в текстовых полях txtOutput другой формы.
О методе Bind.
Как показано в приведенном выше примере, Вы должны вызывать метод Bind, когда создается UDP приложение. Метод Bind резервирует локальный порт для использования его элементом Winsock. Например, когда Вы привязываете свой элемент Winsock к порту 1001, то ни одно другое приложение не может использовать этот порт для прослушивания. Это может быть полезным, когда Вы хотите воспрепятствовать какому-либо другому приложению использовать этот порт.
Метод Bind имеет еще один необязательный аргумент.
Если на вашем компьютере установлено более одного сетевого адаптера, аргумент LocalIP позволит Вам точно указать адаптер, который необходимо использовать. Если Вы не укажите этот аргумент, то Winsock компонент будет использовать тот сетевой адаптер, который расположен первым в списке, который можно посмотреть в Пуск\Настройка\Панель управления\Система\Сетевые платы.
Когда используется UDP протокол, Вы можете изменять свойства RemoteHost и RemotePort пока сохраняется привязка к тому же самому LocalPort. Если бы Вы использовали TCP протокол, то прежде чем сменить свойства RemoteHost и RemotePort, необходимо сначала закрыть соединение.
Оставить комментарий
Комментарии
Эт точно
НА ФОРМУ РАЗМЕСТИТЬ:
udpPeerA - WINSOCK НА UDP
txtOutput - Текстбокс-контрол
txtNick - Текстбокс-контрол
txtSend - Текстбокс-контрол
lstIP - ЛИСТБОКС-КОНТРОЛ ЗДЕСЬ ВПИСЫВАЮТСЯ ЛИБО АДРЕСА МАШИН ИЛИ ИХ ИМЕНА (ВСЕ КТО БУДЕТ В ЧАТЕ)
ON ERROR RESUME NEXT - ПОСКОЛЬКУ НЕТ АВТОМАТИЧЕСКОГО АПРЕДЕЛЕНИЯ МАШИН ТО ЭТО НУЖНО ЧТОБЫ НЕ ВЫЛЕТАЛА ОШИБКА ПРИ ОТПРАВКЕ СООБЩЕНИЯ ЕСЛИ 1 МАШИНЫ В СПИСКЕ НЕТ. ЕСЛИ ВСЕ МАШИНЫ ЗАГРУЗИЛИ ЧАТ КОТОРЫЕ В СПИСКЕ ТО ЭТО НЕ НУЖНО.
----------------------------------------------------------------------
Private Sub Form_Load()
With udpPeerA
.Bind 1001 ' Привязка к локальному порту.
End With
End Sub
Private Sub txtSend_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim x, y
Dim X_SendData
x = lstIP.ListCount - 1
If KeyAscii = vbKeyReturn Then
X_SendData = "[" & Time & "] " & txtNick.Text & ": " & txtSend.Text & vbCrLf
For y = 0 To x
With udpPeerA
.RemoteHost = lstIP.List(y)
.RemotePort = 1001
.SendData X_SendData
End With
Next y
txtOutput.Text = txtOutput.Text & X_SendData
txtSend.Text = ""
End If
End Sub
Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = txtOutput.Text & strData
End Sub
----------------------------------------------------------------------
ДА И СРАЗУ ПОПУТНЫЙ ВОПРОС КАК СДЕЛАТЬ ТАК ЧТО БЫ ПРИ ЗАГРУЗКЕ ЧАТА ОПРЕДЕЛЯЛИСЬ ВСЕ ЗАГРУЖЕННЫЕ МАШИНЫ С ЭТИМ ЧАТОМ... Т.Е. ЧТО БЫ ВРУЧНУЮ НЕ ВВОДИТЬ В ИСХОДНИКЕ МАШИНЫ?
НА ФОРМУ РАЗМЕСТИТЬ:
udpPeerA - WINSOCK НА UDP
txtOutput - Текстбокс-контрол
txtNick - Текстбокс-контрол
txtSend - Текстбокс-контрол
lstIP - ЛИСТБОКС-КОНТРОЛ ЗДЕСЬ ВПИСЫВАЮТСЯ ЛИБО АДРЕСА МАШИН ИЛИ ИХ ИМЕНА (ВСЕ КТО БУДЕТ В ЧАТЕ)
ON ERROR RESUME NEXT - ПОСКОЛЬКУ НЕТ АВТОМАТИЧЕСКОГО АПРЕДЕЛЕНИЯ МАШИН ТО ЭТО НУЖНО ЧТОБЫ НЕ ВЫЛЕТАЛА ОШИБКА ПРИ ОТПРАВКЕ СООБЩЕНИЯ ЕСЛИ 1 МАШИНЫ В СПИСКЕ НЕТ. ЕСЛИ ВСЕ МАШИНЫ ЗАГРУЗИЛИ ЧАТ КОТОРЫЕ В СПИСКЕ ТО ЭТО НЕ НУЖНО.
----------------------------------------------------------------------
Private Sub Form_Load()
With udpPeerA
.Bind 1001 ' Привязка к локальному порту.
End With
End Sub
Private Sub txtSend_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim x, y
Dim X_SendData
x = lstIP.ListCount - 1
If KeyAscii = vbKeyReturn Then
X_SendData = "[" & Time & "] " & txtNick.Text & ": " & txtSend.Text & vbCrLf
For y = 0 To x
With udpPeerA
.RemoteHost = lstIP.List(y)
.RemotePort = 1001
.SendData X_SendData
End With
Next y
txtOutput.Text = txtOutput.Text & X_SendData
txtSend.Text = ""
End If
End Sub
Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = txtOutput.Text & strData
End Sub
----------------------------------------------------------------------
ДА И СРАЗУ ПОПУТНЫЙ ВОПРОС КАК СДЕЛАТЬ ТАК ЧТО БЫ ПРИ ЗАГРУЗКЕ ЧАТА ОПРЕДЕЛЯЛИСЬ ВСЕ ЗАГРУЖЕННЫЕ МАШИНЫ С ЭТИМ ЧАТОМ... Т.Е. ЧТО БЫ ВРУЧНУЮ НЕ ВВОДИТЬ В ИСХОДНИКЕ МАШИНЫ?
Если кому мало, то пусть почитает свойства в окне "object browser" для этого контролла. Много интересного :)
если есть , то какие?