German Problem mit AStreams_NewData

[Hendrik]

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,

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?

 

[Hendrik]

Saublöd: Ich hab den CallSub falsch aufgerufen. Alles ist gut...

Kann gelöscht werden.