TCP Communication Using StreamSocket

[JumpyNET]

A simplified version of the MSDN StreamSocket sample (tested and working).

 

TCP Client (Windows Phone 8 App)

Imports Windows.Networking
Imports Windows.Networking.Sockets
Imports Windows.Storage.Streams

Partial Public Class MainPage : Inherits PhoneApplicationPage

   Dim Socket As StreamSocket

   Private Async Sub ButtonConnect_Click(sender As Object, e As RoutedEventArgs) Handles ButtonConnect.Click
       Socket = New StreamSocket
       Await Socket.ConnectAsync(New HostName("192.168.1.7"), "1234")
       StartListening()
   End Sub

   Private Async Sub StartListening()
       Dim reader As New DataReader(Socket.InputStream)
       Do
           ' Read first 4 bytes (length of the subsequent string).
           Dim sizeFieldCount As UInteger = Await reader.LoadAsync(CUInt(Runtime.InteropServices.Marshal.SizeOf(New UInteger)))
           If sizeFieldCount <> Runtime.InteropServices.Marshal.SizeOf(New UInteger) Then
               ' The underlying socket was closed before we were able to read the whole data.
               Return
           End If

           ' Read the string.
           Dim stringLength As UInteger = reader.ReadUInt32()
           Dim actualStringLength As UInteger = Await reader.LoadAsync(stringLength)
           If stringLength <> actualStringLength Then
               ' The underlying socket was closed before we were able to read the whole data.
               Return
           End If

           ' Display the string.
           Dim MsgReceived As String = reader.ReadString(actualStringLength)
           System.Diagnostics.Debug.WriteLine(MsgReceived)
       Loop
   End Sub

   Private Async Sub ButtonSend_Click(sender As Object, e As RoutedEventArgs) Handles ButtonSend.Click
       Dim stringToSend As String = "Some Text To Send"
       Dim writer As New DataWriter(Socket.OutputStream)
       writer.WriteUInt32(writer.MeasureString(stringToSend))
       writer.WriteString(stringToSend)
       Await writer.StoreAsync()
       writer.DetachStream()
       writer.Dispose()
   End Sub

End Class

 

TCP Server (Windows 8 Store App)

Imports Windows.Networking
Imports Windows.Networking.Sockets
Imports Windows.Storage.Streams

Public NotInheritable Class MainPage : Inherits Page

   Dim WithEvents ListenerSocket As StreamSocketListener

   Private Async Sub ButtonListen_Click(sender As Object, e As RoutedEventArgs) Handles ButtonListen.Click
       ListenerSocket = New StreamSocketListener
       ' Don't limit traffic to an address or an adapter.
       Await ListenerSocket.BindServiceNameAsync("1234")
   End Sub

   Dim Socket As StreamSocket

   Private Async Sub listener_ConnectionReceived(sender As StreamSocketListener, args As StreamSocketListenerConnectionReceivedEventArgs) Handles ListenerSocket.ConnectionReceived
       ' Invoked once a connection is established.
       Debug.WriteLine("Connection Established")
       Socket = args.Socket
       Dim reader As New DataReader(args.Socket.InputStream)
       Do
           ' Read first 4 bytes (length of the subsequent string).
           Dim sizeFieldCount As UInteger = Await reader.LoadAsync(CUInt(Runtime.InteropServices.Marshal.SizeOf(New UInteger)))
           If sizeFieldCount <> Runtime.InteropServices.Marshal.SizeOf(New UInteger) Then
               Return ' The underlying socket was closed before we were able to read the whole data.
           End If

           ' Read the string.
           Dim stringLength As UInteger = reader.ReadUInt32()
           Dim actualStringLength As UInteger = Await reader.LoadAsync(stringLength)
           If stringLength <> actualStringLength Then
               Return ' The underlying socket was closed before we were able to read the whole data.
           End If

           ' Display the string.
           Dim MsgReceived As String = reader.ReadString(actualStringLength)
           Debug.WriteLine(MsgReceived)
       Loop
   End Sub

   Private Async Sub ButtonSend_Click(sender As Object, e As RoutedEventArgs) Handles ButtonSend.Click
       Dim stringToSend As String = "Some Text Back"
       Dim writer As New DataWriter(Socket.OutputStream)
       writer.WriteUInt32(writer.MeasureString(stringToSend))
       writer.WriteString(stringToSend)
       Await writer.StoreAsync()
       writer.DetachStream()
       writer.Dispose()
   End Sub

End Class

 

PS: Requesting to be moved to code library, please.

Edited October 14, 2021 by AWS