Hallo Zusammen,
Ich habe eine Programm das mit dem Multiserver(tcp) vom Sourcecode Thread Kommuniziert.
Nun würde ich gerne auch "Nachrichten" von einem Android-Gerät versenden.
Leider bin ich bis jetzt noch nicht auf eine Lösung gekommen da immer weider Fehler herausgegeben wird.
Bez. der Text nicht ankommt.
Hat hier jemand Ahnung
Mein zurzeitiger code in b4a
Spoiler anzeigen
Ich habe eine Programm das mit dem Multiserver(tcp) vom Sourcecode Thread Kommuniziert.
Nun würde ich gerne auch "Nachrichten" von einem Android-Gerät versenden.
Leider bin ich bis jetzt noch nicht auf eine Lösung gekommen da immer weider Fehler herausgegeben wird.
Bez. der Text nicht ankommt.
Hat hier jemand Ahnung
Mein zurzeitiger code in b4a
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("praes1")
Socket1.Initialize("Socket1")
Socket1.Connect("192.168.61.52",8052,20000)
End Sub
Sub Socket1_Connected (Successful As Boolean)
If Successful = False Then
Msgbox(LastException.Message, "Error connecting")
Return
End If
End Sub
Sub Button1_Click
Dim buffer() As Byte
buffer = EditText1.Text.GetBytes
AStreams.Write(buffer)
EditText1.SelectAll
End Sub
Activity.LoadLayout("praes1")
Socket1.Initialize("Socket1")
Socket1.Connect("192.168.61.52",8052,20000)
End Sub
Sub Socket1_Connected (Successful As Boolean)
If Successful = False Then
Msgbox(LastException.Message, "Error connecting")
Return
End If
End Sub
Sub Button1_Click
Dim buffer() As Byte
buffer = EditText1.Text.GetBytes
AStreams.Write(buffer)
EditText1.SelectAll
End Sub