Problems socket communication between two activity

Vincent · Jun 24, 2012

Hello
Once a socket closed, no possibility to open it again.
The application has two activities and i want to use socket communication in the activities.
thanks

Vincent · Jun 24, 2012

Once Astreams is initialised, it's not possible to close the socket.
is it particular way to close a socket ?

Here is a part of the program

Sub Process_Globals
Dim socket1 As Socket
Dim astreams1 As AsyncStreams
End Sub

Sub Globals
Dim ouvert, deconnecte As Button
Dim vidange1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("page1")
vidange1.Initialize("vidange")
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Socket1_Connected(Connected As Boolean) As Boolean
If Connected = True Then
astreams1.InitializePrefix(socket1.InputStream, False, Socket1.OutputStream, "astreams1")
End If

End Sub

Sub AStreams1_Error
Msgbox (LastException.Message , "")
End Sub

Sub ouvert_Click
socket1.Initialize("Socket1")
socket1.Connect("192.168.0.20",23,500)' IP, Port, Timeout
End Sub
Sub deconnecte_Click
astreams1.Close
socket1.Close
End Sub

mc73 · Jun 24, 2012

In my apps, I use aStreams and sockets in each separate activity. I'm not sure if I'm right on this, though.
I've too had some problems with closing sockets. Now, I close sockets and streams in the activity_pause section. Still, not sure if this is the correct way. Actually, I'm keeping some notes, to express all issues I've faced in a single thread.

Erel · Jun 25, 2012

is it particular way to close a socket ?

AsyncStreams.Close closes the underlying input streams.

I recommend you to use a service if you want to communicate from two different activities.

Vincent · Jun 25, 2012

thank you

Vincent · Jun 25, 2012

In my program, I want to communicate between several activity. (tcp / ip)
I send data and then I get data on a label.
Currently I get an error that appears when I change from the activity Main to activity Main3.

"An error has occured in Sub:main3$ResumeMessagerun (Java line: 190) java.lang.Exception: Sub socket1_connected was not found"

Thank you for your help

sorry for my english

Application with page1, page2 and page3

Sub Process_Globals
Dim socket1 As Socket
Dim astreams1 As AsyncStreams
End Sub

Sub Globals
Dim ouvert, deconnecte As Button
Dim vidange1, label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("page1")
vidange1.Initialize("vidange")
If FirstTime Then
socket1.Initialize("Socket1")
socket1.Connect("192.168.0.20",23,500)' IP, Port, Timeout
End If
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Socket1_Connected(Connected As Boolean) As Boolean
If Connected = True Then
astreams1.InitializePrefix(socket1.InputStream, False, socket1.OutputStream, "astreams1")
End If

If astreams1.IsInitialized = False Then Return
If vidange1.Text.Length > 0 Then
Dim buffer() As Byte
buffer = vidange1.Text.GetBytes("UTF8")
astreams1.Write(buffer)

End If
End Sub

Sub AStreams1_Error
Msgbox (LastException.Message , "")
End Sub

Sub change_Click
Log("closing")
astreams1.Close
socket1.Close
StartActivity("Main3")
End Sub

Sub envoy1_Click
Dim buffer() As Byte
Dim COMMANDE As String
COMMANDE="SB000003P"
buffer = COMMANDE.GetBytes("UTF8") 'text
astreams1.Write(buffer)
End Sub

Sub AStreams1_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
label1.text=msg
Dim value As String
End Sub

'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim socket2 As Socket
Dim astreams2 As AsyncStreams
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim Change2 As Button
Dim deconnecte2 As Button
Dim ouvert2 As Button
Dim vidange2, label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("page2")
vidange2.Initialize("vidange")

If FirstTime Then
socket2.Initialize("Socket2")
socket2.Connect("192.168.0.20",23,500)' IP, Port, Timeout
End If
End Sub

Sub Socket2_Connected(Connected As Boolean)As Boolean
If Connected = True Then
astreams2.InitializePrefix(socket2.InputStream, False, socket2.OutputStream, "astreams2")
End If

If astreams2.IsInitialized = False Then Return
If vidange2.Text.Length > 0 Then
Dim buffer() As Byte
buffer = vidange2.Text.GetBytes("UTF8")
astreams2.Write(buffer)
End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Change2_Click
Log("closing")
astreams2.Close
socket2.Close
StartActivity("Main3")
End Sub

Sub envoy2_Click
Dim buffer() As Byte
Dim COMMANDE As String
COMMANDE="STP"
buffer = COMMANDE.GetBytes("UTF8") 'text
astreams2.Write(buffer)
End Sub

Sub AStreams2_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
label2.text=msg
Dim value As String
End Sub

'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim retour_page1 As Button
Dim retour_page2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("page3")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub retour_page2_Click
Main2.socket2.Initialize("Socket2")
Main2.socket2.Connect("192.168.0.20",23,500)' IP, Port, Timeout
StartActivity("Main2")
End Sub
Sub retour_page1_Click
Main.socket1.Initialize("Socket1")
Main.socket1.Connect("192.168.0.20",23,500)' IP, Port, Timeout
StartActivity("Main")
End Sub

Erel · Jun 25, 2012

Please use File - Export as zip when uploading your project. Otherwise you are loading many unnecessary files.

You should also use [ code ] [ /code ] tags (without spaces) to highlight the code. It is very hard to read it like this.

You should move all the network code to a single Service.

Vincent · Jun 25, 2012

sorry, I did not download the ZIP

B4X:

Sub Process_Globals
Dim socket1 As Socket
Dim astreams1 As AsyncStreams
End Sub

Sub Globals
Dim ouvert, deconnecte As Button
Dim vidange1, label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("page1")
vidange1.Initialize("vidange")
If FirstTime Then
socket1.Initialize("Socket1")
socket1.Connect("192.168.0.20",23,500)' IP, Port, Timeout
End If
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Socket1_Connected(Connected As Boolean) As Boolean 
If Connected = True Then
astreams1.InitializePrefix(socket1.InputStream, False, socket1.OutputStream, "astreams1")
End If

If astreams1.IsInitialized = False Then Return
If vidange1.Text.Length > 0 Then
Dim buffer() As Byte
buffer = vidange1.Text.GetBytes("UTF8")
astreams1.Write(buffer)

End If
End Sub

Sub AStreams1_Error
Msgbox (LastException.Message , "")
End Sub

Sub change_Click
Log("closing")
astreams1.Close
socket1.Close
StartActivity("Main3")
End Sub

Sub envoy1_Click
Dim buffer() As Byte
Dim COMMANDE As String
COMMANDE="SB000003P"
buffer = COMMANDE.GetBytes("UTF8") 'text
astreams1.Write(buffer)
End Sub

Sub AStreams1_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
label1.text=msg
Dim value As String
End Sub

B4X:

'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim socket2 As Socket
Dim astreams2 As AsyncStreams
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim Change2 As Button
Dim deconnecte2 As Button
Dim ouvert2 As Button
Dim vidange2, label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("page2")
vidange2.Initialize("vidange")

If FirstTime Then
socket2.Initialize("Socket2")
socket2.Connect("192.168.0.20",23,500)' IP, Port, Timeout
End If
End Sub


Sub Socket2_Connected(Connected As Boolean)As Boolean 
If Connected = True Then
astreams2.InitializePrefix(socket2.InputStream, False, socket2.OutputStream, "astreams2")
End If

If astreams2.IsInitialized = False Then Return
If vidange2.Text.Length > 0 Then
Dim buffer() As Byte
buffer = vidange2.Text.GetBytes("UTF8")
astreams2.Write(buffer)
End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Change2_Click
Log("closing")
astreams2.Close
socket2.Close
StartActivity("Main3")
End Sub

Sub envoy2_Click
Dim buffer() As Byte
Dim COMMANDE As String
COMMANDE="STP"
buffer = COMMANDE.GetBytes("UTF8") 'text
astreams2.Write(buffer)
End Sub


Sub AStreams2_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
label2.text=msg
Dim value As String
End Sub

B4X:

'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim retour_page1 As Button
Dim retour_page2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("page3")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub retour_page2_Click
Main2.socket2.Initialize("Socket2")
Main2.socket2.Connect("192.168.0.20",23,500)' IP, Port, Timeout
StartActivity("Main2")
End Sub
Sub retour_page1_Click
Main.socket1.Initialize("Socket1")
Main.socket1.Connect("192.168.0.20",23,500)' IP, Port, Timeout   
StartActivity("Main")
End Sub

Erel · Jun 25, 2012

Please use File - Export as zip when uploading files. The files are stored in the forum database. If you use File - Export as zip the zip file will be much smaller.

With that said, you should move all your networking code to a service.

Vincent · Jun 25, 2012

I agree but my file is a ZIP.
Which service should I ask?

raphael75 · Jun 25, 2012

To create a service module, go to Project menu > Add New Module > Service Module.

www.b4x.com/forum/basic4android-getting-started-tutorials/7572-downloading-files-using-service-module.html

Erel · Jun 26, 2012

I agree but my file is a ZIP.

But the zip files includes many temporary files that do not need to be uploaded.

Vincent · Jun 26, 2012

ok thank you very much, I will test the services

Problems socket communication between two activity

Vincent

Member

Vincent

Member

mc73

Well-Known Member

Erel

B4X founder

Vincent

Member

Vincent

Member

Erel

B4X founder

Vincent

Member

Attachments

Erel

B4X founder

Vincent

Member

raphael75

Active Member

Erel

B4X founder

Vincent

Member