在VB中利用UDP协议编写聊天程序
2006-02-27 11:45:39 来源:WEB开发网核心提示:UDP协议是一种无连接协议,两台计算机之间的数据传输类似于传递邮件:消息从一台计算机发送到另一台计算机,在VB中利用UDP协议编写聊天程序,但是两者之间没有明确的连接,由于UDP协议不需要显式的连接,udpPeerB.SendDatatxtSend.TextEndSubPrivateSubudpPeerB_DataAr
UDP协议是一种无连接协议,两台计算机之间的数据传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。
由于UDP协议不需要显式的连接,就需要在两个Winsock控件中间发送数据,关键需要完成以下的三步:
1.将RemoteHost属性设置为另一台计算机的名称。
2.将RemotePort属性设置为第二个控件的LocalPort属性。
3.调用Bind方法,指定使用的LocalPort。
因为两台计算机的地位可以看成“对等的”,这种应用程序也被称为点对点的应用程序。
下面将创建一个聊天应用程序,两个人可以通过它进行实时的交谈。请按照以下步骤制作:
1.创建一个新的StandardEXE工程。将缺省的窗体的名称修改为frmPeerA,将窗体的标题修改为“PeerA”。
2.在窗体中放入一个Winsock控件,并将其命名为udpPeerA。在“属性”页上,单击“协议”并将协议修改为UDPPRotocol。
3.在窗体中添加两个TextBox控件。将第一个命名为txtSend,第二个命名为txtOutput。
4.为窗体添加如下的代码。
PrivateSubForm_Load()
′控件的名字为udpPeerA
WithudpPeerA
′重点:必须将RemoteHost的值修改为对方计算机的名字。
RemoteHost=″PeerB″
RemotePort=1001′连接的端口号。
Bind1002′绑定到本地的端口。
EndWith
frmPeerB.Show′显示第二个窗体。
EndSub
PrivateSubtxtSend_Change()
′在键入文本时,立即将其发送出去。
udpPeerA.SendDatatxtSend.Text
EndSub
PrivateSubudpPeerA_DataArrival_
(ByValbytesTotalAsLong)
DimstrDataAsString
udpPeerA.GetDatastrData
txtOutput.Text=strData
EndSub
要创建第二个UDP伙伴,请按照以下步骤执行:
1.在工程中添加一个标准窗体,将窗体的名字修改为frmPeerB,将窗体的标题修改为“PeerB”。
2.在窗体中放入一个Winsock控件,并将其命名为udpPeerB。
3.在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
4.在窗体上添加两个TextBox控件。将第一个命名为txtSend,第二个命名为txtOutput。
5.在窗体中添加如下代码
PrivateSubForm_Load()
′控件的名字为udpPeerB。
WithudpPeerB
′重点:必须将RemoteHost的值改为对方计算机的名字。
RemoteHost=″PeerA″
RemotePort=1002′要连接的端口。
Bind1001′绑定到本地的端口上。
EndWith
EndSub
PrivateSubtxtSend_Change()
′在键入后立即发送文本。
udpPeerB.SendDatatxtSend.Text
EndSub
PrivateSubudpPeerB_DataArrival_
(ByValbytesTotalAsLong)
DimstrDataAsString
udpPeerB.GetDatastrData
txtOutput.Text=strData
EndSub
运行工程,然后在两个窗体的txtSendTextBox中分别键入一些文本。键入的文字将出现在另一个窗体的txtOutputTextBox中。->
由于UDP协议不需要显式的连接,就需要在两个Winsock控件中间发送数据,关键需要完成以下的三步:
1.将RemoteHost属性设置为另一台计算机的名称。
2.将RemotePort属性设置为第二个控件的LocalPort属性。
3.调用Bind方法,指定使用的LocalPort。
因为两台计算机的地位可以看成“对等的”,这种应用程序也被称为点对点的应用程序。
下面将创建一个聊天应用程序,两个人可以通过它进行实时的交谈。请按照以下步骤制作:
1.创建一个新的StandardEXE工程。将缺省的窗体的名称修改为frmPeerA,将窗体的标题修改为“PeerA”。
2.在窗体中放入一个Winsock控件,并将其命名为udpPeerA。在“属性”页上,单击“协议”并将协议修改为UDPPRotocol。
3.在窗体中添加两个TextBox控件。将第一个命名为txtSend,第二个命名为txtOutput。
4.为窗体添加如下的代码。
PrivateSubForm_Load()
′控件的名字为udpPeerA
WithudpPeerA
′重点:必须将RemoteHost的值修改为对方计算机的名字。
RemoteHost=″PeerB″
RemotePort=1001′连接的端口号。
Bind1002′绑定到本地的端口。
EndWith
frmPeerB.Show′显示第二个窗体。
EndSub
PrivateSubtxtSend_Change()
′在键入文本时,立即将其发送出去。
udpPeerA.SendDatatxtSend.Text
EndSub
PrivateSubudpPeerA_DataArrival_
(ByValbytesTotalAsLong)
DimstrDataAsString
udpPeerA.GetDatastrData
txtOutput.Text=strData
EndSub
要创建第二个UDP伙伴,请按照以下步骤执行:
1.在工程中添加一个标准窗体,将窗体的名字修改为frmPeerB,将窗体的标题修改为“PeerB”。
2.在窗体中放入一个Winsock控件,并将其命名为udpPeerB。
3.在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
4.在窗体上添加两个TextBox控件。将第一个命名为txtSend,第二个命名为txtOutput。
5.在窗体中添加如下代码
PrivateSubForm_Load()
′控件的名字为udpPeerB。
WithudpPeerB
′重点:必须将RemoteHost的值改为对方计算机的名字。
RemoteHost=″PeerA″
RemotePort=1002′要连接的端口。
Bind1001′绑定到本地的端口上。
EndWith
EndSub
PrivateSubtxtSend_Change()
′在键入后立即发送文本。
udpPeerB.SendDatatxtSend.Text
EndSub
PrivateSubudpPeerB_DataArrival_
(ByValbytesTotalAsLong)
DimstrDataAsString
udpPeerB.GetDatastrData
txtOutput.Text=strData
EndSub
运行工程,然后在两个窗体的txtSendTextBox中分别键入一些文本。键入的文字将出现在另一个窗体的txtOutputTextBox中。->
更多精彩
赞助商链接