熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> PB編程 >> 正文

在PB中使用WINSOCK控件[2]

2013-11-23 17:27:36  來源: PB編程 

  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
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.