Discussion :

[cyval]

Bonjour,

Je cherche à établir une communication entre un TSX NANO et un PC avec une application développée sous Delphi via le protocole MODBUS (dans le but de réaliser une supervision de mon programme chargé dans l'API), MAIS SANS SUCCES ...

Concernant la partie matérielle, celle-ci est opérationnelle. En effet en utilisant le logiciel "MODSCAN32" (logiciel du commerce gérant la communication MODBUS), j'arrive à échanger des données.

Ma configuration matérielle est la suivante :
- Convertisseur RS232/485 type : IC-485S de chez ATEN
- API : type TSX NANO

Concernant le logiciel que j'ai développé sous DELPHI7, il est basé sur le composant Tcomport. La configuration de celui-ci est :
- 9600 bauds
- 8 bits (RTU)
- 1 bit de stop
- parité paire (even)
voir source en pièce jointe.


Cependant, malgré plusieurs essais la communication ne s'établit pas entre le PC et le TSX NANO lorsque j'utilise l'application sous delphi (la LED "COMM" de l'API ne chg pas d'état) et fonctionne bien avec le logiciel MODBUS.

Avez-vous des pistes ??

Merci d'avance

[Poil_dur]

Hello,

si j'ai bien compris, la requète Modbus que tu as codée demande la lecture du registre 9 (%MW9 dans le Nano).
Juste une vérification: cette variable existe bien dans l'API ?

Comment sont reliés le PC et le Nano ? Tu utilises le même câble de comm que lors des tests avec MODSCAN32 ?
C'est une liaison RS232 ou RS485 ?

As-tu la possibilité de voir si la requete Modbus sort bien du port série (avec un autre PC) ?

[cyval]

Bonjour,

Effectivement la variable %MW9 est bien existante dans le programme du TSX NANO.

Le PC est raccordé à l'interface ATEN type IC 485S (convertisseur RS232 <-> RS485). Celle-ci est également raccordée à l'automate TSX NANO.

La partie matériel est commune aux deux logiciels.
1er logiciel :
MODSCAN32 => bon fonctionnement de la communication sous protocole MODBUS
2ème logiciel :
Application Delphi avec composant Tcomport que j'ai réalisée. Et là, problème. Je pense que ma programmation du Tcomport n'est pas correcte.

Au vu des différents essais que j'ai pu réaliser, je pense que la requête ne sort pas du PC lorsque j'utilise l'application sous DELPHI. En effet sachant que le dialogue fonctionne avec le logiciel MODSCAN32 et pas avec l'application sous Delphi.
Mais je ne vois pas comment ctrl le bon fct du composant Tcomport ???

[Poil_dur]

Hello,

Nono40 a fait un tutoriel sur TComPort dispo ici: http://nono40.developpez.com/tutorie.../2005/comport/. Ca pourra peut-être t'aider si tu ne l'as pas déjà lu.

Sur le convertisseur ATEN, y a-t-il des leds indiquant l'activité sur la liaison ?
Si oui, regarde comment ça clignote avec MODSCAN32, et vois ensuite si ça clignote en émission et en réception avec ton programme Delphi. Ca t'indiquera facilement si une trame est envoyée vers le Nano, et si celui-ci répond.

Je ne connais pas Delphi, je ne pourrai pas plus t'aider que cela.
Bon courage, et tiens-nous au courant, on profitera de ton expérience

[cyval]

Bonjour,

Le tutoriel de nono40 est très bien fait (je l'avais déjà lu, merci qd même).

Concernant mon convertisseur ATEN, il n'est pas équipé de LED.

Après qq heures de galère, j'ai confectionné un bouchon de test rs232 pour voir si mes données étaient bien émises par le PC. Le résultat est concluant,des données sont émises du PC.

Par la suite j'ai chargé un logiciel de contrôle liaison RS232 ("Serial Port Monitor" pour ne pas le nommer). L'installation de ce logiciel m'a permis de voir que les données que je pensais émettre du PC n'étaient en réalité pas celles émises.

En effet la trame théorique est : 01 03 00 09 00 01 54 08 et
la trame émise en réalité est : 01 03 00 00 08 c6 45 00.

j'ai modifié les octets '00' par '01', ce qui donne :
trame théorique : 01 03 01 09 01 01 54 08
trame émise en réalité: 01 03 01 09 01 01 54 08

tout ceci me conduit à dire que c'est l'octet '00' qui me pose pb !!!

Savez-vous dire comment fait-on pour coder l'octet '00' avec le composant Tcomport sous delphi ?

Merci d'avance

[yome3k]

Il faut utiliser la fonction Write plutôt que WriteStr je pense.

[Poil_dur]

Hello,

l'octet 00 est probablement interprété comme un marqueur de fin de chaine de caractères.
Tente la solution de yome3k, ça devrait faire l'affaire.

[cyval]

l'utilisation de la fonction "write" plutôt que "writestr" n'est pas concluante.
le problème reste entier.

Sinon, connaissez-vous une dll gratuite permettant de faire la gestion du protocole MODBUS RS485 ?

Tout ceci dans le but de faire un essai avec autre chose que le composant TCOMPORT (pour info, j'utilise la version "comport library version 4.0")

[Poil_dur]

Hello,

l'utilisation de la fonction "write" plutôt que "writestr" n'est pas concluante.
le problème reste entier.

Quel est exactement le problème ? La requète est-elle envoyée complètement sans modification vers le Nano ?

Sinon, connaissez-vous une dll gratuite permettant de faire la gestion du protocole MODBUS RS485 ?

Non désolé (pour ce que je connais de Delphi, déjà...)
Il me semble que tu ne dois pas être très loin de la solution... Bon courage !

[yome3k]

http://www.developpez.net/forums/d74...a/#post4318311

[cyval]

Après bcp de recherches et essais, j'ai fini par trouver l'origine de mon pb.
En réalité, le composant Tcomport que j'avais installé sur mon PC n'était pas celui dédié à Delphi7.
Il existe un composant spécial pour delphi 7 :
Tcomport2.64-delphi7 (disponible sous http://sourceforge.net/projects/comport/files/).

Merci pour votre aide

[amina zaki]

bjr, est-ce-qu'il est existe un logiciel qui fait la traduction d'un programme réalisé en l'automate allen bradley (logiciel de programmation est rslogix 5000) à siemens ( step 7_400)?
mrc