湖南省怀化市电信局计算机中心 达伟春
---- 随着资源共享和实时通讯的需要，很多计算机应用程序早已甩开单兵作战的模式，转入联合行动。
---- 网络在计算机世界里，越来越发挥着举足轻重的作用。在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事件自己的参数
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
