pb9+winsock.ocx实现双向通信,纯手打全网最细。拒绝搬运vb代码

本文详细介绍了如何使用PowerBuilder中的winsock控件实现局域网内的双向通信,包括解决插入ole控件时的license问题,设置通信参数,以及处理TCP和UDP协议的数据发送和接收。通过实例代码解析,帮助开发者理解并实现点对点通信。
摘要由CSDN通过智能技术生成

       最近,需要用到局域网发送消息,本来开始想着用timer轮询搞,发现确实效率低,客户端一直抖也不好,于是想到用winsock控件实现,本人由于技术菜还懒,一个想法是百度抄作业,哪知这一步就踏进了深渊。

       网上的代码就没一个能跑起来的,基本可以说照搬vb的,而且一些谬误一传十十传百,不知道发文之前自己是否跑通过。因为pb圈子小,这些发帖人在pb群里还经常看到,感觉技术和见识都很牛,在群里只有看他们吹牛的份。可能这些大牛重心早已转移,加上年代久远,姑且这样认为吧。无论怎样,大部分代码还是能保存通过的,部分一眼就看出来不对的,自己领会意思就行,比如这句:在按钮cb_1(caption属性设为‘发送’)的click事件中加入如下语句: 。。。。。。这是赤裸裸的直接抄vb么?好吧将 cb_1.text = '发送' ,这个我会。  还有这句 winsock_b.object.getdata (def datastr1) def是个什么玩意,ref?先干掉。

       曲折的经历还有第一步插入 ole控件报错:Insert of OLE object failed, license file required。
兜兜转转,抄了一段代码解决:
string ls_str
ls_str="mlrljgrlhltlngjlthrligklpkrhllglqlrk"
RegistrySet("HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d","", RegString!, ls_str)
运行这段代码之后&

在PB中使用WINSOCK.OCX双向通信的简单例子----PowerBuilder 一、在窗口中添加WINSOCK控件:   在应用中新开一个窗口,在窗口画板中点击controls-->OLE菜单项,弹出 Insert object窗口,单击Insert control标签,从列表框中双击选定 Microsoft Winsock control,将winsock的图标贴在窗口上。   在程序中该控件名称定为winsock_a(甲方)和winsock_b(乙方)。   二、设置信息输入输出文本框:   在窗口中增加一个按钮cb_1,两个单行文本框sle_1,sle_2,分别用于输入 要发送的字符串和接受对方发送的字符串。   三、设置通讯协议:   WINSOCK控件允许用户以UDP和TCP两种协议中任选一种进行通讯。   1.UDP协议设置:UDP协议是一种无连接的通讯协议,在通讯之前,需要绑 定remotehost和remoteport属性,如果需要双向通讯,还要设置localport属性 。   在甲方(本机地址为:134.1.1.1)窗口的Open事件中加入如下语句: winsock_a.object.protocol=1 //winsock通讯协议设为UDP协议 winsock_a.object.remotehost="134.1.1.2" //对方的ip地址 winsock_a.object.remoteport=6000 //对方的winsock通讯端口号 winsock_a.object.localport=6001 //本机的winsock通讯端口号 winsock_a.object.bind //绑定通讯协议   在乙方(本机地址为:134.1.1.2)窗口的Open事件中加入如下语句: winsock_b.object.protocol=1 //winsock通讯协议设为UDP协议 winsock_b.object.remotehost="134.1.1.1" //对方的ip地址 winsock_b.object.remoteport=6001 //对方的winsock通讯端口号 winsock_b.object.localport=6000 //本机的winsock通讯端口号 winsock_b.object.bin //绑定通讯协议   2.TCP协议设置:TCP协议在通讯前需要进行连接。   在甲方(作为服务器端)窗口的Open事件中加入如下语句: winsock_a.object.protocol=0 //winsock通讯协议设为TCP协议 winsock_a.object.localport=6001 //本机的winsock通讯端口号 winsock_a.listen() //启动监听   在甲方winsock_a控件的Connectionrequest事件中加入如下语句: //接受到对方的连接请求后 if winsock_a.object.state0 then winsock_a.close() end if winsock_a.accept(requestID) //建立直接连接 //requestID是Connectionrequest事件自己的参数   在乙方(作为客户端)窗口的Open事件中加入如下语句: winsock_b.object.protocol=0 //winsock通讯协议设为TCP协议 winsock_b.object.remotehost="134.1.1.2" //对方的ip地址 winsock_b.object.remoteport=6000 //对方的winsock通讯端口号 winsock_b.connect() //发出连接请求   3.无论采用哪种协议,都要在窗口的Close事件中加入如下语句: if winsock_a/*或winsock_b*/.object.state0 then winsock_a.close() end if   否则可能第二次使用时发生异常问题   四、开始通讯   在按钮cb_1(caption属性设为‘发送’)的click事件中加入如下语句: winsock_a/*或winsock_b*/.object.send (sle_1.text)   在winsock_a/*或winsock_b*/控件的dataarrival事件中加入如下语句: //接受到对方数据后 string datastr1 winsock_a/*或winsock_b*/.object.getdata (def datastr1) sle_2.text=datastr1 //将数据字符串显示在文本框中   以上程序实际上体现了聊天器的底层工作原理,稍加修改扩充就可以做成
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值