Salut a tous,
Actuellement j'essait de configurer une petite centrale de mesure
Qui me retourne des valeur comme la tension, intensité ...
Mais la docs me demande de transmettre mes demandes a la centrale
en Hexadecimal.
" Modbus RTU protocol "
Ex : 01 03 00 00 00 01 84 0A
Alors j'ai creer un petit programme pour essayer tous sa.
Mais lorsque j'utilise un programme pour sniffer les commande envoyer,
Aucune n'est en Hexa, toute sont convertie car ce que j'envoit
est un String.
J'ai bien essayer sa :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 WriteFile(g_hCOM, edit1.text[1], Length(edit1.text[1]), BytesWritten, nil);
Mais identique, pas de changement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 var BytesWritten: DWORD; mBuffer:array[0..100] of Byte; i:integer; begin for i:=1 to length(edit2.text) do begin mBuffer[i]:=ORD(edit2.text[i]); end; WriteFile(g_hCOM, mBuffer, Length(mBuffer), BytesWritten, nil);
Quelqu'un a t-il une idee ?
Merciiii![]()
Partager