在PB中使用WINSOCK控件[2]

winsock_aobjectprotocol=

//winsock通讯协议设为TCP协议

winsock_aobjectlocalport=

//本机的winsock通讯端口号

winsock_alisten（）

//启动监听

在甲方winsock_a控件的Connectionrequest事件中加入如下语句

//接受到对方的连接请求后

if winsock_aobjectstate< > then

winsock_aclose（）

end if

winsock_aaccept（requestID）

//建立直接连接

//requestID是Connectionrequest事件自己的参数

在乙方（作为客户端）窗口的Open事件中加入如下语句

winsock_bobjectprotocol=

//winsock通讯协议设为TCP协议

winsock_bobjectremotehost=

//对方的ip地址

winsock_bobjectremoteport=

//对方的winsock通讯端口号

winsock_bconnect（） //发出连接请求

无论采用哪种协议都要在窗口的Close事件中加入如下语句

if winsock_a/*或winsock_b*/objectstate< > then

winsock_aclose（）

end if

否则可能第二次使用时发生异常问题

三开始通讯

在按钮cb_（caption属性设为发送）的click事件中加入如下语句

winsock_a/*或winsock_b*/objectsend （sle_text）

在winsock_a/*或winsock_b*/控件的dataarrival事件中加入如下语句

//接受到对方数据后

string datastr

winsock_a/*或winsock_b*/objectgetdata （def datastr）

sle_text=datastr //将数据字符串显示在文本框中

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

编辑推荐

ASP NET开发培训视频教程

Microsoft NET框架程序设计视频教程

[] []