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

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上通过)。
【SDCC讲师专访】PingCAP联合创始人兼CEO刘奇:好的产品应开源,不闭门造车 【深入浅出Koa】常用工具分享 帮你降低编程难度 Relay: 全新的React数据获取框架 探索游戏开发面临的技术挑战——MDCC 2015游戏开发专场议程曝光 【SDCC讲师专访】易开发创始人潘俊勇:这些年我遇到的那些坑 【CTO讲堂】OpenStack行业实践和发展趋势探讨 万物互联,移动为先:MDCC 2015移动开发者大会盛大开幕! 【MDCC 2015】微软开发体验与平台事业合作部大中华区DX部门总经理Srikanth Raju:物联之上云+端 英雄会晚宴,Top开发者共聚“华山之巅” 【MDCC 2015】产品与设计专场(上):百度研究院、印象笔记等专家齐聚,以实例探讨如何打造好产品 【MDCC 2015】产品与设计专场(下):网易云音乐、在行、三节课、去哪儿网、野兽骑行大咖的产品之路 友盟:把数据用活 让开发者享受大数据红利 友盟:用活大数据 让精细化运营为移动开发者服务 携手世纪互联 IBM Bluemix云平台落地中国 【MDCC 2015】IoT峰会—硬件开发与技术专场(下):专家齐聚,共同打造联网新时代 【MDCC 2015】虚拟现实专场(下):虚拟现实的“困”与“竞” 【CTO讲堂】面对世界竞争对手,如何拿到Google PDF开源项目PDFium? 提升网站性能开发的10个技巧 SDCC 2015:顶尖技术精英云集 大会日程及首批讲师议题公布 《近匠》专访猿团创始人CEO谢恩明:梦想、未来、改变 《近匠》专访小熊尼奥:从软硬结合到IP合作,AR产品的机遇 W3C启动Web支付标准工作,推进在线结算流程 W3C中国区会员沙龙在京召开 W3C CEO Jeff分享W3C未来发展重点 【SDCC讲师专访】车轮互联总架构师韩天峰:PHP是最好的编程语言 SDCC 2015讲师专访精彩集锦(一):你想知道的,都在这! (入门篇)带你走进Erlang 【大神来了】Elixir语言设计者José Valim:释放Erlang VM的能量 【SDCC 2015讲师专访】刘小溪:Vert.x3的异步框架实战 【CTO讲堂】支付接入开发的陷阱有多深? 程序员界“香饽饽”、大神级别人物集体亮相——SDCC 2015编程语言专场议题曝光 【CTO沙龙】CDN在共享经济下的创新应用 win98下能安装oracle8i吗? 如何在ASP页面中对XML文档进行询?(问题较多) Insert into TableName values(?,?,?,?,?) 为何写入中文时数据库会是乱码??? 有几个技术问题求助!!!! 有人要去参加Visual studio.net发布会吗 失落中 如何打开被屏蔽的“运行”窗口、注册表编辑器?? 小和尚想开网吧!请问各位高手!网吧应该用什么样的的配置比较好!扩朴方式那总比较好! 哪位能给个简单的dll例子吗?我不知怎样写。 简单问题:谁知道改变屏幕的一块区域的颜色的函数是什末? 有关数字视频监控系统的问题!!! 改错误 打算用PB做个Oracle管理器,请给点意见参考参考 如何在APPLET中读入 HTTP中将其他网页的内容 小女子求教!对您可能非常easy的问题! pb6.5做b/s!求救!送分! 这个问题,我都不好意思问,pb70如何编译成exe文件啊? 集成主板的声、显、网卡的问题。(内详) 怎么连sybase 数据库! 怎样用vb实现ctrl + alt + delete键的功能 求超级兔子魔法设置4.2的注册码,一定高分相送 如何调用数据库中带输入、输出参数的存储过程 ASP页面里用下拉框控制日期显示时,没有31号的月份怎么控制不显示31号呢? 寻EPOC高手。 刚学VC要注意点什么哈 如何将BMP图形转成JPEG后,存入数据呢?请教! 脸红请教! 先装好了linux还能加装windows吗? 请问高手:怎样在interDev6.0中调试ASP?? 高手请教,在线等待 一段代码整体一定的快捷方式 MSHFlexGrid的数据显示问题!(40) 使用ADO时,说interface not supported是怎么回事? 请教! 谁知哪儿有flash控制影片的源文件? 怎样把SQL Server中的数据库导出成*.sql文件? 2000SERVER 奇怪:0x80004005 错误,但是在以前的帖子里没有提到 建议:加入精华区的帖子可以改名。有的帖子内容很好,但标题说得不清楚。这样也方便于分类。 有谁知道那里有漂亮的图标下载? 请问如何注册 关于文章“上一篇”“下一篇”的问题 如何在程序中打开一个对话框让用户选择一个目录(别的程序中非常的普遍使用,谢谢) 在同一个系统里,可以同时装2个office吗,一个英文版的和一个中文版的可以吗,? 请问怎样在PB应用程序中的工具栏使用大于16×16的在图标? 如何设置单元格 一个关于高位低位的问题。谢谢。 怎么能知道自己的主板的性能、好坏?比如.... 不知道有谁对ISDN比较了解有这方面的资料吗? 这样的爱是维持多久? 我尝试通过网络免费提供关于如下方面的技术支持服务,并欢迎有兴趣者一起进行讨论。各类问题可以发mail: stevewh@ynmail.com 感应起电是怎么回事? 计划性废止制名词解释 当平行板电容器接在电路中,怎样才能判断两个极板的正负? "群体活动"用英语怎么说?不是名词性质,是群体在一起活动..... 一、名词解释(本题共4小题,每小题5分,) 1、洛可可 2、有计划的商品废止制 3、风格派 4、折一、名词解释(本题共4小题,每小题5分,)1、洛可可2、有计划的商品废止制3、风格派4、折衷主 为什么Matlab画出的是直线x=0:0.1:20;y=-10*log((1+x)/(2.0*x));plot(x,y);明明应该是曲线,为什么出来是一条直线,郁闷ing 静电力、场强、电场线方向的关系 英语翻译在你的房间里有什么?有一些书和两张椅子。(英语翻译) 英语翻译holdover by lessee.Should Lessee remain in possession of the demised premises with the consent of lessor after the natural expiration of this lease,a new month-to-month tenancy shall be created between Lessor and Lessee,which shall be sub 最近物理学了摩擦起点,练习题有个感应起电,什么是感应起电? 相互摩擦的两个物体总是同时带等量的异种电荷这句话的正确的.万一两个一模一样的物体摩擦 电子排布就一样就互相转移不了.也能带电荷? 一个长方形的长和宽分别为xcm和10cm,如果它的周长小于80cm,面积大于100cm²,求x的取值范围 如果组织英语活动我们的主题是交通运输,需要一些关于交通的问题(英文的),除此之外,请问有没有与交通运输相关的剧本和故事?现在不需要剧本和问题了,我现在需要英语高手帮我翻译, 翻译成英文:看看这栋建筑, 帮忙想一个总裁文小说名字和里面的公司名称我写了一本总裁小说,但是不知道起什么样的名字,所以,名字里面带不带总裁都可以,公司名呢,什么样的都可以 在电场中静电力的方向和场强的方向 两个物体相互摩擦为何带等量的异种电荷(异种我明白,我总感觉是原子核所存在的正电荷是不变的,多了电子,总量不就多吗,这不不是等量吗,难道一个物体失去电子之后,正电荷增加, 情绪的名词解释是什么? 场强为零的点电势一定为零吗? 一个矩形,两边长分别为Xcm和10CM,如果它的周长小于80CM面积大于100平方厘米求X的取值范围. “默默关注”是什么意思?名词解释 摩擦起电说明电荷可以从一个物体转移到另一个物体这话对吗 英语翻译It may be completely walked or set off by room dividers,or it may be an extension of the living,family,or dining room 名词解释,谁知道这字母是啥意思啊?一个女的发了一个帖子 标题是 ttl征t 是什么意思啊? T和TTL是啥意思请说详细写好吗?因为介绍了一个女的给我(相亲),我拿她Q百度了下,结果搜到她发过这 响应祖国的号召,翻译成英语怎么说 波普设计(名词解释要简单概括的就好不要太多 英语翻译The most nontraditional of the glass enclosures,the tall house is conversely the setting for what Solomon calls “the classic palm court.” The tranquil pool with water lilies encircled by palms could be a scene from a 19th-century wint 1.教育行政决策 2.课程行政 现代主义设计(名词解释 名词解释“激动剂”药物应用护理 离子方程式怎样用电荷守恒定律来检查 关于电网规划的!我现在刚做电网规划这一块,现在有几个名词不清楚,网供最大负荷、全社会最大用电负荷、网供电量、全社会用电量. 激动剂 工程项目质量是指? GB/T1804-M里面的Φ4的极限偏差是多少? 受体激动剂的名词解释 怎样在家中制得金属钠我试过电解潮湿的食盐,没有成功 生活计划是什么 名词解释——敏感期: 工业上如何制备金属钠 为什么要做职业生活规划? 一个矩形相邻两边长分别xcm、10cm,如果它的周长小于80cm,面积大于100cm平方,求x的取值范围. 金属钠工业上可用于生产纯碱和大量制备氢氧化钠判断对错 请收集一些从生活现象中激发了创作,设计灵感的故事,想想故事的主人公成功的秘诀是什么,谈谈你的感想. 用英语描述一个历史建筑物在哪里?你怎么知道的?外围如何?内部如何?人们在那里干什么?你的评价? 为什么会感应起电改变了一下分布怎么会就带电了呢?就这个问题如何判别一个物体带不带电? 生活中有哪些不合理的设计元素? 求一段建筑方面的英语!Take the defining instance of a detail in this windswept house,in which flitched metal supports slice into ovoid wood columns,then cross brace between uprights.Structural integrity—literally holding things down,not me 公共项目 怎么用英语表达?我的孤单不是与生俱来,而是由你爱上那个人的那一刻开始. 建筑物英语选择中国的一座有趣的建筑物或者吸引人的地方.用英语写,时间有限, 咋判断静电力做正功还是做负功; 静电力方向咋判断?(当不知道场强方向) GB/T1220-92对应美标是什么 matlab中画直线的问题我想画一条直线,该直线通过点(2,2),并且和直线x=2成45度角,应该怎么实现呀,请个位帮忙, 为什么会感应起电呢? 静电感应后,导体内的自由电子宏观上不做定向运动,这个现象就一定是静电平衡吗,内部场强就一定是处处0了可不可能一端集结的自由电子当成是一节微小的弹簧,他们之件相互压缩形成反弹 Matlab画多条直线求问一个画线段问题 已知源端点坐标Sx=10,Sy=10,Sz=10 而终点坐标是以三个数组组成 Dx=[1006 524 1006 716 620 1295];Dy=[2129 -1752 1393 -469 -2742 -466]; Dz=[21 -17 13 -46 -27 -46];求画各条直线段PS: 有场强的地方就一定有静电力? 关于静电感应现象,铅笔圈起来的,为什么与外场强相反? 一个矩形,两边长分别为xcm和10cm,如果它的周长小于80cm,面积不小于100cm,求x的取值范围.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘