VB.Net by API/System.Net/NetworkStream

Материал из VB Эксперт
Версия от 15:49, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

NetworkStream.Read

<source lang="vbnet"> Imports System.Net.Sockets Imports System.Net Imports System.Threading Imports System.Text Public Class Tester

   Public Shared Sub Main
       Dim myTcpClient As New TcpClient()
       Dim myNetworkStream As NetworkStream
       Try
           myTcpClient.Connect("127.0.0.1", 12345)
           myNetworkStream = myTcpClient.GetStream()
       Catch ex As ArgumentOutOfRangeException
           Console.WriteLine(ex.Message)
       Catch ex As SocketException
           Console.WriteLine(ex.Message)
       End Try
       Dim myBytes() As Byte = Encoding.ASCII.GetBytes("asdf")
       myNetworkStream = myTcpClient.GetStream()
       myNetworkStream.Write(myBytes, 0, myBytes.Length)
       Dim bufferSize As Integer = myTcpClient.ReceiveBufferSize
       Dim myBufferBytes(bufferSize) As Byte
       myNetworkStream.Read(myBufferBytes, 0, bufferSize)
       Console.WriteLine(Encoding.ASCII.GetString(myBufferBytes, 0, bufferSize))
   End Sub

End Class


 </source>


NetworkStream.Write

<source lang="vbnet"> Imports System.Net.Sockets Imports System.Net Imports System.Threading Imports System.Text Public Class Tester

   Public Shared Sub Main
       Dim myTcpClient As New TcpClient()
       Dim myNetworkStream As NetworkStream
       Try
           myTcpClient.Connect("127.0.0.1", 12345)
           myNetworkStream = myTcpClient.GetStream()
       Catch ex As ArgumentOutOfRangeException
           Console.WriteLine(ex.Message)
       Catch ex As SocketException
           Console.WriteLine(ex.Message)
       End Try
       Dim myBytes() As Byte = Encoding.ASCII.GetBytes("asdf")
       myNetworkStream = myTcpClient.GetStream()
       myNetworkStream.Write(myBytes, 0, myBytes.Length)
       Dim bufferSize As Integer = myTcpClient.ReceiveBufferSize
       Dim myBufferBytes(bufferSize) As Byte
       myNetworkStream.Read(myBufferBytes, 0, bufferSize)
       Console.WriteLine(Encoding.ASCII.GetString(myBufferBytes, 0, bufferSize))
   End Sub

End Class


 </source>