Hallo
Ich wollte mal fragen ob schon jemand versucht hat eine Netzwerkverbindung zwischen einer Universal App die mit Windows.Networking.Sockets arbeitet und einem Windows Programm oder Dienst der mit System.Net arbeitet herzustellen.
Habe das heute mal versucht und die Verbindung wird auch aufgebaut allerdings kann ich keine Daten senden.
Interessanter weise bekomme ich wenn ich von der App zum Programm verbinde zwar eine Verbindung aber es werden keine Daten übertragen. Wenn ich die App schließe komme die Daten aber manchmal an.
Hier hab ich mal den Code von meinem Klassischen Programm:
Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Imports System.Xml
Module Module1
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000)
Private list As New List(Of Connection)
Private serverlist As New List(Of Connection)
Private Structure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim nick As String
Dim type As String
Dim pcname As String
End Structure
Sub Main()
Console.WriteLine("Der Server läuft!")
server = New TcpListener(ipendpoint)
server.Start()
While True '
client = server.AcceptTcpClient
Dim c As New Connection
c.stream = client.GetStream
c.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)
Dim x As String
Dim y As String = ""
Dim z As String = ""
Dim type As String = ""
Dim xml As New XmlDocument
x = c.streamr.ReadLine
Console.WriteLine(x)
End While
End Sub
End Module
Und hier mal den Code meiner App in der ich zum Test einfach mal das Beispiel von git etwas angepasst habe.
Imports Windows.ApplicationModel.Core
Imports Windows.Networking.Sockets
Imports Windows.Storage.Streams
Imports Windows.UI.Core
Imports Windows.UI.Xaml
Imports Windows.UI.Xaml.Controls
Imports Windows.UI.Xaml.Navigation
''' <summary>
''' Eine leere Seite, die eigenständig verwendet werden kann oder auf die innerhalb eines Rahmens navigiert werden kann.
''' </summary>
Public NotInheritable Class MainPage
Inherits Page
Private Async Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
If CoreApplication.Properties.ContainsKey("listener") Then
textBox.Text = "Wurde bereits aktiviert"
Exit Sub
End If
Dim listener As New StreamSocketListener()
AddHandler listener.ConnectionReceived, AddressOf OnConnection
CoreApplication.Properties.Add("listener", listener)
Try
Await listener.BindServiceNameAsync("2222")
textBox.Text = "Listen"
Catch exception As Exception
If SocketError.GetStatus(exception.HResult) = SocketErrorStatus.Unknown Then
Throw
End If
textBox.Text = "Start listening failed with error: " & exception.Message
End Try
End Sub
Private Async Sub OnConnection(sender As StreamSocketListener, args As StreamSocketListenerConnectionReceivedEventArgs)
Dim reader As New DataReader(args.Socket.InputStream)
Try
While True
Dim sizeFieldCount As UInteger = Await reader.LoadAsync(4)
If sizeFieldCount <> System.Runtime.InteropServices.Marshal.SizeOf(GetType(UInteger)) Then.
Exit Sub
End If
Dim stringLength As UInteger = reader.ReadUInt32()
Dim actualStringLength As UInteger = Await reader.LoadAsync(stringLength)
If stringLength <> actualStringLength Then
Exit Sub
End If
NotifyUserFromAsyncThread(String.Format("Receive data: ""{0}""", reader.ReadString(actualStringLength)))
End While
Catch exception As Exception
If SocketError.GetStatus(exception.HResult) = SocketErrorStatus.Unknown Then
Throw
End If
NotifyUserFromAsyncThread("Read stream failed with error: " & exception.Message)
End Try
End Sub
Private Async Sub NotifyUserFromAsyncThread(strMessage As String)
Await Dispatcher.RunAsync(CoreDispatcherPriority.Normal, Sub()
textBox1.Text = strMessage
End Sub)
End Sub
Private Async Sub button1_Click(sender As Object, e As RoutedEventArgs) Handles button1.Click
If CoreApplication.Properties.ContainsKey("clientSocket") Then
textBox.Text = "This step has already been executed. Please move to the next one."
Return
End If
Dim socket As New StreamSocket()
Dim hostname As New Windows.Networking.HostName("localhost")
CoreApplication.Properties.Add("clientSocket", socket)
Try
Await socket.ConnectAsync(hostname, "8000")
textBox.Text = "Connected to the server"
CoreApplication.Properties.Add("connected", Nothing)
Catch exception As Exception
If SocketError.GetStatus(exception.HResult) = SocketErrorStatus.Unknown Then
Throw
End If
textBox.Text = "Connect failed with error: " & exception.Message
End Try
End Sub
Private Async Sub button2_Click(sender As Object, e As RoutedEventArgs) Handles button2.Click
If Not CoreApplication.Properties.ContainsKey("connected") Then
textBox.Text = "Please run previous steps before doing this one."
Return
End If
Dim outValue As Object = Nothing
Dim socket As StreamSocket
If Not CoreApplication.Properties.TryGetValue("clientSocket", outValue) Then
textBox.Text = "Please run previous steps before doing this one."
Return
End If
socket = DirectCast(outValue, StreamSocket)
Dim writer As DataWriter
If Not CoreApplication.Properties.TryGetValue("clientDataWriter", outValue) Then
writer = New DataWriter(socket.OutputStream)
CoreApplication.Properties.Add("clientDataWriter", writer)
Else
writer = DirectCast(outValue, DataWriter)
End If
Dim stringToSend As String = "Test"
writer.WriteUInt32(writer.MeasureString(stringToSend))
writer.WriteString(stringToSend)
Try
Await writer.StoreAsync()
textBox.Text = """" & stringToSend & """ sent successfully."
Catch exception As Exception
' If this is an unknown status it means that the error if fatal and retry will likely fail.
If SocketError.GetStatus(exception.HResult) = SocketErrorStatus.Unknown Then
Throw
End If
textBox.Text = "Send failed with error: " & exception.Message
End Try
End Sub
End Class
Ich hoffe jemand hat ne Idee was angepasst werden muss damit ich mehrere Programm Typen über Netzwerk miteinander verbinden kann.
Danke schon mal für die Antworten
