Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Code in Timer
- 'Trigger
- Dim tcpClient As New System.Net.Sockets.TcpClient()
- tcpClient.Connect("ip", port)
- Dim networkStream As NetworkStream = tcpClient.GetStream()
- If networkStream.CanWrite Then
- networkStream.Write(dataTrigger, 0, n)
- tcpClient.Close()
- Else
- If Not networkStream.CanWrite Then
- Console.WriteLine("cannot read data from this stream")
- tcpClient.Close()
- End If
- End If
- networkStream.Close()
- 'Read images
- Dim tcpClient As New System.Net.Sockets.TcpClient()
- tcpClient.Connect("ip", port)
- Dim networkStream As NetworkStream = tcpClient.GetStream()
- If networkStream.CanRead Then
- ' Reading data length
- Dim dataLength(15) As Byte
- networkStream.Read(dataLength, 0, 16)
- ' Reading all data
- Dim bytesReaded, bytesLeft, bytesCounter As Integer
- bytesCounter = 0
- bytesLeft = dataLength
- Do While bytesLeft > 0
- bytesReaded = networkStream.Read(dataImages, bytesCounter, bytesLeft)
- bytesCounter = bytesCounter + bytesReaded
- bytesLeft = dataLengthInt - bytesCounter
- Loop
- tcpClient.Close()
- Else
- If Not networkStream.CanRead Then
- Console.WriteLine("cannot not write data to this stream")
- tcpClient.Close()
- End If
- End If
- networkStream.Close()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement