PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Communication via reseaux
Communication via reseaux
Iniciado por guest, 13,oct. 2004 15:58 - 5 respuestas
Publicado el 13,octubre 2004 - 15:58
Bonjours,

Je souhaite pourvoir envoyer/recevoir des chaines de caratères via un reseau (d'entreprise)
à un équipement (sorte d'imprimante spécifique) de la même manière qu'un port COM

Comment faire ?

Merci à tous.
Publicado el 13,octubre 2004 - 17:12
Simple supposition:
Si l'équipement en question est accessible sur le réseau, il faut "l'attaquer" via une IP et un numéro de port => je dirais qu'il faut utiliser les sockets.

Frédéric.
Publicado el 13,octubre 2004 - 18:13
Effectivement, j' ai cru comprendre ça dans la DOC...
Merci.
Publicado el 13,octubre 2004 - 18:23
Bonjour,

Nous faisons effectivement cela pour des imprimantes spécifiques style imprimantes transfert thermique via les instructions "Socket". Si vous cherchez des boitiers de conversion Ethernet vers RS232/422/485 et inversement, vous pouvez en trouver chez des fabriquants comme MOXA, LAVA, ... Au fait ces boitiers incluent un petit serveur de socket auquel vous vous connectez sur un numéro de socket et vous dialoguez avec les instructions SocketLit, SocketEcrit.

Salutations.

DENIS ZEIGIN.
Publicado el 13,octubre 2004 - 18:38
J'ai fait un test tout simple, visiblement je ne peux pas tester en local.
Le message n'est pas envoyé.

Pourquoi ?

SI PAS SocketExiste("serveur") ALORS
SI PAS SocketCrée("serveur",8000 ,NetAdresseIP()) ALORS Erreur("erreur création " + ErreurInfo(errMessage))
FIN
FIN


SI SocketEcrit("serveur", "hello world") = Vrai ALORS // <= Marche pas !!!
Message("message envoyé")
FIN

Info(SocketLit("serveur", False))
SocketFerme("serveur")
Publicado el 13,octubre 2004 - 18:38
J'ai fait un test tout simple, visiblement je ne peux pas tester en local.
Le message n'est pas envoyé.

Pourquoi ?

SI PAS SocketExiste("serveur") ALORS
SI PAS SocketCrée("serveur",8000 ,NetAdresseIP()) ALORS Erreur("erreur création " + ErreurInfo(errMessage))
FIN
FIN


SI SocketEcrit("serveur", "hello world") = Vrai ALORS // <= Marche pas !!!
Message("message envoyé")
FIN

Info(SocketLit("serveur", False))
SocketFerme("serveur")