H Hendrik Member Licensed User Longtime User Nov 1, 2011 #1 Hey! Ich bin gerade mit meinem Latein am Ende: Ich möchte über TCP/IP mit dem PC kommunizieren. Verbindungsaufbau klappt auch: Bei erfolgreichem connect initialisiere ich das ASyncStreams-Objekt wie folgt: AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams") Der Datenversand von Handy zu PC funktioniert auch. Allerdings wird scheinbar das NewData-Event überhaupt nicht ausgelöst, Code: wenn der Socket Daten erhält. Sub AStreams_NewData (Buffer() As Byte) newtext = "Daten empfangen." CallSub(main,newtext) Dim msg As String msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") newtext = msg CallSub(main,newtext) End Sub Denn nicht einmal der Text "Daten empfangen" wird angezeigt. Testweise habe ich dann AStreams.InitializePrefix aufgerufen. Dann stürzt die Anwendung ab, wenn ich Daten vom PC aus sende. Also scheinen die Daten schon anzukommen. Hat jemand eine Idee?
Hey! Ich bin gerade mit meinem Latein am Ende: Ich möchte über TCP/IP mit dem PC kommunizieren. Verbindungsaufbau klappt auch: Bei erfolgreichem connect initialisiere ich das ASyncStreams-Objekt wie folgt: AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams") Der Datenversand von Handy zu PC funktioniert auch. Allerdings wird scheinbar das NewData-Event überhaupt nicht ausgelöst, Code: wenn der Socket Daten erhält. Sub AStreams_NewData (Buffer() As Byte) newtext = "Daten empfangen." CallSub(main,newtext) Dim msg As String msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") newtext = msg CallSub(main,newtext) End Sub Denn nicht einmal der Text "Daten empfangen" wird angezeigt. Testweise habe ich dann AStreams.InitializePrefix aufgerufen. Dann stürzt die Anwendung ab, wenn ich Daten vom PC aus sende. Also scheinen die Daten schon anzukommen. Hat jemand eine Idee?
H Hendrik Member Licensed User Longtime User Nov 1, 2011 #2 Saublöd: Ich hab den CallSub falsch aufgerufen. Alles ist gut... Kann gelöscht werden.
