第三章資料的傳收與接送.pptVIP

* * * * * * * * * * * * * * * * * * * * * * 建立客戶端Socket物件 DIM SocketClient AS New Socket(通訊協定家族, 通訊端類型, 通訊協定) Dim ep As New IPEndPoint(IPAddress.Parse(IP位址), 通訊埠) SocketClient.Connect(ep) ? DIM SocketClient AS New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Dim ep As New IPEndPoint(IPAddress.Parse(127.0.0.1), 5001) SocketClient.Connect(ep) 伺服端Socket接受客戶端Socket連接 Dim SocketClient As Socket SocketClient = SocketServer.Accept() Socket類別傳送資料 SocketClient.Send(Encoding.Default.GetBytes(傳送資料)) Socket類別接收資料 Dim RecvLength As Integer Dim RecvStr As String RecvLength = SocketClient.Receive(data) If RecvLength 0 Then RecvStr = Encoding.Default.GetString(data).Trim End If 關閉已開啟的Socket通訊 SocketServer.Close 暫停通訊 Shutdown Receive 暫停接收資料。 Send 暫停傳送資料。 Both 暫停接收和傳送資料。 3-4資料的非同步傳送與接收 第三章 資料的傳收與接送 非同步作業模式 --TCP 使用 Socket、BeginConnect 和 EndConnect 方法來與接聽主機進行連接 使用 BeginSend 和 EndSend，BeginReceive 和 EndReceive 方法，以非同步方式進行資料傳遞 輸入的連接要求可以使用BeginAccept 和 EndAccept 加以處理 非同步作業模式 --UDP 使用BeginSendTo 和 EndSendTo 傳送資料包 使用BeginReceiveFrom 和 EndReceiveFrom 接收資料包 非同步作業模式 如果在一個通訊端上執行多個非同步的作業，這些作業不一定會依照所啟動的順序完成 完成傳送和接收資料時，請使用Shutdown 方法來停用 Socket 呼叫 Shutdown 之後，要呼叫Close 方法來釋放與 Socket 相關的所有資源。 Socket類別非同步接受連接 建立委派 Accept = New AsyncCallback(AddressOf OnAccept) 開始準備接收客戶端Socket連接 SocketServer.BeginAccept(Accept, SocketServer) ? Public Sub OnAccept(ByVal ar As IAsyncResult) 接受客戶端連入 SocketClient = SocketServer.EndAccept(ar) End Sub Socket類別非同步接收資料 建立委派 ReceiveData = New AsyncCallback(AddressOf OnReceive) 開始接受客戶端Socket傳送資料 SocketClient.BeginReceive(data, 0, data.Length, SocketFlags.None, _ ReceiveData, SocketClient) ? Public Sub OnReceive(ByVal ar As IAsyncResult) 完成接收資料 recvLength = AcceptClient.EndReceive(ar) 繼續開始接收資料 SocketClient.BeginReceive( data, 0, data.Length, SocketFlags.None , _ ReceiveData, SocketClient) End Sub Socket類別非同步傳送資料 建立委派 SendData = New AsyncC