pb相关学习推荐全集技巧winsock

1、WINSOCK控件（：独孤求败 2003-05-30）随着资源共享和实时通讯的需要，很多计算机应用程序早已甩开动。的模式，转合行网络在计算机世界里，越来越发挥着举足轻重的作用。在 WINDOWS 应用程序中，处理实时通讯最常用到的还是公司提供的 WINSOCK 控件。许多资料都细述了 WINSOCK 在 VB 中的使用方法，就连WINDOWS 本身提供的 hlp 文件也是针对 VB 而写的。笔者因为实际应用的需要，琢磨出了WINSOCK 控件在PB 中的应用方法。好东西不敢独自，拿出来与大家共享。下面以一个简单程序为例，说明 WINSOCK 控件在 PB 中的使用：1.在窗口中添加 WINSO

2、CK 控件：在应用中新开一个窗口，在窗口画板中点击 controls-OLE 菜单项，弹出 Insert object 窗口，单击 Insert control在窗口上。，从列表框中双击选定Winsock control，将 winsock 的图标贴在程序中该控件名称定为winsock_a（甲方）和 winsock_b（乙方）。2.设置信息输入输出文本框：在窗口中增加一个按钮 cb_1,两个单行文本框 sle_1,sle_2，分别用于输入要发送的字符串和接受对方发送的字符串。3.设置通讯协议：WINSOCK 控件允许用户以 UDP 和TCP 两种协议中任选一种进行通讯。(1)UDP 协议设置：

3、UDP 协议是一种无连接的通讯协议，在通讯之前，需要绑定 remotehost 和remoteport 属性，如果需要双向通讯，还要设置localport 属性。在甲方（本机地址为：)窗口的 Open 事件中加入如下语句：winsock_tocol=1/winsock 通讯协议设为 UDP 协议winsock_a.object.remotehost=/对方的 ip 地址winsock_a.object.remoteport=6000/对方的 winsock 通讯端winsock_a.object.localport=6001/本机的

4、winsock 通讯端winsock_a.object.bind/绑定通讯协议在乙方（本机地址为：)窗口的 Open 事件中加入如下语句：winsock_tocol=1/winsock 通讯协议设为 UDP 协议winsock_b.object.remotehost=/对方的 ip 地址winsock_b.object.remoteport=6001/对方的 winsock 通讯端winsock_b.object.localport=6000/本机的 winsock 通讯端winsock_b.object.bin/绑定通讯协议(2)T

5、CP 协议设置：TCP 协议在通讯前需要进行连接。在甲方（作为服务器端）窗口的 Open 事件中加入如下语句：winsock_tocol=0/winsock 通讯协议设为 TCP 协议winsock_a.object.localport=6001/本机的 winsock 通讯端winsock_a.listen()/启动在甲方winsock_a 控件的Connectionrequest 事件中加入如下语句：/接受到对方的连接请求后if winsock_a.object.s winsock_a.close()end ife0 thenwinsock_a.accept(req

6、uestID)/建立直接连接/requestID 是 Connectionrequest 事件自己的参数在乙方（作为客户端）窗口的Open 事件中加入如下语句：winsock_tocol=0/winsock 通讯协议设为 TCP 协议winsock_b.object.remotehost=/对方的 ip 地址winsock_b.object.remoteport=6000/对方的 winsock 通讯端winsock_b.connect() /发出连接请求(3)无论采用哪种协议，都要在窗口的 Close 事件中加入如下语句：if winsock_a/*或 winsock_b*/.object.swinsock_a.close()e0 thenend if否则可能第二次使用时发生异常问题三、开始通讯在按钮cb_1（caption 属性设为发送）的 click 事件中加入如下语句：winsock_a/*或 winsock_b*/.objecd (sle_1.text)在winsock_a/*或 winsock_b*/控件的 dataarrival 事件中加入如下语句：/接受到对方数