说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB中Winsock控制的UDP协议的使用

HTML文档下载 WORD文档下载 PDF文档下载
VB中Winsock控制的UDP协议的使用


重庆 张业武

  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上通过)。
VB如何在VB和Delphi中快速实现立体化窗口显示 VB如何在VB中实现绘图区的大十字光标 VB如何在VB中制作不回显的文本框 VB如何制作浮动式窗口 闪烁的Label-VB资料 设定StatusBar的文字成不同的颜色-VB资料 设计一个可中断循环的按钮-VB资料 设置“执行无用户界面”-VB资料 生成一个透明窗体 -VB资料 实现窗体内部的左右移动 -VB资料 实现鼠标移到窗口上时变大,移出窗体时变小(如《东方快车》)-VB资料 实现图片平铺于窗体中-VB资料 使程序的标题条闪烁 -VB资料 使窗口总在最前 -VB资料 使窗体右上角的X按钮失效 -VB资料 VB使用 WIN95 的选择目录对话框 使指定窗口总处于其他窗口之上 -VB资料 通用对话框专辑(全) -VB资料 透明的Form上显示背景透通图 -VB资料 图像在图片框中的滚动 -VB资料 拖动无标题窗口-VB资料 拖动无系统标准标题栏的窗口-VB资料 文本框中光标位置的获得-VB资料 无关联程序时开启“打开方式”窗口 -VB资料 显示 Combo 的下拉条 -VB资料 显示Windows系统的标准ABOUT窗口-VB资料 显示程序的版本 -VB资料 显示窗口的水平和垂直滚动条-VB资料 一劳永逸让VB自动改变控件大小 移动没有标题栏的窗口 -VB资料 隐藏Win95任务栏 -VB资料 屏蔽消息的麻烦………………求助高手 请教高手,数据库恢复的问题! 请问有没有解决d6在win98无法显示帮助索引问题的方法? 请问各位大侠关于COM的问题? 我想用可视化的Java工具VisualCafe,哪里有不限制版?或有正版注册码? 各位,我现在的操作系统是win2k professional 我现在想运行.jsp程序。我应该有什么样的准备。用什么工具做jsp.服务器怎么配置。这些东西都那里去下载。请指点。不胜感激! 急,listbox的columns设置为大于1后,它的这几个列怎样添加字符 一个弱智的问题: 怎样判断实例是否存在?? 再议 在VB中如何创建三层结构的应用程序 紧急问题!Crystal Report是否不支持中文的? 如何得到系统的开关机时间(在WIN2K下)???急 怎么实现这种嵌套的查询结果?(急急求救) 对象的handle,hwnd和指向此对象的指针之间是什么关系??? JavaBean+jsp+Tomcat4.0?把我搞醉了 一个非常棘手的问题,都吃不下,睡不着了,帮忙啊,分不够的话,再开数贴。 高分请问:会跳舞(有音乐)的圣诞老人(玩具,大约有电脑显示屏一般高度)在上海买多少钱,急急急 已有CBitmap m_Bitmap,如何求对应的HDIB 在音乐文件中加入一个代码…… 这种情况下如何用进程条控件? 看了一通sps的sdk,看的我头大的不得了,看来英语还是不过关阿 我要把格林威治平时转换成当地时间用什么函数呢???? 用SQL语句显示记录集中的倒数200条记录,及显示从第几条到第几到的记录?? 问:vb.net采用的是c#,那么在ms.net里面到底有没有visual c#.net??? 高手请进!ADO问题 给我已给在javabean里面使用HttpServletRequest对象的例子好吗?谢谢你了,具体到里面看看可以吗? 在office2000中打印来自matlab53的图形,总是提示word内存不足,word自行关闭。请问为何? 开开关关的窗口 用VC编写操纵数据库方面的COM组件有前途吗? 请问如何将CString中的字符串赋给char* ADODB.Connection问题,急!! 急急! 在javabean里面使用HttpServletRequest对象的例子好吗?谢谢你了,具体到里面看看可以吗? 河南的程序员考试成绩出来了没有?都快把大家急疯了! 一个类的四个问题?this指针等等,欢迎大家的光临。 请大家帮个忙!我的PARADOX数据库有660M,但是在读取的时候出现‘BLOB HAS BEEN MODIFIED‘!! 请问哪里有ado数据库引擎下载,谢谢~! BDE错误$2109 如何得到“我的文档”里的IShellView指针? SOS!各位帮帮我呀!“实现汉诺塔” 幫忙看一下下面這段代碼有什么問題? 改进后的开开关关窗口特别酷 请问在VB6与VB.NET在数据库方面有多大的区别呀?? 关于C语言 寻找将 AUTOCAD 文件格式转换成 PDF 格式的软件 谁有包含开发接口的OCR软件? 求助:没有紧急修复软盘,怎样恢复win2kserver的双启菜单。 请问怎么得到DATAGRID1中记录的总条数! 转发:一粒沙子的爱情故事 公司發過年禮物了 ,哎 ,原來是一塊石英表 ,雖然是情侶表 ,卻只發一塊 ,不是一對 ,你們呢!..... ??有解密高手吗?或者哪里有这样的论坛?? 怎样用多线程显示多个form? 甲乙两车同时从AB两地出发,甲车每小时行48千米,乙车每小时行40千米,两车在距中点32千米处相遇,求AB两相距多少千米? A.B两城相距320km,甲乙两车同时从两城开出,2小时后相遇,甲乙两车的速度比是3:5,甲乙两车各行多少千米?快,算式都要. 谁能科学的回答下先有鸡还是先有蛋最好拿出数据 松鼠的生活习性主要有五个特点快 昆虫有多少种类 甲,乙两站相距480km,一列慢车从家站开出,速度为90km/h,一列快车从乙站开出,速度为140km/h,根据这个回答下面的题目, 一只有油桶能装油272g,用这种油桶来装32t煤油,需要多少只? 昆虫种类请问一下这个虫是什么 甲、乙两车站相距480km,一列慢车从甲站开出,每小时行60km,一列快车从乙站开出,每小时行90km.设两车同时开出,相背而行,xh后相距600km,方程是(90-60)x=480吗? 爱猫的男生性格是什么样子的?喜欢什么样的女孩? 快车以60km/h速度从甲站向乙站开出,1.5h后,慢车以40km/h的速度从乙站向甲站开出.两车相遇时,相遇点距两站的中点70km.甲、乙两站相距多少千米? 甲、乙两车站相距480km,一列慢车从甲站开出,每小时行60km,一列快车从乙站开出,每小时行90km.两车同时开出,同向而行,且慢车在前,xh后快车追上慢车,方程是? 猫有什么性格特点?比如可爱要说出什么可爱 甲乙两地之间的距离为490KM,一列慢车由甲站开出,每小时行驶80KM,一列快车从乙站开出,每小时行驶100KM,急!若慢车先开30分钟,两车相向而行,快车行驶了多少小时后与慢车相遇?用方程解. A.B两地相距480KM,一列慢车从A地出发,每小时行60KM,一列快车从B地出发,每小时行驶90KM,快车提前30分钟出发,两车相向而行,慢车行驶了多长时间后两车相遇. 我是男生喜欢的动物是猫,从性格上分析属于什么类型?男生喜欢猫感觉很另类,常常受到别人的鄙视.但是我却就是喜欢猫的,而不太喜欢狗的.记得,我小时候,喜欢在阳台趴着看对面楼顶上的猫 例1、甲乙两站相距480公里.一列慢车从甲站开出,每小时行90公里;一列快车从乙站出发,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇?2)两 甲乙两地相距480km,一列快车从甲地开出,每小时行驶120km,一列慢车从乙地出发,每小行驶80km.若两车同时开出,同向而行,问快车用多少小时追上慢车?用 方 甲乙两辆汽车分别从A,B两地同时相向而行,速度比是7:11相遇后两车继续行驶,分别到达B,A两地立即返回,当第二次相遇时,甲车距B地80千米,AB两地相距多少千米? 例1、甲乙两站相距480公里.一列慢车从甲站开出,每小时行90公里;一列快车从乙站出发,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇?2)两 甲乙两地相距480km.一列快车从甲地出发,每小时行驶120km,一列慢车从乙地开出,每小时行驶80km若辆车同时出发,相向而行,快车行驶一小时后,因故障停车20分钟后继续行驶,问慢车出发几小时两车 甲乙两车同时从AB两地相对开出,相遇时甲乙两车所行的路程比是甲乙两车同时从AB两地相对开出,相遇时甲乙两车所行的路程比是4;3,相遇后甲、乙两车同时从AB两地相对开出,相遇时,甲、 7、甲、乙两站相距480公里,一列慢车从甲站开出,每小时行90公里,一列快车从乙站开出,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇? (2) 甲乙两地相距480km,一列慢车从甲地开出,速度为80km/h;一列快车从乙地开出,速度为120km/h.1.如果两车相向而行,在他们同时开出xh(未相遇)时,两车相距多少千米?2.如果两车相背而行,在他们同时 甲乙两车同时从ab两地相对开出,相遇时甲乙两车所行路程比是4:3甲乙两车,同时从AB两地相对开出,相遇时甲乙路程比为4:3,相遇后,乙每小时比甲快12千米,甲仍以原速前进,结果两人同时到达目 甲,乙两站相距480公里,一列慢车从甲站开出,每小时行90公里,一列快车从乙站开出甲、乙两站相距480公里一列慢车从甲站开出每小时行90公里一列快车从乙站开出每小时 甲乙俩地相距200km,快车走120km/h,慢车走80km/h,慢车从甲地出发,快车从乙地出发,(1)如果两车同时出发,相向而行,出发后几时相遇(2)如果俩车同时出发,同向而行,出发后几时相遇 昆虫的种类有多少啊有多少呢啊 甲、乙两站相距480公里,一列慢车从甲站开出,每小时行90公里,一列快车从乙站开出,每小时行140公里.(1)慢车先开出1小时,快车再开.两车相向而行.问快车开出多少小时后两车相遇?(2) 某农场要建一个长方形的养鸡场,鸡场的一边靠墙(墙长25m),另外三边用木栏围成,木栏长40m.鸡场的面积能达到列出式子 甲.乙两地相距360km,两辆汽车同时从两地相向开出了3小时后,已行的路程和余程下的路程的比是3比2,照这样` 家庭昆虫的种类成年昆虫长1.5至2厘米,宽2至3毫米,黑色,尾部有分叉,六爪,带触角,能快速爬行!我想问,此虫的名称,对人类生活有无影响? 养鸡场投资 建设一个1W羽规模的养鸡场,大概要投资多少?年后养鸡做准备的~· 昆虫的种类把昆虫的颜色和喜好写出来我要网站 昆虫分类根据口器,翅膀,触角来分类 王大爷在自家墙外围成一个养鸡场,围鸡场的篱笆的总长是22m,其中一条边是8m,求养鸡场的面积. 甲,乙两辆汽车分别从A,B两地同时相对开出5小时相遇,相遇时所行路程比是3:2,行完全程各用多少小时? 先有鸡还是先有蛋,科学的回答 王大爷在自家墙外围成一个养鸡场,围鸡场的篱笆的总长是22米,其中一条边是8m,求养鸡场的面积 甲乙两辆汽车分别从ab两地同时相对开出5小时相遇,相遇时所行路程比是3:2,行完全程各用多少小时? 先有鸡还是先有蛋?要有科学道理.要清楚. 甲、乙两地相距360km,慢车每小时行80km,快车与慢车的速度比是5:4.两车分别从甲、乙两地同时开出,经过几小时相遇 请问,猫有什么外形特点和生活习性? 甲乙两辆汽车分别从AB两地同时相对开出,4小时相遇,相遇时所路程比是5:2,行完全程各用多少小时? 请问,是先有鸡还是先有蛋?请给个科学的回答! ab两地相距360km甲乙两车同时从AB两地出发相向行甲车的速度是乙车的1.25倍3小时两车相遇甲乙两车每小时行? 甲、乙两辆车分别从A、B两地同时相对开出,5小时相遇,相遇时所行路程比是3:2,行完全程各用多长时间? 是先有鸡还是先有蛋?要科学的回答! 猫的外形特点 甲乙两辆汽车分别从ab2地同时相对开出五小时相遇相遇时所行路程比是三比二,行完全程甲乙各要多少时 甲乙两地相距480km,一列快车从甲地开出120km/小时,一列慢车从乙地开出80km/小时 1若两车同时出发,相向而行,快车行驶1小时后,因故障停车20分钟后继续行驶,问慢车出发几小时两车相遇.2若两车 猫的外形和特点要写作文的 要长 昆虫的基本特征有哪些?昆虫的种类有多少?如何识别昆虫?对人类有益和有害的的昆虫有哪些?以说明文的方式写或者是简介 昆虫怎么分类 甲乙两车同时分别从AB两地相对开出,甲车每小时行40千米,乙车每小时行45千米,甲乙两车第一次相遇后继续前进,各自到达AB两地后,立即原路原速返回,两车从开始到第2次相遇共行9小时,求AB两地 昆虫的种类成千上万,如何识别昆虫 先有鸡还是先有蛋,我要科学,科学, 甲乙两车分别从AB两地相对开出,甲车每小时行96千米,乙车每小时行88千米,相遇时,距AB两地的中点有40千米,AB两地一共距多少千米? 昆虫分类识别 先有鸡还是先有蛋!从科学的角度解答
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn