Hjælp til konverting fra TCPClient til DataWriter.

Har du evt kigget på StreamSocket-klassen?

Ja og jeg fik ikke lige smidt det ind som jeg har fået lavet.
Da jeg sad ved en tablet og ikke havde materielet som jeg var i gang med. men her er mit nuværende:

srvTimeout.CancelAfter(10000)
Await ClientSocket.ConnectAsync(srvHostName, srvPort).AsTask(srvTimeout.Token)

StreamWriter = New DataWriter(ClientSocket.OutputStream)
StreamReader = New DataReader(ClientSocket.InputStream)
StreamReader.InputStreamOptions = InputStreamOptions.Partial

StreamWriter.WriteString("CONNECT")
Await StreamWriter.StoreAsync()

Og problemet er at når jeg næste laver en sub til at lave

StreamWriter.WriteString(variabel)
Await StreamWriter.StoreAsync()

Så virker den kun nogen gange og andre gange laver den en fejl med "En oprettet forbindelse blev afbrudt af softwaren på værtscomputeren." andre gange dropper den helt socketen og skal resette den igen.

Jeg har også lavet den med FlushAsync uden held.
        Try
            If SendCommand IsNot Nothing Then
                status.Text = "Forsøger at sende data ..."

                StreamWriter.WriteString(SendCommand)
                Await StreamWriter.StoreAsync()
                Await StreamWriter.FlushAsync()

                status.Text = "Data afsendt (" & SendCommand & ")"
            End If
        Catch ex As Exception
            status.Text = "Fejl ved afsendelse af data: " & ex.Message

            ClientSocket.Dispose()
            srvConnected = False
        End Try

Efter noget tids tænken og prøven frem kom jeg jo til at se at den gamle kode jo også åbner og lukker TCPClient Streamen ved hver Write/Read cyklus. Det har jeg efterlignet med StreamSocket også virker det også.

Men er der er en måde man kunne gøre det på så den ikke hele tiden skal connecte -> sende og modtage -> Disconnecte og forfra hver gang. men at man holder streamen åben så man blot skal sende og modtage sålænge der er forbindelse.

koden:
    Private Async Function SendReceive(SendCommand As String) As Task(Of String)
        Dim srvTimeout As New CancellationTokenSource()
        ClientSocket = New StreamSocket()
        Dim returnData As String = Nothing

        Try
            'status.Text = "Opretter forbindelse ..."

            srvTimeout.CancelAfter(5000)
            Await ClientSocket.ConnectAsync(srvHostName, srvPort, SocketProtectionLevel.PlainSocket).AsTask(srvTimeout.Token)

            'status.Text = "Tilsluttet til " & srvHost
        Catch ex As Exception
            Select Case ex.HResult
                Case -2146233029
                    returnData = "Forbindelse mislykkedes: Timeout"
                Case Else
                    returnData = "Forbindelse mislykkedes: " & ex.Message
            End Select

            ClientSocket.Dispose()
            ClientSocket = Nothing

            Return returnData
            Exit Function
        End Try

        Try
            If SendCommand IsNot Nothing Then
                'status.Text = "Forsøger at sende data ..."

                Dim StreamWriter As New DataWriter(ClientSocket.OutputStream)

                StreamWriter.WriteString(SendCommand)
                Await StreamWriter.StoreAsync()

                StreamWriter.DetachStream()
                StreamWriter.Dispose()

                'status.Text = "Data afsendt (" & SendCommand & ")"
            End If
        Catch ex As Exception
            returnData = "Fejl ved afsendelse af data: " & ex.Message

            ClientSocket.Dispose()
            ClientSocket = Nothing

            Return returnData
            Exit Function
        End Try

        Try
            'status.Text = "Forsøger at modtage data ..."

            Dim StreamReader As New DataReader(ClientSocket.InputStream)
            StreamReader.InputStreamOptions = InputStreamOptions.Partial

            Dim strReceivedBytes As String = Await StreamReader.LoadAsync(512)
            returnData = StreamReader.ReadString(strReceivedBytes)

            StreamReader.DetachStream()
            StreamReader.Dispose()

            'status.Text = "Data modtaget (" & strReceived & ")"
        Catch ex As Exception
            returnData = "Fejl ved modtagelse af data: " & ex.Message

            ClientSocket.Dispose()
            ClientSocket = Nothing

            Return returnData
            Exit Function
        End Try

        Return returnData
    End Function

Jeg har fortsat med løsningen ovenfra.