pb相關(guān)學(xué)習(xí)推薦全集技巧winsock

1、WINSOCK控件（：獨孤求敗 2003-05-30）隨著資源共享和實時通訊的需要，很多計算機(jī)應(yīng)用程序早已甩開動。的模式，轉(zhuǎn)合行網(wǎng)絡(luò)在計算機(jī)世界里，越來越發(fā)揮著舉足輕重的作用。在 WINDOWS 應(yīng)用程序中，處理實時通訊最常用到的還是公司提供的 WINSOCK 控件。許多資料都細(xì)述了 WINSOCK 在 VB 中的使用方法，就連WINDOWS 本身提供的 hlp 文件也是針對 VB 而寫的。筆者因為實際應(yīng)用的需要，琢磨出了WINSOCK 控件在PB 中的應(yīng)用方法。好東西不敢獨自，拿出來與大家共享。下面以一個簡單程序為例，說明 WINSOCK 控件在 PB 中的使用：1.在窗口中添加 WINSO

2、CK 控件：在應(yīng)用中新開一個窗口，在窗口畫板中點擊 controls-OLE 菜單項，彈出 Insert object 窗口，單擊 Insert control在窗口上。，從列表框中雙擊選定Winsock control，將 winsock 的圖標(biāo)貼在程序中該控件名稱定為winsock_a（甲方）和 winsock_b（乙方）。2.設(shè)置信息輸入輸出文本框：在窗口中增加一個按鈕 cb_1,兩個單行文本框 sle_1,sle_2，分別用于輸入要發(fā)送的字符串和接受對方發(fā)送的字符串。3.設(shè)置通訊協(xié)議：WINSOCK 控件允許用戶以 UDP 和TCP 兩種協(xié)議中任選一種進(jìn)行通訊。(1)UDP 協(xié)議設(shè)置：

3、UDP 協(xié)議是一種無連接的通訊協(xié)議，在通訊之前，需要綁定 remotehost 和remoteport 屬性，如果需要雙向通訊，還要設(shè)置localport 屬性。在甲方（本機(jī)地址為：)窗口的 Open 事件中加入如下語句：winsock_tocol=1/winsock 通訊協(xié)議設(shè)為 UDP 協(xié)議winsock_a.object.remotehost=/對方的 ip 地址winsock_a.object.remoteport=6000/對方的 winsock 通訊端winsock_a.object.localport=6001/本機(jī)的

4、winsock 通訊端winsock_a.object.bind/綁定通訊協(xié)議在乙方（本機(jī)地址為：)窗口的 Open 事件中加入如下語句：winsock_tocol=1/winsock 通訊協(xié)議設(shè)為 UDP 協(xié)議winsock_b.object.remotehost=/對方的 ip 地址winsock_b.object.remoteport=6001/對方的 winsock 通訊端winsock_b.object.localport=6000/本機(jī)的 winsock 通訊端winsock_b.object.bin/綁定通訊協(xié)議(2)T

5、CP 協(xié)議設(shè)置：TCP 協(xié)議在通訊前需要進(jìn)行連接。在甲方（作為服務(wù)器端）窗口的 Open 事件中加入如下語句：winsock_tocol=0/winsock 通訊協(xié)議設(shè)為 TCP 協(xié)議winsock_a.object.localport=6001/本機(jī)的 winsock 通訊端winsock_a.listen()/啟動在甲方winsock_a 控件的Connectionrequest 事件中加入如下語句：/接受到對方的連接請求后if winsock_a.object.s winsock_a.close()end ife0 thenwinsock_a.accept(req

6、uestID)/建立直接連接/requestID 是 Connectionrequest 事件自己的參數(shù)在乙方（作為客戶端）窗口的Open 事件中加入如下語句：winsock_tocol=0/winsock 通訊協(xié)議設(shè)為 TCP 協(xié)議winsock_b.object.remotehost=/對方的 ip 地址winsock_b.object.remoteport=6000/對方的 winsock 通訊端winsock_b.connect() /發(fā)出連接請求(3)無論采用哪種協(xié)議，都要在窗口的 Close 事件中加入如下語句：if winsock_a/*或 winsock_b*/.object.swinsock_a.close()e0 thenend if否則可能第二次使用時發(fā)生異常問題三、開始通訊在按鈕cb_1（caption 屬性設(shè)為發(fā)送）的 click 事件中加入如下語句：winsock_a/*或 winsock_b*/.objecd (sle_1.text)在winsock_a/*或 winsock_b*/控件的 dataarrival 事件中加入如下語句：/接受到對方數(shù)