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

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上通过)。
界面设计原则之一篇:权衡优先级 突出焦点 划分好内容层级 开源的ResearchKit:苹果将如何颠覆未来医疗? CocoaPods 0.36正式发布,实现Swift和iOS 8动态框架支持 C++入门学习书籍推荐 GitHub是如何征服Google、微软和其它公司的 约见越狱大神!2015 MSS移动安全峰会议程披露 Spark 1.3更新概述:176个贡献者,1000+ patches 从游戏设计到星际探险,微软HoloLens全息技术将改变什么? 触摸屏技术未来?详解Apple新手段Force Touch 专访云适配CEO陈本峰:紧跟HTML5热潮,Web组件化知多少? QQ音乐5.0全新设计过程要点解析 GDC 2015感悟:从0到1,VR投入手游开发路漫漫 TestBird发布手游真人众测平台——附中国手游兼容性测试白皮书 与用户的再一次连接,微软的免费升级计划背后 颠覆App!LayaBox用Flash开发重度HTML5游戏 WinHEC:微软小娜与小冰正式登陆Windows 10平台 Coursera工程师董飞:典型硅谷公司大数据实战分析 微软开源Visual Studio构建工具MSBuild 死而复生!下架6月,Launcher重回App Store 虚拟投影、高保真耳机!新型可穿戴家庭影院Dashbon Mask 【程序员电子刊精选】躺枪的互联网思维 Algolia的分布式搜索网络架构 对抗苹果?豪雅联合Google、Intel开发智能奢表 VR产品技术解析之三星Gear VR 雅虎北研即将关闭 人才抢夺战迅速拉响 移动应用中的AR开发,5款最受欢迎工具推荐! 中国黑客Pwn2Own再创佳绩 Keen Team三年五夺魁 星环CTO孙元浩:技术解析Transwarp Inceptor是怎样炼成的 第七届中国云计算大会将于6月3-5日在北京召开 两大设计模式 塑造高可读性的网页布局 IP争夺战:任天堂与DeNA联手意味着什么? 怎么转换这个SQL Server的存储过程为oracle的 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好? 最简单的语句,最奇怪的问题。&&&&&&& 在线等待!!! D3D的简单问题 如何控制LineTo划线的颜色和宽度? 高分求《面向对象分析与设计》杨正甫编这本书下载地址。。。 学习DELPHI用铁道出版的乔林《参透Delphi/Kylix》 如何? 请问是否有比较简便的方法可以知道,程序中哪些变量定义完后根本不用? 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 菜鸟的小问题!! 一个关于东芝笔记本的故障 请问JBuilder错误提示:cannot access directory javax\mail at line 7, column 1 CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 小問題 PhoebusApollo(sunny) 你说要开贴,又没分,我有,给你100分,进来领吧!呵呵,不用谢!:) 关于DBGridEh排序的问题,急急急!!! ora-12224错误,tns no listener错误 !在线等待 ,急~! 求助jb9的破解 报表问题,急呀,救命呀~~~55555~~~~ 500分求解决一个问题 在线等待 解决立即给分 2003下为什么我的声卡不能用? 在程式AAA.PRG中如何修改表的字段的類型,比如字段C類型改為N類型??很急!!! 为什么有时候成员函数或变量显示不出来 救命!我在程序中使用webbrowse控件………… 在线等待。 也许是一个很简单的问题! 连接mysql出错 寻关于工控的中英文对照资料 想在暑假打工(计算机方面的)需要什么条件啊? 关于SQL SERVER的疑难问题!来者有分!(在线等待!分数不够可以再加) MTS与线程——高分相赠!!!! 来看看啊,告诉我再哪里下就给分啊~~ 大对象问题,所有书都是这么说的,可是都作不成功? 如何指定tquery中的某一行? 如何通过API发送翻页按键给控件? 在jbuilder 中 不能通过 创建Ejb Tester对EntityBean进行测试吗?SessionBean都可以的 如何在ie中点右键获得这个ie窗口的window Text以及其主框架的URL。 关于Kdevelop开发 比京还大的数位是.越多越好! 已知函数f(x)=sinx+cosx.求f(π/12)的值 王码五笔86版怎么造词我一直用86版五笔,像万能呀,极点呀也用过,但不顺手,像四码词86版自动上屏,但其他的还得按空格,但我不会用它造词,有点不方便, 比较两个数的大小,如果数位不同,则()大. 已知函数f(x)=(cosx+sinx)(cosx-sinx)(1)求函数f(x)的最小正周期(2)若0 近在咫尺中咫的意思 一个两位数,各数位上的数字之和的5倍比原数大4,求这个数 顷字左边的这部分王码五笔怎么打,86的 及字怎么打啊,我用的是王码五笔啊 同学们请帮我写一下 横眉冷对千夫指下一句 已知直线l过点(1,2)且与两坐标轴正半轴分别交于A,B两点求三角形AOB最小时直线l的方程.(O为原点) 耀斑和日珥增多能产生什么现象, 已知函数f(x)=(cosx)^2-(sinx)^2则f(2005π/12)=?如题答案是二分之根三,但是为什么? 语音四要素对于现代汉语普通话语音的重要意义 日珥是怎样形成的太阳上的日珥 “嗯”这字王码86五笔怎么打出来??! 材料科学基础四要素包括材料的化学成分、组织结构、( )和材料性能.A、合成与加工 B、材料的制备 C、显微缺陷 D、材料失效到底是A还是B呢?一直很让人犹豫. 如何保持清晰的思路? “横眉冷对千夫指”后半句快 语音四要素在汉语中有什么作用 如何在英语阅读的时候保持清晰的思路 近在咫尺是什么意思快点 新东方万泉河校区 的201教室是多少人上课的教室啊?是教室能装多少人就有多少人上课么?这个教师能装多少人啊? 为什么到了凌晨我的思路会很清晰? 近在咫尺什么意思? 在∠AOB内过O点引出30条射线,这样能组成个角. 马克思的“观念的东西不外是移入人的头脑并在人头脑中改造过的物质的东西而已”出自哪? 汉译英 1.这是字母L.2.我在武汉二中广雅中学七年级1班.3.我最喜欢的学科是数学和英语. 含有两级的数怎样写?先写( 什么 )级,再写( 什么 )级;哪个数位上一个含有两级的数怎样写?先写( 什么 )级,再写( 什么 )级;哪个数位上一个单位也没有,就在那个数位上写( 什么 ). 在平面直角坐标系中,如果两直线平行,那么k相等.怎么证明? 如何保持每天头脑灵活,思路清晰 求函数的单调减少区间 (只要结果就行了)求函数Y=X^3 - 3X^2 - 9X -6的单调减少区间 平面直角坐标系中两直线平行 他们一次项系数什么关系 解析几何关于面积最值问题在平面直角坐标系xOy中,过定点C(o,p)作直线与抛物线x^2=2py(p>0)相交于A,B两点,若点N是点C关于坐标原点O的对称点,求三角形ANB面积的最小值. 如果一个角的邻补角等于这个角的3倍,求这个角急急急,能有过程吗? 平面直角坐标系中两直线平行,已知一条直线解析式和到另一条直线的距离,怎样求另一条直线解析式? 原点算不算函数图像与坐标轴的公共点(1小时内)函数Y=2X方-6X与X轴和Y轴的公共点的坐标,算出来有坐标是原点,那要不要算在与x、y轴的公共点里啊? 浩翔怎么解释这是个空压机产品的名字,请问下取这个名字怎么解释好些呢标志设计中要解释浩翔这个名字的含义 请问像点啊,然啊下面的那个四点底咋打? “风高秋月白”的下句是什么?对对子 近在尺的咫的意思 街头篮球 4个点 怎么打出来 (“然”下面的4点) 风高秋月白 请问:“咫尺”中的“咫”是什么意思? 然下面的那四点怎么单独打出来?各位帮帮忙 风高秋月白 译文,快 "尺咫"是什么意思 设数列an=(3n-3)×5的n-2次方 求an的前n项和 用错位相减的方法来做! 学对对联;1风高秋月白,---------2过天星似箭,---------3;春联两幅-------------------------------- “近在咫尺”咫什么意思? 刻舟求剑选自[ ]编写者[] 比亿大的数是什么? 第七题,角3角4那个! 原点所在的坐标轴平面直角坐标系 个签:曾经近在咫尺的未来已天涯. 一个大于0度小于180度的角的补角有无数个?对还是错 比千亿大的数位有什么? 近在咫尺的咫的意思有没有现代意思 把3KG水加到盐水中,得到浓度为10%的盐水,再把1KG盐加到所得到的盐水中,这时盐水的浓度为20%.原来盐水的浓度为多少?和说明 纽约股市三大股指24日上涨报收埃及又一次缩短宵禁时间人民币即期汇率连破四关口 逼近“5时七部委9负责人“应考”科技经费使用北京地铁10号线一个月故障五回 官方南宁:警方在拆违现场遇暴力抗法被迫用美“杀死中国人”节目被删 万人在白宫北京脖颈卡护栏女子恢复呼吸 丈夫否认印度少女回家途中遭轮奸 事后遭歹徒焚沈阳“土豪别墅”未批先建 系村委会主部分赣南脐橙由青果催熟 染色打蜡后上星巴克CEO对中国媒体抱怨咖啡售价高四川平江县一粮站站长组织公款旅游被撤“神医”胡万林医死人细节:每天喝汤后院士揭露伪大师治病行骗:治疗效果系心法国之后是德国 媒体调侃下一个愤怒盟美遭盟友“愤怒围城” 昔日帝国实力大土硬顶别买中国导弹警告 已用中方导弹默克尔手机或遭监听 愤怒质问奥巴马连美国13岁少年持玩具AK-47 遭两北京两居室价格够买塞浦路斯别墅及永居外交部发言人就美国务院官员涉南海言论外交部回应美官员涉南海“九段线”言论奥巴马批评索契冬奥会花费过巨 称美国中国驻欧盟使团团长向欧盟委员会主席递东京遭遇16年未遇暴雪 首都圈交通陷苏神超级世界波憾遭门柱拒绝 赛季8助外交部发言人就美国务院官员涉南海言论普京:性取向是选择问题 抵制冬奥会没北京奥申委索契介绍申奥情况:初步完成昆明两县区气象局局长被曝公车私用 官2014年湖南省两会政协提案重质量 云南彝良掀起培训苗族传统文化热潮安徽大爷坐高铁:“衢通九省”之誉更加中央纪委督办 天津市滨海新区临港经济春节期间昆铁警方破获刑事案件3起查获云南省2013年口岸进出口额首次突破媒体称十八大后官员扫雪挤公交等亲民秀张春贤谈反恐:各族干部要第一时间敢于外交部发言人洪磊就美国务卿有关中国划云南临沧双江农场建复合型生态茶园助职云南昭通五车深夜连环相撞 两被困人员
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘