• <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>
    • 軟件測試技術
    • 軟件測試博客
    • 軟件測試視頻
    • 開源軟件測試技術
    • 軟件測試論壇
    • 軟件測試沙龍
    • 軟件測試資料下載
    • 軟件測試雜志
    • 軟件測試人才招聘
      暫時沒有公告

    字號: | 推薦給好友 上一篇 | 下一篇

    VB中Winsock控制的UDP協議的使用

    發布: 2007-7-14 20:28 | 作者: 佚名    | 來源: 網絡轉載     | 查看: 23次 | 進入軟件測試論壇討論

    領測軟件測試網 UDP協議基礎:  
      UDP(User Datagram Protocol)是一種無連接協議,與TCP操作不同,計算機間并不需要建立一個連接,同時,一個UDP應用可同時作為應用的客戶或服務器方。  
      由于UDP協議并不需要建立一個明確的連接,因此建立UDP應用要比建立TCP應用簡單得多。在TCP應用中,一個Winsock控制必須明確地設置成“監聽”,而其它Winsock控制則必須使用Connect方法來初始一個連接。  
      使用UDP協議,在兩個Winsock控制間進行數據的發送,在連接的兩端必須完成以下三步:  
      1.設置RemoteHost屬性為其它計算機的名稱;  
      2.設置RemotePort屬性為第二個Winsock控制的LocalPort屬性的值;  
      3.申請Bind方法。  
      通過使用方法Bind,則可將該Winsock控制捆綁到一個本地端口,以便該Winsock控制使用該端口來進行類似TCP的“監聽”功能,并防止其它應用使用該端口。  
      使用該協議傳送數據,首先設置客戶計算機的LocalPort屬性。而作為服務器的計算機僅需要設置RemoteHost屬性為客戶計算機的IP地址或域名即可,并將其RemotePort屬性設置成客戶計算機上的LocalPort屬性即可,然后就可通過申請SendData方法來開始信息發送,客戶計算機則可在其DataArrial事件中使用方法GetData來獲取發送的信息。  
      下例具體演示了一個“談話”應用,以允許相互間進行實時的交談。  
      UDP應用一:  
      建立一個新標準EXE工程文件,拖放一個Winsock控制到表單上,添加兩個文本框到表單上,然后進行以下屬性的設置:  
      表單(Form):Name=“frmPeerA” Caption=“UDP Application(1)”  
      Winsock控制:Name=“udpPeerA” Protocol=“sckUDPProtocol”  
      文本框1(TextBox): Name“txtSend”  
      文本框2(TcxtBox): Name=“txtOutput” MultiLine-True ScrollBars=2  
      然后打開代碼窗口,分別在相應的事件下輸入以下代碼:  
      Private Sub Form_Load()  
       With udpPeerA  
       .RemoteHost=“197.1.1.2” '要連接到的計算機名  
       .RemotePort=1010 '要連接到的端口號  
       .LocalPort=1011 '該Winsock控制將要使用的本地端口號,便于其它端與該Winsock通訊  
       .Bind 1011 '將該Winsock控制綁定到該本地端口  
       EndWith  
      End Sub  
      Private Sub txtSend_Change()  
       udpPeerA.SendData txtSend.Text'發送文本  
      End Sub  
      Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)  
       Dim strData As String  
       udpPeerA.GetData strData,vbString  
       txtOutput.Text = strData  
      End Sub  
      UDP應用二:  
      類似建立UDP Server的方法,在表單上添加一個Winsock控制及兩個文本框,然后進行以下屬性的設置:  
      表單(Form):Name=“frmPeerB” Caption=“UDP Application(2)”  
      Winsock控制:Name=“udpPeerB” Protocol=“sckUDPProtoclool”  
      文本框1(TextBox):Name=“txtSend”  
      文本框2(TextBox):Name=“txtOutput” MultiLine=True ScrollBars=2  
      然后輸入以下代碼:  
      Private Sub Form_Load()  
       With udpPeerB  
       .RemoteHost=“197.1.1.2” '要連接到計算機的IP地址  
       .RemotePort=1011 '要連接到的端口號  
       .LocalPort=1010 '該Winsock控制將使用的本地端口號,便于其它方與之通訊  
       .Bind 1010 '將該Winsock控制綁定到該本地端口  
       End With  
      End Sub  
      Private Sub txtSend_Change()  
       udpPeerB.SendData txtSend.Text '發送文本  
      End Sub  
      Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)  
       Dim strData As String  
       udpPeerB.GetData strData,vbString  
      txtOutput.Text=strData  
      End Sub  
      要運行該實例,打開兩個Visual Basic的事例,然后分別運行這兩個工程文件即可。若要在不同的機器上運行此兩例,只需要將兩個工程文件中的RemoteHost改變成相應的計算機的IP地址或域名即可(以上例子在Visual Basic 5.0及PWIN97上通過)。

    延伸閱讀

    文章來源于領測軟件測試網 http://www.kjueaiud.com/


    關于領測軟件測試網 | 領測軟件測試網合作伙伴 | 廣告服務 | 投稿指南 | 聯系我們 | 網站地圖 | 友情鏈接
    版權所有(C) 2003-2010 TestAge(領測軟件測試網)|領測國際科技(北京)有限公司|軟件測試工程師培訓網 All Rights Reserved
    北京市海淀區中關村南大街9號北京理工科技大廈1402室 京ICP備2023014753號-2
    技術支持和業務聯系:info@testage.com.cn 電話:010-51297073

    軟件測試 | 領測國際ISTQBISTQB官網TMMiTMMi認證國際軟件測試工程師認證領測軟件測試網

    老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月

  • <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>