B4A Empfangene Daten werden beim Layout wechsel angezeigt

1Sub Process_Globals
2 Dim Socket1 As Socket
3 Dim Astreams As AsyncStreams
4 Dim ip As String : ip = "192.168.178.2"
5 Dim port As Int : port = 2011
6End Sub
7
8Sub Globals
9 Dim Button1 As Button
10End Sub
11
12Sub Activity_Create(FirstTime As Boolean)
13 Activity.LoadLayout("ClientForm")
14 Socket1.Initialize("Client")
15
16End Sub
17
18Sub AStreams_NewData (Buffer() As Byte)
19 Dim msg As String
20 msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
21 Msgbox (msg,"")
22End Sub
23
24Sub Client_Connected(ConStatus As Boolean)
25 If ConStatus = True Then
26 Msgbox("Verbunden!","")
27 Astreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams")
28 codes.SendCommand("ADR")
29 Activity.Finish
30 StartActivity("seite01")
31 Else
32 Msgbox(LastException.Message, "Keine Verbindung möglich")
33 End If
34End Sub
35
36'Buttons SendCommand(String)
37Sub Button1_Click
38Socket1.Connect(ip,port,20000)
39End Sub
40
41Sub Activity_Resume
42
43End Sub
44
45Sub Activity_Pause (UserClosed As Boolean)
46
47End Sub

1'Activity module
2Sub Process_Globals
3
4End Sub
5
6Sub Globals
7
8 Dim Button1 As Button
9 Dim Button2 As Button
10End Sub
11
12Sub Activity_Create(FirstTime As Boolean)
13 Activity.LoadLayout("seite01")
14End Sub
15
16Sub Activity_Resume
17
18End Sub
19
20Sub Activity_Pause (UserClosed As Boolean)
21
22End Sub
23
24
25
26Sub Button1_Click
27codes.SendCommand("BAS")
28End Sub
29
30Sub Button2_Click
31Main.Socket1.Close
32Activity.Finish
33StartActivity("main")
34End Sub

1'Code module
2'Subs in this code module will be accessible from all modules.
3Sub Process_Globals
4 'Dim Astreams As AsyncStreams
5
6End Sub
7
8Sub SendCommand(Command As String)
9 Try
10 If Main.Astreams.IsInitialized = False Then Return
11
12 Dim buffer() As Byte
13 buffer = Command.GetBytes("UTF8")
14 ' Astreams.Write(buffer)
15 Main.Astreams.Write2(buffer,0,buffer.Length)
16 ToastMessageShow("Erfolgreich versandt.",False)
17 Catch
18 ToastMessageShow("Fehler aufgetreten.", False)
19 End Try
20End Sub

1Sub AStreams_NewData (Buffer() As Byte)
2 Dim msg As String
3 msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
4 Msgbox (msg,"")
5End Sub

1Sub AStreams_NewData (Buffer() As Byte)
2 Dim msg As String
3 msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
4 Msgbox (msg,"")
5End Sub

1"An error has occurred in sub:mainafterFirstLayout (java line:88) java.lang.Exception: Sub astreams_newdata was not found."