Почему я не могу прочитать из своего буфера сокетов UWP

Question

Я пытаюсь написать DLL-файл для обработки сокетов для своих приложений UWP, как и для моих приложений winforms. Проблема в том, что я просто пишу UWP-приложения. Мой исходный DLL-файл управления сокетами запускает поток приема и каждые 100 миллисекунд, считывает из сокета и вызывает событие. Я попытался сделать то же самое в своей UWP DLL, но он, похоже, не работает с кодом, который я скопировал с веб-сайта MSDN. Может кто-нибудь взглянуть и посмотреть, что я делаю неправильно? Я не собираюсь врать, я никогда раньше не использовал задачу (потоки казались проще).

PS, я подтвердил, что работает соединение и отправка данных.

EDIT: Изменен мой код немного. Но все равно не работает. Любые идеи?

Кажется, что он не проходит мимо строки, даже когда данные отправляются на нее.

Dim DataText As String = Reader.ReadToEnd

Imports Windows.Networking 

Imports Windows.Networking.Sockets 

Public Class ClientSocket 

Private CSocket As New StreamSocket 

Dim strHost As String = "192.168.0.11" 

Dim RPort As String = "80" 

Private killswitch As Boolean = False 

Public Event SocketError(ByVal Operation As String, ByVal ErrorMessage As String) 

Public Event DataReceived(ByVal DataString As String) 

Public Async Sub Connect() 

    Try 

     Dim RHost As HostName = New HostName(strHost) 

     Await CSocket.ConnectAsync(RHost, RPort) 

     ReceiveTask.Start() 

    Catch ex As Exception 

     RaiseEvent SocketError("Connecting", ex.Message) 

    End Try 

End Sub 

Public Sub Disconnect() 

    killswitch = True 

    CSocket.Dispose() 

End Sub 

Public Async Sub SendText(ByVal SendString As String) 

    Try 

     Dim OutStream As Stream = CSocket.OutputStream.AsStreamForWrite 

     Dim Writer As StreamWriter = New StreamWriter(OutStream) 

     Await Writer.WriteLineAsync(SendString) 

     Await Writer.FlushAsync 

    Catch ex As Exception 

     RaiseEvent SocketError("Sending", ex.Message) 

    End Try 

End Sub 

Private ReceiveTask As New Task(Sub() 

            Dim InStream As Stream = CSocket.InputStream.AsStreamForRead 

            Dim Reader As StreamReader = New StreamReader(InStream) 

            While killswitch = False 

             Try 

              Dim DataText As String = Reader.ReadToEnd 

              RaiseEvent DataReceived(DataText) 

             Catch ex As Exception 

              RaiseEvent SocketError("Receiving", ex.Message) 

             End Try 

             Task.Delay(TimeSpan.FromSeconds(1)) 

            End While 

           End Sub) 

Public Property Host As String 

    Get 

     Host = strHost 

    End Get 

    Set(value As String) 

     strHost = value 

    End Set 

End Property 

Public Property Port As String 

    Get 

     Port = RPort 

    End Get 

    Set(value As String) 

     RPort = value 

    End Set 

End Property 

End Class 

Answer 1

решаемые с ниже кода получающего Задача:

Private ReceiveTask As New Task(Sub() 

            Dim InStream As Stream = CSocket.InputStream.AsStreamForRead 

            While killswitch = False 

             Try 

              Dim Reader As StreamReader = New StreamReader(InStream) 

              Dim DataText As String = "" 

              While Reader.Peek <> -1 

               DataText &= Convert.ToChar(Reader.Read) 

              End While 



              RaiseEvent DataReceived(DataText) 

             Catch ex As Exception 

              RaiseEvent SocketError("Receiving", ex.Message) 

             End Try 

            End While 

           End Sub)