在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框架程序設計視頻教程

[]  []  

From:http://tw.wingwit.com/Article/program/PB/201311/24622.html