Visual Basic FAQ

Создать второе UDP приложение.
- Добавить стандартную форму в проект.
- Изменить имя формы на frmPeerB.
- Изменить свойство caption формы на «Peer B».
- Перетащить и разместить иконку Winsock компонента на форму.
- Изменить имя Winsock на udpPeerB.
- Изменить свойство Protocol на UDPProtocol.
- Добавить два текстовых поля на форму.
Имя первого должно быть txtSend, а второго txtOutput.

Создание UDP соединения.
Создайте Standard EXE проект.
- Измените свойство name формы на frmPeerA.
- Измените свойство caption формы на «Peer A»
- Перетащите с панели инструментов иконку Winsock компонента и разместите его на форме. Присвойте свойству name значение udpPeerA.
- Измените свойство Protocol на UDPProtocol.
- Добавьте два текстовых поля на форму.
Имя первой должно быть txtSend а второй txtOutput.
Добавьте приведенный ниже код на форму.

Обработка более чем одного запроса на установление Winsock соединения.
Приложение-сервер, которое мы создавали сначала может обработать только один запрос на соединение. Тем не менее, существует возможность обработать несколько запросов на соединение, используя тот же самый управляющий элемент как один из массива управляющих элементов. В этом случае, необязательно закрывать соединение — просто создайте новый вариант управляющего элемента (использовав его свойство Index) и вызовите метод Accept для этого нового варианта управляющего элемента.
В приведенном ниже тексте программы, свойству Index, размещенного на форме Winsock-компонента sckServer, присваивается значение 0, таким образом, управляющий элемент становится частью массива управляющих элементов. В разделе Declarations описана локальная переменная intMax. Когда для формы происходит событие Load, переменной intMax присваивается значение 0 и свойству LocalPort первого элемента массива управляющих элементов присваивается значение 1001. Только после того, как вызывается метод Listen этого управляющего элемента, он начинает слушать указанный порт. Когда поступает новый запрос на соединение, осуществляется проверка значения Index и равно ли оно 0 (значение элемента, который слушает порт). Таким образом, элемент который слушает порт, будет приращивать переменную intMax и использовать значение этой переменной для создания нового элемента массива. Этот новый элемент будет использоваться для обработки запроса на соединение.

Создание TCP приложения-клиента.
Добавьте новую форму в проект и назовите ее frmClient. Измените свойство формы caption на «TCP Client». Перетащите и разместите компонент Winsock на форму и измените его свойство name на «tcpClient».
- Добавьте два Текстбокс-контрола на форму frmClient.
- Имя первого установите txtSend, а второго txtOutput.
- Перетащите на форму CommandButton и установите его свойство name в «cmdConnect».
- Измените свойство caption этой кнопки на «Connect».
Добавьте следующий код в форму.

Создания TCP сервера.
- Создайте новый Standard EXE проект.
- Замените имя формы по умолчанию на frmServer.
- В свойстве формы caption наберите «TCP Server»
- В меню Project\Components добавьте Microsoft Winsock Conrol 6.0