Visual Basic FAQ

Создать второе 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 другой формы.

Запись опубликована on 03.11.2009 at 9:00 и размещена в рубрике: Интернет. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.