Discussion :

[valdano]

Bonjour

afin de transmettre à une carte électronique un paramètre reel32bit, j'ai besoin de connaitre les 4 octets qui composent ce réel.

Sauriez vous me dire par quel outil je peux passer pour faire cela ? ( en delphi svp )

Merci par avance

[Papy214]

un truc dans ce gout là ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
type
 TAr = array[0..3] of Byte;
 
 
var
 I: Integer;
 A: TAr absolute I;
 B: Byte;
begin
 I := 32564;
 for B in A do
   ShowMessage(IntToStr(B));

[ShaiLeTroll]

La question est beaucoup trop vague !
Comment sont envoyés les données à la carte ?
Carte interne avec Driver (genre carte de bus de terrain sur PCI)
Carte externe via COM, USB, TCP\IP ...


Il faut penser aussi si l'architecture est bigEndian ou LittleEndian

Sous Intel, c'est LittleEndian, en fait, les octets sont stockés à l'envers par rapport à ce qu'on écrit
ainsi 1 en hexa 32 c'est 00 00 00 01 mais en mémoire c'est 01 00 00 00 !

le type reel32bit en Delphi c'est Single,
à l'intérieur c'est des groupe de bit, qu'il faut exploiter via une formule mathématique voir IEEE 754

[valdano]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
type
 TAr = array[0..3] of Byte;
 
var
 I: Integer;
 A: TAr absolute I;
 B: Byte;
begin
 I := 32564;
 for B in A do
   ShowMessage(IntToStr(B));

Merci pour ce code mais j ai une erreur lors du compilation
for B in A do le compi ne reconnais pas cette forme

ShaiLeTroll non pas besoin de driver j envoi les données via HID en usb j utilise la lib de MICROCHIP ya aucun pb là moi je veut transformé un reél genre 0.5 pour l envoyer a ma carte je suis debutant en delphi et je sais pas si ya une fonction qui me donne mon réel sous 4 octect séparé afin de les transmétre a ma carte voilà

[tourlourou]

essaye à la place

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
for B:=0 to 3 do
   ShowMessage(IntToStr(A[B]));

[Papy214]

Merci pour ce code mais j ai une erreur lors du compilation
for B in A do le compi ne reconnais pas cette forme

Il aurait fallu préciser la version de Delphi.

voir la réponse de tourlourou

[valdano]

tourlourou Merci bcp

mtn ca marche bien avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
type
 TAr = array[0..3] of Byte;
 
 
var
 I: Integer;
 A: TAr absolute I;
 B: Byte;
begin
 I := 125;
for B:=0 to 3 do
   ShowMessage(IntToStr(A[B]));
 
 
      end;

pour I integer moi j ai besoin de valeur réels par exemple 0.5 dé que je change I en real si je mets
I: real ;
i:=0.5;
ca marche pas !
que doit je changé a ce code
oui Papy214 désolé je pensé pas que c'etait important version 7 je suis un débutant en delphi
Merci pour votre aide

[Andnotor]

ShaiLeTroll t'a dit que le type réel sur 32 bits est single.

[valdano]

ah oui Merci bcp ca marche enorme MErci a vous tous
probléme résolu

[Papy214]

alors il faut cliquer sur "Résolu"