Visual Basic FAQ

Создание 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

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