Problème : Socket et thread (communication automate)

Bonjour ,

Je suis actuellement entrain de concevoir une application pour pouvoir établir une connexion avec un scanner relié en réseau tcp/ip et afin de pouvoir récupérer des codes barres scanner.

J'utilise donc les sockets et thread pour réaliser se projet.
Mon scanner par défaut utilise un port : "2001" et une adresse IP : "192.168.1.118".

Le problème c'est que je voudrais créer une socket serveur qui serait mon scanner.
Mais lorsque je crée cette socket avec les adresses ip et port nécessaire, il me renvoie un code d'erreur (wsaeaddrnotavail).


Ma première étape serait de pouvoir créer la socket permettant une connexion entre mon poste et le scanner (serveur).

Je vous fourni mon code, pouvaient vous m'éclairer svp.


CODES Serveur :

Citation:

---

CServeur est une classe
PUBLIC
sNameSocket est une chaîne
iport est un entier
nbClient est un entiers
sEtatServeur est une chaîne
sEtatEnvoie est une chaîne
sCanal est une chaîne
sinfo est une chaîne
sip est une chaîne
FIN

//Création du socket
PROCEDURE PUBLIC CreeServer(sIdSocket,idport)
:sNameSocket=sIdSocket
:iport=idport
:sip = "192.168.1.118" "ip du scanner"
sIpTest est une chaîne = NetAdresseIP() //""Marche avec l'ip du poste""

Trace("Socket " ,:sNameSocket)
SI SocketCrée(:sNameSocket,:iport,:sip) = Faux ALORS
Erreur("Erreur création " + ErreurInfo(errMessage))
:sEtatServeur="Serveur Eteint ! "
SINON
:sEtatServeur="Serveur Démarré ! "
ThreadExécute("Thread1", threadNormal,Accepte)

Trace("Thread 1 exécuté")
Trace("Etat connexion server : ",:sEtatServeur)



//Acepte les connexions côtés Client
PROCEDURE PUBLIC Accepte()

BOUCLE
Trace("Attente-Connexion ------>")

SI SocketAttendConnexion(:sNameSocket,4000) ALORS
Trace("Demande du Client")
// Si la connexion est acceptée, la gestion de cette connexion est réalisée dans un thread spécifique
:sCanal = SocketAccepte(:sNameSocket)
ThreadExécute("Thread2"+DonneIdentifiant(), threadNormal, GereConnectClient) //Permet d'établir le lien avec le client
:nbClient++
FIN
Trace("Tread 1 ok ET nbClientEnCour ->",nbClient)
ThreadPause(100)
FIN
FIN

//Si connexion établie et accepter on gères les connexion :

PROCEDURE PUBLIC GereConnectClient() //Lecture / Ecriture des échanges!
bTest est un booléen
BOUCLE
bTest = Faux

SI(:sinfo<> "")ALORS
SI PAS SocketEcrit(:sCanal,:sinfo) ALORS
:sEtatEnvoie="Le message n'a pas était transmis"
SINON
:sEtatEnvoie="Le message à étais transmis avec succès"
bTest=Vrai
:sinfo=""
FIN
FIN
ThreadPause(200)
Trace("Thread 2 OK")
Trace("Envoie Donnée",bTest)
FIN
// + méthode déconnecter serveur..

---

CODES Client:

Citation:

---

Cclient est une classe
PUBLIC
sNameSocketClient est une chaîne
iport est un entiers
sdonne est une chaîne
sEtatConnect est une chaîne
sEtatEchange est une chaîne
sip est une chaîne
FIN

//Connexion géré dans un thread
PROCEDURE Connecter()

ThreadExécute("Threadc1",threadNormal,GereConnexion)

//Gerer les connexion entre le client et le serveur
PROCEDURE PUBLIC GereConnexion()

//:sIp = NetAdresseIP() //Adresse Ip clientt : "192.168.1.98"
sIptest est une chaîne = "192.168.1.118"

BOUCLE
SI PAS(SocketExiste(:sNameSocketClient))ALORS
SI PAS SocketConnecte(:sNameSocketClient,:iport,sIptest) ALORS
Erreur("erreur de connexion au server " + ErreurInfo(errMessage))
:sEtatConnect="Connexion refusé ! "
SINON
:sEtatConnect="Connexion établi"
FIN
SINON
DonneeLecture()
FIN
Trace("Thread C 1 OK ")
ThreadPause(100)
FIN

//Lecture des échange entre le client et serveur
PROCEDURE PUBLIC DonneeLecture()

:sdonne = SocketLit(:sNameSocketClient,Faux,20)

SI :sdonne <> "" ALORS
ListeAjoute(FEN_mere.LISTE_cb,:sdonne)
sEtatEchange="Donnèe reçu"
SINON
sEtatEchange="Donnèe non reçu"
FIN

+méthode déconnecter
...

---

Test de l'application

L'utilisation de c'est code sont gérer global à la fenêtre et utiliser dans des champ de saisie et bouton...

Bonjour,
Je ne comprends pas pourquoi tu crées un socket serveur, surtout avec l'adresse IP de ton scanner.
Vu que tu veux te connecter à un équipement réseau, tu n'as besoin que du socket client.

Tatayo.

Comment peux tu créer un canal de communication entre le clients et le scanner si tu créer seulement un stocket client??

C'est simple: le socket client se connecte au socket serveur.
Si tu crées un socket client ET un socket serveur sur le même poste, tu vas connecter le poste en question à lui-même, et non au scanner...

Dans ton cas la partie "serveur" se trouve sur le scanner, tu n'as besoin que de la partie cliente.

Tatayo.

Dans ces cas là, comment se connecter au socket server? et comment le trouver?

Le "socket serveur" est sur le scanner !
Ton scanner est sur le réseau, et tu veux t'y connecter sur le port 2001.
Donc tu dois créer un socket client qui va se connecter à l'adresse de ton scanner (192.168.1.118) sur le port 2001.

Tatayo.

Voici ma méthode de créer seulement un socket Client

Citation:

---

Cclient est une classe
PUBLIC
sNameSocket est une chaîne
iport est un entiers
sip est une chaîne
sdonne est une chaîne
sinfo est une chaîne
sEtatServeur est une chaîne
sEtatConnect est une chaîne
sEtatEchange est une chaîne
sEtatEnvoie est une chaîne
scanal est une chaîne
nbClient est un entier

//VERIFICATION CREATION ET ECOUTE SERVER
bServCreer est un booléen
FIN

//CRÉATION DU SOCKET CLIENT
PROCEDURE CreeServer(sIdSocket,idport)
:sNameSocket=sIdSocket
:iport=idport
:sip =NetAdresseIP() // "192.168.1.118"

Trace("Socket " ,:sNameSocket)
SI SocketCrée(:sNameSocket,:iport,:sip) = Faux ALORS
Erreur("Erreur création " + ErreurInfo(errMessage))
:sEtatServeur="Serveur Eteint ! "
bServCreer=Faux
SINON
SI SocketChangeModeTransmission(:sNameSocket, SocketSansMarqueurFin)= Vrai ALORS
:sEtatServeur="Serveur Démarré ! "
bServCreer=Vrai
ThreadExécute("Thread1", threadNormal,Accepte)

Trace("Thread 1 exécuté")
Trace("Etat connexion server : ",:sEtatServeur)
FIN
FIN

//ATTENTE DE LA CONNEXION AU SERVEUR
PROCEDURE Accepte()
BOUCLE
Trace("Attente-Connexion ------>")

//JE NE PASSE PAS DANS SocketAttendConnexion DONC MON CANAL N AIT PAS CREER
SI SocketAttendConnexion(:sNameSocket,4000) ALORS
Trace("Demande du Client")
// Si la connexion est acceptée, la gestion de cette connexion est réalisée dans un thread spécifique
:scanal = SocketAccepte(:sNameSocket)
:nbClient++
FIN
Trace("Tread 1 ok ET nbClientEnCour ->",nbClient)
Trace("Canal ------> ",:scanal)
ThreadPause(200)
FIN

//CONNEXION LANCER DANS UN THREAD
PROCEDURE Connecter()
SI(:bServCreer) ALORS
ThreadExécute("Threadc1",threadNormal,GereConnexion)
FIN


//CONNEXION AU SERVEUR
PROCEDURE GereConnexion()

//:sIp = NetAdresseIP() //Adresse Ip clientt : "192.168.1.98"
sIptest est une chaîne = "192.168.1.118"
iPorttest est une entier = 2001

BOUCLE

SI PAS(SocketExiste(:sNameSocket))ALORS
SI PAS SocketConnecte(:sNameSocket,iPorttest,sIptest) ALORS
Erreur("erreur de connexion au server " + ErreurInfo(errMessage))
:sEtatConnect="Connexion refusé ! "
SINON
:sEtatConnect="Connexion établi"
FIN
SINON
DonneeLecture()
FIN
Trace("Thread C 1 OK ")
Trace("Etat-Connect",:sEtatConnect)
ThreadPause(200)
FIN

//LECTURE DES DONNES DE LA SOCKET SERVEUR
PROCEDURE DonneeLecture()


TANTQUE(:scanal<>"")
:sdonne = SocketLit(:scanal ,Faux,20)
FIN

SI :sdonne <> "" ALORS
ListeAjoute(FEN_mere.LISTE_cb,:sdonne)
sEtatEchange="Donnèe reçu"
SINON
sEtatEchange="Donnèe non reçu"
FIN
Trace("canal lecture ===",:scanal)
Trace("Données ===",:sdonne)

---

Alors:
Soit le scanner se connecte à ton poste, ec dont je doute
Soit toute la partie "serveur", c'est à dire //CRÉATION DU SOCKET CLIENT, //ATTENTE DE LA CONNEXION AU SERVEUR... ne sert à rien.

Dans ce code je vois pas mal de déclaration de procédure, mais aucun appel...

Tatayo.

Le scanner se connecte sur un réseau TCP/IP , il n'ait pas relier au poste.
Et la partie attente connexion et création est obligatoire car c'est elle qui permet de créer le canal entre le client et serveur et permet donc la lecture ou écriture de données grâce à se canal.

Non.
Tu ouvres un socket avec socketOuvre().
Tu lis avec SocketLit.
Tu écrit avec SocketEcrit.

Comme tu te connectes au scanner, la partie serveur est sur le scanner, et la partie cliente suir ton poste.

Exemple:
il y a quelques temps, j'ai fait un petit projet découpé en deux parties:
1. Une partie serveur
2. Une partie cliente

Les deux communiquent via un socket.
Sur la partie serveur: création du socket en mode serveur, et attente connexion. C'est l'équivalent de ton scanner
Sur la partie cliente: socketconnect, socketlit et socketecrit pour communiquer avec le serveur.

Donc dans ton cas, tu n'as que la partie cliente (car je le répète encore une fois, le serveur est sur le scanner).

Tatayo.

J'ai trouvé..
La première version que j'ai utiliser avec mes classe client suffisait.

Il me faut donc les méthodes :

--> Connecter()
--> GereConnexion()
--> DonneeLecture()
--> deconnecter ()

Le soucies était à 6ème ligne de la méthode GereConnexion()
Dans le cas d'un SocketConnecte (dans le sinon) établie il faut rajouter la ligne :
SocketChangeModeTransmission(sNameSocketClient,SocketSansMarqueurFin)

Ensuite il me reste plus cas rentrer un nom de socket, le port d'écoute du scanner et sont adresse IP et mon code barre est afficher dans un trace :p

Citation:

---

Envoyé par spiralfriz

[B]
J'ai trouvé..
La première version que j'ai utiliser avec mes classe client suffisait.

---

C'est un peu ce que je me tue à t'expliquer depuis ce matin :roll:

Tatayo.