Использование компонента WinSock для работы с Интернет - часть первая

Вступление

В этой статье я расскажу, как использовать WinSock Control.

Компонент WinSock позволяет работать с протоколами TCP и UDP, используя архитектуру клиент-сервер: устанавливать соединение, передавать и принимать данные. В данной части статьи речь пойдет об использовании WinSock’а с протоколом TCP.

Основные понятия

Перед тем, как данные будут переданы, должно быть установлено соединение между клиентом и сервером.

Компонент WinSock не виден во время работы программы, в точности как элемент Timer.

Сервер - программа, которая прослушивает определенный порт, принимает и обрабатывает входящие запросы на соединение и обменивается данными с клиентом.

Клиент - это программа, которая отправляет серверу запрос на соединение и, если оно успешно установлено, взаимодействует с сервером.

Для установки соединения клиенту требуется IP адрес сервера и порт.

Невозможна установка более одного соединения через один компонент WinSock. Исключение - массив контролов (подробнее об этом во второй части статьи). 

Установка протокола

Для того чтобы установить TCP протокол, используй свойство «винсока» Protocol:

Winsock1.Protocol = sckTCPProtocol

Использование UDP протокола в данной статье я рассматривать не буду. 

Как это работает

1. TCP сервер начинает прослушивать определенный порт
2. TCP клиент устанавливает соединение с сервером
3. Происходит обмен данными
4. Связь прерывается 

Как узнать IP адрес своего сервера

Если ты тестируешь программу у себя на компьютере – можешь использовать IP адрес 127.0.0.1. Это локальный адрес, по которому всегда можно соединиться с сервером на своем компьютере. 

Как правило, настоящий IP адрес сервера можно узнать из свойства LocalIP (например, Winsock1.LocalIP). 

Обрати внимание! Если твой компьютер подключен к Интернету через шлюз, то, в большинстве случаев, установить соединение с твоим сервером можно будет только локально или из сети LAN. При Dialup соединении твой IP адрес будет меняться при каждой установке соединения с провайдером.

Свойства компонента

Методы компонента

События компонента

Обрати внимание! Если ты отправляешь несколько пакетов за небольшой промежуток времени, они могут слиться в один. Чтобы этого избежать, в начале и конце каждого пакета добавляй служебный набор символов, а при получении данный используй функцию Split для разделения пакетов:
Dim s() As String, i As Long, strCurrentData As String
s = Split(strData, "этот самый служебный набор символов")
' Перечисление всех пакетов
For  i = 0 To UBound(s)
If Len(Trim(s(i))) > 0 Then 'В пакете должны быть данные
strCurrentData = s(i)
'Здесь вставь код обработки каждого пакета данных strCurrentData
End If
Next

Создание простого сервера для чата клиент-сервер

1. Создаем новый Standard ЕХЕ проект
2. Устанавливаем свойство Caption формы “TCP Server”
3. В меню проект -> Компоненты устанавливаем галочку на компоненте Microsoft Winsock Control
4. Размещаем на форме элемент WinSock1
5. Добавляем на форму TextBox’ы txtSendData и txtOutput; устанавливаем для txtOutput свойствам Multiline и ScrollBars соответственно значения True и 2 – Вертикаль; добавляем Command cmdSendData
6. Вставляем в форму следующий код:

Private Sub cmdSendData_Click()
'Отправляем данные
Winsock1.SendData txtSendData.Text
'Записываем в лог чата
txtOutput.Text = txtOutput.Text & vbNewLine & "Сервер: " & txtSendData.Text
'Стираем текст
txtSendData.Text = ""
'передаем фокус ввода текстовому полю
txtSendData.SetFocus
End Sub 

Private Sub Form_Load()
'Блокируем лог чата от ввода
txtOutput.Locked = True
'Устанавливаем размеры элементов
txtOutput.Move 0, 0, Me.Width, Me.Height * 0.6
txtSendData.Move 0, txtOutput.Height + 10, Me.Width
cmdSendData.Move 0, txtSendData.Top + txtSendData.Height, Me.Width
'Устанавливаем другие свойства
txtOutput.Text = ""
txtSendData.Text = "Введите сюда текст, чтобы отправить"
cmdSendData.Caption = "Отправить"
'Устанавливаем порт для прослушивания
Winsock1.LocalPort = 1001
'Начинаем прослушивать
Winsock1.Listen
End Sub 

Private Sub txtSendData_KeyPress(KeyAscii As Integer)
'Если нажат Enter - отправляем данные
If KeyAscii = 13 Then cmdSendData_Click
End Sub

Private Sub Winsock1_Close()
'Закрываем соединение, если оно еще не закрыто
If Winsock1.State <> sckClosed Then Winsock1.Close
'Начинаем прослушивать еще раз
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'Останавливаем прослушивание
'(Обязательно!)
Winsock1.Close

'Подключаем клиента
Winsock1.Accept requestID

'Очищаем лог разговора
txtOutput.Text = ""
End Sub 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s$
'Принимаем все данные
Winsock1.GetData s, vbString

'Записываем данные в лог разговора
txtOutput.Text = txtOutput.Text & vbNewLine & "Клиент: " & s

'Перемещаем курсор в конец лога
txtOutput.SelStart = txtOutput.SelLength

End Sub 

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox Description, vbCritical
Winsock1_Close
End Sub 

Создание простого клиента для чата клиент-сервер

1. Создаем новый Standard ЕХЕ проект
2. Устанавливаем свойство Caption формы “TCP Client”
3. В меню проект -> Компоненты устанавливаем галочку на компоненте Microsoft Winsock Control
4. Размещаем на форме элемент WinSock1
5. Добавляем на форму TextBox’ы txtSendData и txtOutput; устанавливаем для txtOutput свойствам Multiline и ScrollBars соответственно значения True и 2 – Вертикаль; добавляем Command cmdSendData
6. Вставляем в форму следующий код:

Private Sub cmdSendData_Click()
'Отправляем данные
Winsock1.SendData txtSendData.Text

'Записываем в лог чата
txtOutput.Text = txtOutput.Text & vbNewLine & "Клиент: " & txtSendData.Text

'Стираем текст
txtSendData.Text = ""

'передаем фокус ввода текстовому полю
txtSendData.SetFocus
End Sub

Private Sub Form_Load()
'Блокируем лог чата от ввода
txtOutput.Locked = True

'Устанавливаем размеры элементов
txtOutput.Move 0, 0, Me.Width, Me.Height * 0.6
txtSendData.Move 0, txtOutput.Height + 10, Me.Width
cmdSendData.Move 0, txtSendData.Top + txtSendData.Height, Me.Width

'Устанавливаем другие свойства
txtOutput.Text = ""
txtSendData.Text = "Введите сюда текст, чтобы отправить"
cmdSendData.Caption = "Отправить"

'Устанавливаем соединение
Winsock1.Connect "127.0.0.1", 1001
End Sub 

Private Sub txtSendData_KeyPress(KeyAscii As Integer)
'Если нажат Enter - отправляем данные
If KeyAscii = 13 Then cmdSendData_Click
End Sub 

Private Sub Winsock1_Close()
'При закрыытии соединенич останавливаем выполнение программы
Unload Me
End Sub 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s$
'Принимаем все данные
Winsock1.GetData s, vbString

'Записываем данные в лог разговора
txtOutput.Text = txtOutput.Text & vbNewLine & "Сервер: " & s

'Перемещаем курсор в конец лога
txtOutput.SelStart = txtOutput.SelLength
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Description, vbCritical
Winsock1_Close
End Sub

Исходник того, что у меня получилось, ты можешь скачать здесь .

Тестирование простого чата клиент-сервер

1. Запускаем сервер
2. Запускаем клиент
3. Вводим текстовые данные в txtSendData окна сервера и нажимаем «Отправить»; данные должны быть переданы в окно клиента
4. Вводим текстовые данные в txtSendData окна клиента и нажимаем «Отправить»; данные должны быть переданы в окно сервера 

Вот вроде и конец первой части.

Автор Таранов Влад( Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript ). Отправляйте свои вопросы мне на E-Mail.

Данная статья может быть опубликована или процитирована на Интернет-ресурсах с обязательным условием сохранения ссылки на источник – http://www.vbcoding.org.ua .

Желаю тебе успехов в освоении премудростей программирования.