Discussion :

[as_44]

Bonjour,

J'ai besoin d'interroger une balance à partir d'un AS400

Le constructeur m'a indiqué qu'il était possible de mettre un convertisseur RS232-> Ethernet (car l'AS400 n'est pas à côté de la balance)

Je souhaite donc écrire un programme Cobol de préférence ou RPG pour lire les données de la balance. Je n'ai pas d'expérience particulière pour la communication avec d'autres ordinateurs (j'ai tout de même déjà utilisé quelques fois un fichier ICF mais cela fait presque 20 ans - connexion avec un Microvax et aussi un terminal portable - donc par un câble rs232)

Si quelqu'un peut m'aider

Merci

Voici l'exemple que l'on m'a donné en VB6 sous Windows

The winsock control is a standard control in visual basic 6. (mswinsck.ocx)

The most important code is written below.
(Extra code is usefull to make sure the connection is complete before afsking the weight. Or to wait until the answer from te scale is complete)

1) make a connection

Winsock1.RemoteHost = 192.168.1.201 '(IP-adres of the Serial-to-Ethernet converter)
Winsock1.RemotePort = 4001 '(port of the Serial-to-Ethernet converter)
Winsock1.Connect

2) send the $-sign to ask the weight

Winsock1.SendData("$")


3) wait for the response(Winsock.DataArrival is an event in the winsock-control)

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
end sub

4) Extract the weight from strData


5) Close the connection

Winsock1.Close

[jump400]

Bjr,

Compte tenu du convertisseur et de l'exemple fourni en VB, la communication devra être faite en sockets TCP et non pas en RS232/ICF.

Pour cela il faut se pencher sur les API unix de socket.
Le lien sur les docs IBM :
http://publib.boulder.ibm.com/infoce...apis/unix8.htm

Et un célèbre tutoriel de Scott Klement :

http://www.scottklement.com/rpg/socktut/tutorial.html

(C'est en RPG IV, mais je pense facilement portable en Cobol)

C'est assez simple en fait, il faut considérer la balance comme le Serveur et le programme sur l'AS est le Client.
Le truc pénible, il en faut bien un, c'est que je suis prêt à parier gros que la balance est en codage ASCII... l'AS est en EBCDIC. Donc des conversions à prévoir...

Sur le principe de base, tu auras besoins de 5 fonctions (API) :

- socket() : déclaration d'un "socket" (~canal) de communication TCP,
- connect() : connexion à la balance
- send() : envoi de caratères à la balance
- recv() : reception de caractères de la balance
- close() : fermeture du socket

[Mercure]

Avant de t'embarquer dans les sockets qui représentent quand même un beau morceau à ingurgiter, je te recommande de consulter d'abord la doc qui accompagne la balance. Avec un peu de pôt, il est possible que la balance aie une doc qui montre quelques exemples de récupération des poids par des logiciels tels que VB, C++, etc.

[as_44]

Merci pour les infos

j'ai téléchargé les exemples de Scott Klement et je vais donc m'atteler à la lecture