Wie Kommunkation zwischen Windows und Windows Phone herstellen?

sothere · 4. August 2015, 15:18

Hallöchen ihr lieben,
ich habe mal wieder angefangen, zu programmieren und wollte ein älteres Projekt aufgreifen und dazu eine App schreiben.
Ich hatte gehofft, wie TCP zwischen Windows Forms Anwendung und Windows Phone Strings übertragen zu können, am besten via TCP. Allerdings bekomme ich es überhaupt nicht hin, einen TCP-Server zu erstellen, der in beide Richtungen (Empfangen und Schreiben) mit Windows Phone kommunizieren kann. Das beste, was ich hin bekommen habe, war das das Windows Phone Nachrichten an die Windows Forms Anwendung schickt, aber das wars dann auch. Habe das ganze jetzt komplett gelöscht und suche eigentlich erstmal komplett nach Ansätzen.

sothere · 4. August 2015, 21:45

Ich habe inzwischen das hier als Beispiel für den Client gefunden: msdn.microsoft.com/de-de/libra…s/apps/xaml/jj150599.aspx
Fehlt mir nur noch die Serverseite, allerdings müsste diese eben auch selber senden können. Hab den ganzen Abend jetzt schon rumgegoogelt und nichts gefunden. Vielleicht hat ja doch noch jemand von euch ne Idee, sonst lege ich das zu den Akten

~blaze~ · 5. August 2015, 02:07

Hi
generell brauchst du nur eine TcpListener-Instanz und mehere TcpClients auf der Clientseite.
AcceptTcpClient wartet auf einen weiteren Client (es gibt auch asynchrone Verfahren, die funktionieren aber eben entsprechend anders, sind natürlich auch in der TcpListener-Klasse zu finden) und gibt diesen zurück. Über den assoziierten Stream kann dann der Datentransfer stattfinden. TcpListener kann (und wird) mehrere TcpClient-Instanzen empfangen, d.h. ich würde auch die Möglichkeit mehrerer Clients verfügbar machen. Verbindungsverluste sollte man auch einplanen.

Damit eine Verbindung auch außerhalb des lokalen Netzwerkes erfolgen kann, muss eine Portfreigabe erfolgen oder ein verbindungsloses Protokoll (Udp) mit hole punching verwendet werden. Ein Server kommuniziert hierbei Port und IP-Adresse der jeweiligen Clients (einfach ein wenig in hole punching einlesen, falls du's brauchst), d.h. du brauchst ihn zumindest als Mittelsmann. Im lokalen Netzwerk kann man übrigens bspw. broadcasts verwenden, um den Client zu ermitteln, der angefordert wird.

Es spielt übrigens, zumindest, wenn du Tcp verwendest, keine Rolle, woher und wohin der Stream geht, da es sich um ein standardisiertes Protokoll handelt.

Viele Grüße
~blaze~

ErfinderDesRades · 5. August 2015, 12:53

ich kenn mich mit WinPhone nix aus, aber zu Tcp-Kommunikation habich neulichst en Tut eingestellt, da kommt all das vor, was Blaze anspricht.

Vlt. bräuchte man nur das frmClient des SampleCodes auf WinPhone anpassen, und haut schon hin.

EaranMaleasi · 5. August 2015, 13:46

Jou viel Spaß mit euren TCP Klassen, die unter Windows Mobile nicht vorhanden sind:
msdn.microsoft.com/en-us/libra…et.sockets(v=vs.105).aspx
msdn.microsoft.com/en-us/library/jj207211(v=vs.105).aspx
Man hat nur die Sockets.

ErfinderDesRades · 5. August 2015, 13:50

Hat man denn wenigstens den NetworkStream?

EaranMaleasi · 5. August 2015, 13:55

Etwas ähnliches wie es scheint. Schau dir doch einfach mal das Tutorial an, dass @sothere gepostet hat. Dort wird mit der sog. StreamSocket klasse hantiert.

sothere · 5. August 2015, 14:13

@ErfinderDesRades : Tolles Tutorial!

Ich habe jetzt mit zwei Tutorials mir was zusammengeschustert, was soweit funktioniert, bin zufrieden

Danke für die Hilfe!

Spoiler anzeigen

Client WP 8.1

VB.NET-Quellcode

Private Socket As StreamSocket
Private connected As Boolean = False
Private Async Sub button_verbinden_Click(sender As Object, e As RoutedEventArgs) Handles button_verbinden.Click
Try
If connected = False Then
textBox_adresse.IsEnabled = False
textBox_port.IsEnabled = False
button_verbinden.IsEnabled = False
progress_verbinden.IsActive = True
Socket = New StreamSocket
Await Socket.ConnectAsync(New HostName(textBox_adresse.Text), textBox_port.Text)
StartListening()
Dim deviceInfo As New Windows.Security.ExchangeActiveSyncProvisioning.EasClientDeviceInformation()
Dim _name = deviceInfo.FriendlyName
progress_verbinden.IsActive = False
connected = True
pivot_main.SelectedIndex = 1
End If
Catch ex As Exception
connected = False
textBox_adresse.IsEnabled = True
textBox_port.IsEnabled = True
button_verbinden.IsEnabled = True
progress_verbinden.IsActive = False
End Try
End Sub
Private Async Sub StartListening()
Dim reader As New DataReader(Socket.InputStream)
Do
Try
Dim sizeFieldCount As UInteger = Await reader.LoadAsync(CUInt(Runtime.InteropServices.Marshal.SizeOf(New UInteger)))
If sizeFieldCount <> Runtime.InteropServices.Marshal.SizeOf(New UInteger) Then
Return
End If
Dim stringLength As UInteger = reader.ReadUInt32()
Dim actualStringLength As UInteger = Await reader.LoadAsync(stringLength)
If stringLength <> actualStringLength Then
Return
End If
Dim MsgReceived As String = reader.ReadString(actualStringLength)
MsgHandler(MsgReceived)
Debug.WriteLine(MsgReceived)
Catch ex As Exception
connected = False
textBox_adresse.IsEnabled = True
textBox_port.IsEnabled = True
button_verbinden.IsEnabled = True
Socket = New StreamSocket
pivot_main.SelectedIndex = 0
Debug.WriteLine("Connection closed")
Exit Do
End Try
Loop
End Sub
Private Async Sub SendMsg(ByVal msg As String)
Dim stringToSend As String = msg
Dim writer As New DataWriter(Socket.OutputStream)
writer.WriteUInt32(writer.MeasureString(stringToSend))
Debug.WriteLine(writer.MeasureString(stringToSend))
writer.WriteString(stringToSend)
Await writer.StoreAsync()
writer.DetachStream()
writer.Dispose()
End Sub

Server WinForm

VB.NET-Quellcode

Public RemotePort As Integer = 8010
#Region "Server"
Private tcpListener As TcpListener
Private listenThread As Thread
Private connectedClients As Integer = 0
Private Sub StartServer()
tcpListener = New TcpListener(IPAddress.Any, RemotePort)
listenThread = New Thread(New ThreadStart(AddressOf ListenForClients))
listenThread.Start()
End Sub
Private Sub StopServer()
Try
tcpListener.Stop()
listenThread.Abort()
Catch ex As Exception
End Try
End Sub
Private Sub ListenForClients()
tcpListener.Start()
While True
Try
Dim client As TcpClient = Me.tcpListener.AcceptTcpClient()
connectedClients += 1
Me.BeginInvoke(Sub()
RemoteMenu.lb_clients.Text = connectedClients.ToString & " Benutzer verbunden"
Debug.WriteLine("Remote User verbunden")
End Sub)
Dim clientThread As New Thread(New ParameterizedThreadStart(AddressOf HandleClientComm))
clientThread.Start(client)
Catch ex As Exception
End Try
End While
End Sub
Dim clients As New List(Of NetworkStream)
Private Sub HandleClientComm(client As Object)
Dim tcpClient As TcpClient = DirectCast(client, TcpClient)
Dim clientStream As NetworkStream = tcpClient.GetStream()
clients.Add(clientStream)
Dim message As Byte() = New Byte(4095) {}
Dim bytesRead As Integer
While True
bytesRead = 0
Try
bytesRead = clientStream.Read(message, 0, 4096)
Catch
Exit Try
End Try
If bytesRead = 0 Then
connectedClients -= 1
Me.BeginInvoke(Sub()
RemoteMenu.lb_clients.Text = connectedClients.ToString & " Benutzer verbunden"
Debug.WriteLine("Remote User abgemeldet")
clients.Remove(clients.Item(clients.Count - 1))
End Sub)
Exit While
End If
Dim encoder As New ASCIIEncoding()
Dim msg As String = encoder.GetString(message, 0, bytesRead)
Dim cleanmsg As String = msg.Substring(4)
RemoteHandler(cleanmsg) 'Verarbeitet in anderem Sub den Empfangenen Text
Echo(msg, encoder, clientStream)
End While
tcpClient.Close()
End Sub
Private Sub SendMsg(ByVal msg As String)
For Each client As NetworkStream In clients
Dim encoder As New ASCIIEncoding
Dim msg_complette As String = vbNullChar & vbNullChar & vbNullChar & ChrW(msg.Length) & msg
Dim buffer As Byte() = encoder.GetBytes(msg_complette)
client.Write(buffer, 0, buffer.Length)
Next
End Sub
Private Sub Echo(msg As String, encoder As ASCIIEncoding, clientStream As NetworkStream)
Dim buffer As Byte() = encoder.GetBytes(msg)
clientStream.Write(buffer, 0, buffer.Length)
clientStream.Flush()
End Sub
#End Region

ErfinderDesRades · 5. August 2015, 14:30

Fein!

Wenn ich recht verstehe sind die Streams von Phone.StreamSocket direkt kompatibel mittm NetworkStream der Desktop-Entwicklung.

Nur die Methode PhoneClient.StartListening() würde ich anders benennen.
Listening ist in meiner Welt Aufgabe eines TcpListeners, also des Servers. Ein Listener akzeptiert Connection-Anfragen.
Ein Client listened nicht, sondern er connected sich und received dann Data (falls der Listener im Server ihn accepted hat).

Es sei denn, du hast eine ganz andere Netz-Struktur, wo man evtl. garnimmer klar zw. Servern und Clients unterscheidet.

Edit:
Naja, wenn ich StartListening() länger angucke, finde ich sie immer mehr "zusammengeschustert" (ist dir eiglich klar, wie diskriminierend dieser Begriff ist ?

).
Schon dass die Methode Async ist, aber garnet Awaited aufgerufen wird riecht mir sehr faul.
Und was bei den beiden Returns dann passieren wird scheint mir ebenfalls recht abenteuerlich - vermutlich sind die Returns einfach noch garnet aufgetreten in den bisherigen Tests.

Aber genaues weiß ich nicht, ich kanns ja nicht testen.

sothere · 27. August 2015, 19:03

Oh, hast recht! Das sind noch Altlasten, hab ich jetzt entfernt

Der Code war in der Tat ein bisschen "zusammengeschustert", da ich schlicht und ergreifend nirgends eine sinnvolle Dokumentation für beide Seiten gefunden hatte. Also musste ich die Phone App versuchen an meinen schon vorhandenen Servercode anzupassen.
Hab das ganze auch umbenannt! Danke für die Tipps.

Wie Kommunkation zwischen Windows und Windows Phone herstellen?

Wie Kommunkation zwischen Windows und Windows Phone herstellen?

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben