QQRead:http://www.qqread.com/pb/e020974070.html随着资源共享和实时通讯的需要，很多计算机应用程序早已甩开单兵作战的模式，转入联合行动。
网络在计算机世界里，越来越发挥着举足轻重的作用。在WINDOWS应用程序中，处理实时通讯最常用到的还是MICROSOFT公司提供的WINSOCK控件。许多资料都细述了WINSOCK在VB中的使用方法，就连WINDOWS本身提供的hlp文件也是针对VB而写的。笔者因为实际应用的需要，琢磨出了WINSOCK控件在PB中的应用方法。好东西不敢独自享用，拿出来与大家共享。
下面以一个简单程序为例，说明WINSOCK控件在PB中的使用：
一、在窗口中添加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事件中加入如下语句：
在乙方（本机地址为：134.1.1.2)窗口的Open事件中加入如下语句：
2.TCP协议设置：TCP协议在通讯前需要进行连接。
在甲方（作为服务器端）窗口的Open事件中加入如下语句：
在甲方winsock_a控件的Connectionrequest事件中加入如下语句：
在乙方（作为客户端）窗口的Open事件中加入如下语句：
3.无论采用哪种协议，都要在窗口的Close事件中加入如下语句：
否则可能第二次使用时发生异常问题
四、开始通讯
在按钮cb_1（caption属性设为‘发送’）的click事件中加入如下语句：
在winsock_a/*或winsock_b*/控件的dataarrival事件中加入如下语句：
以上程序实际上体现了聊天器的底层工作原理，稍加修改扩充就可以做成一个很好的聊天软件。进入讨论组讨论。
网络在计算机世界里，越来越发挥着举足轻重的作用。在WINDOWS应用程序中，处理实时通讯最常用到的还是MICROSOFT公司提供的WINSOCK控件。许多资料都细述了WINSOCK在VB中的使用方法，就连WINDOWS本身提供的hlp文件也是针对VB而写的。笔者因为实际应用的需要，琢磨出了WINSOCK控件在PB中的应用方法。好东西不敢独自享用，拿出来与大家共享。
下面以一个简单程序为例，说明WINSOCK控件在PB中的使用：
一、在窗口中添加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.state< >0 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.state< >0 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 //将数据字符串显示在文本框中 |
以上程序实际上体现了聊天器的底层工作原理，稍加修改扩充就可以做成一个很好的聊天软件。进入讨论组讨论。
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- 在PB中如何实现数据模糊查询 (1300次浏览)
- 用PB开发多媒体数据库管理系统 (700次浏览)
- PB8.0应用程序编译发布技术研究 (661次浏览)
- 如何发布独立的POWERBUILDER应用 (638次浏览)
- 用Powerbuilder开发WEB数据库 (578次浏览)
- 低级键盘钩子屏蔽Win键、Alt+Tab键的响应 (511次浏览)
- 浅谈PB中动态DataWindow的技术应用 (511次浏览)
- 用PB做一个通用右键菜单 (503次浏览)
- PowerBuilder应用开发系列讲座(9) (489次浏览)
- 怎样在pb中得到存储过程的值 (447次浏览)
