读书人

pb 如何使用 winsocket 呢

发布时间: 2014-01-09 23:07:34 作者: rapoo

pb 怎么使用 winsocket 呢
需要送pb + winsocket 发送数据包,并且监听端口,获得返回值。
没有用过winsocket 这个要怎么办。 pb有自带的控件或者用户对象什么的么

[解决办法]
在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.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

热点推荐