French Impossible de communiquer à partir de plusieurs activity même en utilisant 2 Sockets

[Vincent]

Bonjour à tous
En créant une Socket de communication j'arrive à communiquer avec un autre support à partir d'une activity. Lorsque je change d'activity je n'arrive plus à communiquer. Je souhaite envoyer des données et en recevoir avec plusieurs activity. J'ai essayer de fermer la socket pour la réouvrir mais sa ne marche pas Voici un exemple:



activity1 :
Sub Process_Globals
Dim AStreams1 As AsyncStreams
Dim Socket1 As Socket
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Socket2.Close
Socket1.Initialize("Socket1")
Socket1.Connect("192.168.0.1",24,1500)' IP, Port, Timeout
End If
End Sub

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

End If
End Sub


End Sub




activity2:
Sub Process_Globals
Dim AStreams2 As AsyncStreams
Dim Socket2 As Socket
End Sub

Sub Globals
Dim label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

If FirstTime Then
Socket1.Close
Socket2.Initialize("Socket2")
Socket2.Connect("192.168.0.1",24,1500)' 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
End Sub

Sub Btn_Tare_Click

Dim buffer() As Byte

label1.Text="SWP"
buffer = label1.Text.GetBytes("UTF8")
AStreams2.Write(buffer)
End Sub




Merci

 

[Vincent]

Bonjour à tous

Je me ré-explique -->
Je souhaite communiquer à partir de 2 activity sur une même adresse IP de sortie.
Je communique en client puis je recevrais des données par la suite.

Je vous joins le programme que j'ai compilé avec 2 activity sur un programme.
Actuellement avec une activity j'arrive à communiquer sur un autre support. Une fois que l'on change d'activity on n'arrive plus à envoyer des données.




Je vous ai joint un programme .exe (facultatif), si vous avez besoin d'un support pour apercevoir la réception des données.
Pour le test n'oubliez pas de configurer votre port reseau dans propriété carte reseau et protocol IPV4 192.168.0.4

Posez moi toutes vos questions, j'ai besoin d'avancer.


Merci d'avance



:sign0085:

 

[klaus]

Je pense que le problème est le fait de redéclarer

Dim AStreams As AsyncStreams
Dim Socket1 As Socket

une deuxième fois dans l'Activity page.
Je t propose de tester le programme modifié ci-joint dans lequel j'ai supprimé les déclarations.

Meilleures salutations.

 

[Vincent]

Merci de la réponse rapide

J'ai tester le nouveau programme mais là, plus rien n'arrive à être envoyé.

Par ailleurs l'idée est bonne de tous rassembler sur la même activity mais je ne comprend pas pourquoi en changeant d'activité on arrête de pouvoir envoyer et recevoir à partir d'une autre activité

 

[klaus]

Je ne sais pas non plus.

Meilleures salutations.

 

[Vincent]

Merci j'arrive à faire marcher le programme maintenant c’était un problème de réseau.
Savez vous à qui je peux m'adresser pour les communications en Socket car j'aimerais bien fermer une même Socket pour la ré-ouvrir sur une autre activité et recevoir des données entrante et sortante.

Meilleurs salutations pour votre aide

 

[klaus]

Essaie le forum anglais.

Meilleures salutations.

 

[Vincent]

Apres de long petit essai, le problème n'était pas complexe.
L'application marche avec une tablette android mais pas avec l'émulateur de windows. Je pensais que les deux systèmes étaient adéquate.

Je vous joins le programme si une fois vous avez besoin d'utiliser les socket en tant que client pour l'envoy des données et la reception des réponses avec deux activités différentes