Advertisement
Guest User

Untitled

a guest
Jul 28th, 2016
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.38 KB | None | 0 0
  1. 'Code in Timer
  2. 'Trigger
  3. Dim tcpClient As New System.Net.Sockets.TcpClient()
  4. tcpClient.Connect("ip", port)
  5. Dim networkStream As NetworkStream = tcpClient.GetStream()
  6. If networkStream.CanWrite Then
  7. networkStream.Write(dataTrigger, 0, n)
  8. tcpClient.Close()
  9. Else
  10.  
  11. If Not networkStream.CanWrite Then
  12. Console.WriteLine("cannot read data from this stream")
  13. tcpClient.Close()
  14. End If
  15. End If
  16. networkStream.Close()
  17.  
  18. 'Read images
  19. Dim tcpClient As New System.Net.Sockets.TcpClient()
  20. tcpClient.Connect("ip", port)
  21. Dim networkStream As NetworkStream = tcpClient.GetStream()
  22. If networkStream.CanRead Then
  23. ' Reading data length
  24. Dim dataLength(15) As Byte
  25. networkStream.Read(dataLength, 0, 16)
  26.  
  27. ' Reading all data
  28. Dim bytesReaded, bytesLeft, bytesCounter As Integer
  29. bytesCounter = 0
  30. bytesLeft = dataLength
  31. Do While bytesLeft > 0
  32. bytesReaded = networkStream.Read(dataImages, bytesCounter, bytesLeft)
  33. bytesCounter = bytesCounter + bytesReaded
  34. bytesLeft = dataLengthInt - bytesCounter
  35. Loop
  36. tcpClient.Close()
  37. Else
  38. If Not networkStream.CanRead Then
  39. Console.WriteLine("cannot not write data to this stream")
  40. tcpClient.Close()
  41. End If
  42. End If
  43. networkStream.Close()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement