在POWER BUILDER中使用WINSOCK控件

兵作战的模式,转入联合行动。

---- 网络在计算机世界里,越来越发挥着举足轻重的作用。在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  //将数据字符串显示在文本框中

---- 以上程序实际上体现了聊天器的底层工作原理,稍加修改扩充就可以做成一个很好的聊天软件。

一、WinSock简介 Socket(套接字)最初是由加利福尼亚大学Berkeley(伯克利)分校为UNIX操作系统开发的网络通信接口,随着UNIX的广泛使用,Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初,由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准,即Windows Socket规范,简称WinSockVB编写网络程序主要有两种方式:1.winsock控件 2.winsockAPI 二、WinSock控件使用 1.WinSock控件的主要属性 LocalHostName属性 本地机器名 LocalIP属性 本地机器IP地址 LocalPort属性 本地机器通信程序的端口(0<端口<65536) RemoteHost属性 远程机器名 RemotePort属性 远程机器的通信程序端口 Protocol属性 通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol,Winsock控件默认协议是TCP。注意:虽然可以在运行时设置协议,但必须在连接未建立或断开连接后。 SocketHandle属性 返回当前socket连接的句柄,这是只读属性。 RemoteHostIP属性 属性返回远程计算机的IP地址。在客户端,当使用控件的Connect方法后,远程计算机的IP地址就赋给了RemoteHostIP属性,而在服务器端,当ConnectRequest事件后,远程计算机(客户端)的IP地址就赋给了这个属性。如果使用的是UDP协议那么当DataArrival事件后,发送UDP报文的计算机的IP才赋给了这个属性。 ByteReceived属性 返回当前接收缓冲区的字节数 State属性 返回WinSock控件当前的状态 常数 值 描述 sckClosed 0 缺省值,关闭。 SckOpen 1 打开。 SckListening 2 侦听 sckConnectionPending 3 连接挂起 sckResolvingHost 4 识别主机。 sckHostResolved 5 已识别主机 sckConnecting 6 正在连接。 sckConnected 7 已连接。 sckClosing 8 同级人员正在关闭连接。 sckError 9   错误 2.WinSock主要方法 Listen方法 方法用于服务器程序,等待客户访问。格式:Winsock对象.listen Connect方法 用于向远程主机发出连接请求。格式:Winsock对象.connect [远程主机IP,远程端口] Accept方法 用于接受一个连接请求。格式:Winsock对象.accept Request ID Senddata方法 用于发送数据。格式:Winsock对象.senddata 数据 Getdata方法 用来取得接收到的数据。格式:Winsock对象.getdata 变量 [,数据类型 [,最大长度]] Close方法 关闭当前连接。格式:Winsock对象.close Bind方法 用Bind方法可以把一个端口号固定为本控件使用,使得别的应用程序不能再使用这个端口。 Listen方法Listen方法只在使用TCP协议时有用。它将应用程序置于监听检测状态。 Connect方法 当本地计算机希望和远程计算机建立连接时,就可以调用Connect方法。Connect方法调用的规范为:Connect RemoteHost,RemotePort Accept方法 当服务器接收到客户端的连接请求后,服务器有权决定是否接受客户端的请求。 SendData方法当连接建立后,要发送数据就可以调用SendData方法,该方法只有一个参数,就是要发送的数据。 GetData方法 当本地计算机接收到远程计算机的数据时,数据存放在缓冲区,要从缓冲区取出数据,可以使用GetData方法。GetData方法调用规范如下:GetData
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值