Discussion :

[cid5420]

Bonjour,

je cherche à récupérer une tram TCP.

Je m'explique, j'ai un automate qui m'envoi une tram tcp que je reçois très bien (wareshark).

Mais je n'arrive pas à afficher dans une liste les trams que je reçois de l'automate.

J'ai essayé d'utiliser les fonction socket mais ça ne fonctionne pas!

bout de code déjà testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
SI SocketCrée("server", 8000) = Faux ALORS
	Erreur("Erreur de création " + ErreurInfo(errMessage))
SINON
	// Gestion des connexions des postes clients dans un thread
	ThreadExécute("Thread1", threadNormal, ProcédureAttente)
FIN
LIB_infoc="Connexion ok"

ProcedureAttente :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
PROCEDURE ProcédureAttente()
Trace("procedur attente")
BOUCLE
	SI SocketAttendConnexion("server") = Vrai ALORS
		Canal est une chaîne
		// Si la connexion est acceptée, 
		// la gestion de cette connexion est réalisée dans un thread spécifique
		Canal = SocketAccepte("server")
		Trace("socket accepte")
		ThreadExécute(Canal, threadNormal, ProcédureGestion, Canal)
	FIN
FIN

proceduregestion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PROCEDURE ProcédureGestion()
ListeAjoute(LISTE_infotcp,"réponse automate ok")

[hartyshow]

Bonjour,

As-tu lu ->

http://doc.pcsoft.fr/fr-FR/?3070008
http://wind.developpez.com/tutoriels.../etude-socket/

[cid5420]

Oui justement, j'ai écrit ce bout de code en utilisant les fonctions socket de pcsoft.

Pour le tuto sur les sockets, j'ai bien essayé de m'en servir, mais j'ai une erreur en essayant de me connecter à l'automate. Une erreur qui dit impossible de lié le socket a l'adresse ip ????

Je ne voix pas pourquoi vue que je réussi à me connecter à l'automate, lui demander de mettre une sortie à "on" ou bien de demander l'état d'une entrée.

Vous allez me dire, et bien où est-ce que ça coince? Alors oui j'arrive à communiquer avec l'automate, mais je n'arrive pas à rester à l'écoute, je pensais qu'en laissant un socket ouvert, si l'automate doit envoyer quelque chose, je dois le retrouver sur mon application windev, chose que je n'arrive pas à faire. Alors la doc sur les sockets, j'ai essayé mais prob de connexion.

[cid5420]

En fait j'ai remarqué que je ne peux pas utiliser la fonction socketCréé(), en effet, mon automate gère déjà le modbus tcp/ip donc j'ai juste à faire un socketConnecte() pour arriver à me connecter. Le problème c'est que derrière, la fonction SocketAttendConnexion() ne peux pas fonctionner sans socketCréé().
De plus l'utilisation des threads avec le tuto ne fonctionne pas chez moi, toujours des problèmes du genre le tread "x" existe déjà etc....


je suis un peux perdu.

Donc pour résumer, je me connecte à l'automate en utilisant socketConnecte("server", 502, Adresse IP)
ensuite, je souhaites rester à l'écoute et afficher dans une liste, une tram que je reçois.

[cid5420]

Bon en fait j'ai mal analysé le tuto et la doc sur le socketCrée, le problème venait du fait que j'entrais l'adresse ip de l'automate au lieu de la mienne.

En revanche, j'ai due supprimer la boucle dans la procédure d'attente qui me renvoyait une erreur.

J'ai un autre problème maintenant,

je n'arrive pas à afficher la tram reçu.
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
PROCEDURE affichemes(nomSocket)
bufTexte est un Buffer
BOUCLE
	Trace("socketlit")
	bufTexte=SocketLit(nomSocket,Vrai)
	//ListeAjoute("LISTE_infotcp",texte)
	Trace(BufferVersHexa(bufTexte))
 
FIN
ThreadArrête("",500)
Multitâche(-30)

[cid5420]

Pour ceux que ça intéresse, je donne mon code fonctionnel :
Création socket:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
SI SocketCrée("server", 44818,"IPServer") = Faux ALORS
	Erreur("Erreur de création " + ErreurInfo(errMessage))
	LIB_infoc="Problème lors du démarrage du serveur"
SINON
	Socket.Option = SocketNagleOff
	SI SocketChangeModeTransmission("server",SocketSansMarqueurFin)= Vrai ALORS //dans mon cas, le message n'a pas de marqueur de fin
		ThreadExécute("Thread1", threadNormal, attente)
		LIB_infoc="Connexion ok"
	FIN
	// Gestion des connexions des postes clients dans un thread
 
FIN

procedure attente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
PROCEDURE attente()
SI SocketAttendConnexion("server") ALORS // si une demande de connexion est en attente
	//canal est une chaîne
	//canal=SocketAccepte("server") //Cette fonction permet de créer le canal de communication entre la socket serveur et la socket cliente. 
	//trace(canal)
	ThreadExécute("server",threadNormal,affichemes) //Lance l'exécution d'un "thread" 
	Multitâche(-30) //La fonction Multitache avec un negatif suspend l'application
FIN

procedure affichemes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
PROCEDURE affichemes()
Trace(SocketClientInfo("server",SocketAdresse))
Trace(SocketClientInfo("server",SocketPort))
Trace("affiche message")
 
TANTQUE SocketExiste("server") = Vrai
	Trace("socket existe ")
	Msg est une chaîne = SocketLit("server", Vrai)
	Trace("socket lit ok")
	SI Msg <> "" ALORS
		//ListeAjoute(LISTE_Messages, Maintenant() + " " + sMsg)
		MaChaineASCII est une chaîne
		MaChaineHexa est une chaîne
		POUR i = 1 _A_ Taille(Msg) PAS 2
			MaChaineASCII += Caract(Val(MaChaineHexa[[i sur 2]],"x"))
		FIN
		Trace(MaChaineASCII)
 
	FIN
FIN	
	//ListeAjoute("liste1",texte)
 
ThreadArrête("",500)
Multitâche(-30)

Voilà sujet résolu !!!!