Beispiel für StreamSocket gesucht um eine App per Browser zu steuern

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von buecherwurm.

    Beispiel für StreamSocket gesucht um eine App per Browser zu steuern

    Bei XAML Apps kann man das TcpListener Object nicht mehr nutzen. Dafür gibt es die StreamSocket Class msdn.microsoft.com/de-de/libra…sockets.streamsocket.aspx
    Ich komme aber damit nicht klar und finde kein Beispiel. Hat jemand ein einfaches Beispiel für mich als Vorlage? Einfach ein Button den ich im Browser anklicken kann, um auf dem Rechner mit der App (Netzwerkadresse) meine App zu beeinflussen?
    :saint:

    Hier mal das, was ich schon habe und mir zusammengestoppelt habe. Nicht, daß ich das alles verstehen würde... Funktionieren tut's ja auch noch nicht :/

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports Windows.Networking.Sockets
    3. Imports Windows.Storage.Streams
    5. Public NotInheritable Class MainPage
    6. Inherits Page
    7. Const BufferSize = 8192
    9. Public Sub New()
    10. InitializeComponent()
    12. InitHTTP()
    13. End Sub
    15. Public Async Sub InitHTTP()
    16. Dim listener = New StreamSocketListener()
    17. Dim port = 8000
    19. AddHandler listener.ConnectionReceived, AddressOf ProcessRequestAsync
    20. Await listener.BindServiceNameAsync(port.ToString())
    21. Dim socket As StreamSocket
    22. Dim output As IOutputStream = socket.OutputStream
    24. End Sub
    26. Private Async Sub ProcessRequestAsync(socket As StreamSocket)
    27. Dim request As StringBuilder = New StringBuilder()
    28. Using input As IInputStream = socket.InputStream
    29. Dim data As Byte()
    30. ReDim data(BufferSize)
    31. Dim Buffer As IBuffer = data.AsBuffer()
    32. Dim dataRead As Integer = BufferSize
    33. While (dataRead = BufferSize)
    34. Await input.ReadAsync(Buffer, BufferSize, InputStreamOptions.Partial)
    35. request.Append(Encoding.UTF8.GetString(data, 0, data.Length))
    36. dataRead = Buffer.Length
    37. End While
    38. End Using
    40. Using output As IOutputStream = socket.OutputStream
    41. Dim requestMethod As String = request.ToString().Split("\n")(0)
    42. Dim requestParts As String() = requestMethod.Split(" ")
    44. If (requestParts(0) = "GET") Then
    45. Await WriteResponseAsync(requestParts(1), output)
    46. Else
    47. Throw New InvalidDataException("HTTP method not supported: " & requestParts(0))
    48. End If
    50. End Using
    51. End Sub
    53. Private Async Function WriteResponseAsync(request As String, os As IOutputStream) As Task
    54. Dim html As String = "<html><head><title>Blinky App</title></head><body><form action=""blinky.html"" method=""Get""><input type=""radio"" name=""state"" value=""On"" onclick=""this.form.submit()""> On<br><input type=""radio"" name=""state"" value=""off"" checked onclick=""this.form.submit()""> Off</form></body></html>"
    55. Using resp As Stream = os.AsStreamForWrite()
    57. Dim bodyArray As Byte() = Encoding.UTF8.GetBytes(html)
    58. Dim Stream As MemoryStream = New MemoryStream(bodyArray)
    59. Dim header As String = String.Format("HTTP/1.1 200 OK\r\n" +
    60. "Content-Length: {0}\r\n" +
    61. "Connection: close\r\n\r\n",
    62. Stream.Length)
    63. Dim headerArray As Byte() = Encoding.UTF8.GetBytes(header)
    64. Await resp.WriteAsync(headerArray, 0, headerArray.Length)
    65. Await Stream.CopyToAsync(resp)
    66. Await resp.FlushAsync()
    67. End Using
    68. End Function
    70. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „buecherwurm“ ()

Facebook
Telefonspende