浅显根底教程
电脑操作教程
电脑怎样拨号上网
怎么做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典进步教程
怎样运用代理服务器
怎么做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
怎么制造动画图片
OICQ&ICQ运用办法

高手学习攻略

硬件晋级技巧
CGI教程
ASP教程

PHP教程

注册表运用技巧
路由器的设置
vwin建造攻略
SQL
最近更新:
VB
相关内容

VB中Winsock操控的UDP协议的运用
张业武 (06/30/1999)


    UDP协议根底:
  UDP(User Datagram Protocol)是一种无衔接协议,与TCP操作不同,核算机间并不需求树立一个衔接,一起,一个UDP运用可一起作为运用的客户或服务器方。
  因为UDP协议并不需求树立一个清晰的衔接,因而树立UDP运用要比树立TCP运用简略得多。在TCP运用中,一个Winsock操控有必要清晰地设置成“监听”,而其它Winsock操控则有必要运用Connect办法来初始一个衔接。
  运用UDP协议,在两个Winsock操控间进行数据的发送,在衔接的两头有必要完结以下三步:
  1.设置RemoteHost特点为其它核算机的称号;
  2.设置RemotePort特点为第二个Winsock操控的LocalPort特点的值;
  3.请求Bind办法。
  经过运用办法Bind,则可将该Winsock操控绑缚到一个本地端口,以便该Winsock操控运用该端口来进行相似TCP的“监听”功用,并避免其它运用运用该端口。
  运用该协议传送数据,首要设置客户核算机的LocalPort特点。而作为服务器的核算机仅需求设置RemoteHost特点为客户核算机的IP地址或域名即可,并将其RemotePort特点设置成客户核算机上的LocalPort特点即可,然后就可经过请求SendData办法来开端信息发送,客户核算机则可在其DataArrial事情中运用办法GetData来获取发送的信息。
  下例详细演示了一个“说话”运用,以答应相互间进行实时的攀谈。
  UDP运用一:
  树立一个新标准EXE工程文件,拖放一个Winsock操控到表单上,增加两个文本框到表单上,然后进行以下特点的设置:
  表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”
  Winsock操控:Name=“udpPeerA” Protocol=“sckUDPProtocol”
  文本框1(TextBox): Name“txtSend”
  文本框2(TcxtBox): Name=“txtOutput” MultiLine-True ScrollBars=2
  然后翻开代码窗口,别离在相应的事情下输入以下代码:
  Private Sub Form_Load()
   With udpPeerA
   .RemoteHost=“197.1.1.2” '要衔接到的核算机名
   .RemotePort=1010 '要衔接到的端口号
   .LocalPort=1011 '该Winsock操控即将运用的本地端口号,便于其它端与该Winsock通讯
   .Bind 1011 '将该Winsock操控绑定到该本地端口
   EndWith
  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,vbString
   txtOutput.Text = strData
  End Sub
  UDP运用二:
  相似树立UDP Server的办法,在表单上增加一个Winsock操控及两个文本框,然后进行以下特点的设置:
  表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)”
  Winsock操控:Name=“udpPeerB” Protocol=“sckUDPProtoclool”
  文本框1(TextBox):Name=“txtSend”
  文本框2(TextBox):Name=“txtOutput” MultiLine=True ScrollBars=2
  然后输入以下代码:
  Private Sub Form_Load()
   With udpPeerB
   .RemoteHost=“197.1.1.2” '要衔接到核算机的IP地址
   .RemotePort=1011 '要衔接到的端口号
   .LocalPort=1010 '该Winsock操控将运用的本地端口号,便于其它方与之通讯
   .Bind 1010 '将该Winsock操控绑定到该本地端口
   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,vbString
  txtOutput.Text=strData
  End Sub
  要运转该实例,翻开两个Visual Basic的案例,然后别离运转这两个工程文件即可。若要在不同的机器上运转此两例,只需求将两个工程文件中的RemoteHost改变成相应的核算机的IP地址或域名即可(以上比如在Visual Basic 5.0及PWIN97上经过)。

vwin :首页 用VB完成多文件查找与替换功用
用VB 5.0 规划Browser及FTP程序
用Visual Basic 5.0规划E-mail程序
谈谈WIN API在VB中的运用
在VB中运用Word的“艺术字”东西
获取Win95特别目录精确途径
配置文件.ini在VB5中的运用
操控结构VB5程序规划
用VB切换三个特别键
用VB5对Windows 95任务栏提示区编程
用API改善ListView显现作用
VB中Grid控件的打印办法
在VB中完成文件上载
用Microsoft Agent 控件与电脑攀谈
用VB5直接操控Excel 97
在Developer/2000中调用VB
在VB顶用API完成多媒体
VB6制造Win98风格的东西栏
VB6六问答
运用VB编写屏幕维护程序
VB中Winsock操控的UDP协议的运用
 
 
 
 
 
教程站
收集整理