Conversion byte hexaRésolu

Question

Bonjour &#224; tous,
mon probl&#232;me est le suivant:
j'ai cr&#233;&#233; un fichier typ&#233; comme suit:
Type
    TrecData = Record
             Datteheur : TDateTime;
             etat      : string[2];
             omc       : byte;
             country   : byte;
             common    : word;
             system    : word;
             net       : word;
             alarme    : byte;
             rssi      : byte;
             reserve   : byte;
end;
var
  Form1      : TForm1;


  recFich    : file of TrecData;<---mon fichier binaire typ&#233;
  data       : TrecData;
j'ai converti  une chaine de caractere en integer avec strtoint et jai ensuite converti le int en hexa &#233; ensuite g reconverti en int ,en gro g fai sa:
var
      int : integer;
      str : string;
begin
      int := strtoint(str);
      data.system := strtoint ( inttohex (int,4) );
le probleme est que comme le data.systeme est en word ,comme g converti de l'hexa en integer et si j'essai d'afficher la valeur du data.system il ne peu pa lire les lettre du code hexa ce qu'il me semble
Je voudrais savoir lorsqu'on essai d'ecrir dans un fichier avec ce que ce que j'ai tap&#233; sa passe?
Si non comment yorai til un moyen ppour que j'ecri dans un fichier du code hexa avec le fichier typ&#233; sue j'ai creer(plu precisement les variable ki sont declar&#233; en byte et word).

cs_Kenavo · Accepted Answer

Si str
est une chaine hexa genre '1F7F' , tu peux &#233;crire datasystem :=
StrToInt('$'+str)


Si str est 
une chaine 
 hexa genre
'$1F7F' , tu peux &#233;crire datasystem := StrToInt(str)


Si str est 
une chaine 
 hexa genre
'0x1F7F' , tu peux &#233;crire datasystem :=
StrToInt('$'+copy(str,2,length(str))

etc ...



Et puis si tu veux qu'on puisse bien comprendre ce que tu souhaite,
&#233;vite ce style SMS de m








Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

jlen100 · Answer

salut

 si tu est sur que int reste dans l'interval word 0..FFFFh le plus simple est d'ecrire directement data.system :=int;  

bonne prog.

cs_Kenavo · Answer

Salut,





La ligne data.system :=  strtoint ( inttohex (int,4) ); va
te poser un probl&#232;me si la repr&#233;sentation hexa de ton entier contient
les caract&#232;tes A,B,C,D,E, ou F . Et au mieux, une dr&#244;le de conversion :


Si str contient '100' alors int prend la valeur 100 en d&#233;cimal soit 64 en h&#233;xa (not&#233; $64 ou 64H ou 0x64)

inttohex (int,4) te renvoie donc  '0064', et data. System prend au final la valeur 64 (d&#233;cimal) soit $40 (hexad&#233;cimal)

La forme correcte  est : 

 data.system := strtoint ('$'+ inttohex (int,4) );  

Le truc, c'est que &#231;a ne sert &#224; rien ! Tu peux faire  directement : data.system : = strtoint(str);



Data.Sytem est un word tu peux lui donner toutes les valeurs num&#233;riques entre 0 et 65535




Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

jlen100 · Answer

d'accord avec toi kenavo on peut se passer de la variable intermediaire
sauf qu'il sera plus difficilede traiter eventuellement 
l'interval de validite

elementalord · Answer

ok mais si je tape data.system := strtoint(str) est ce que cel&#224; pourrait &#233;crir dans mon fichier binaire les donn&#233;es ke je v recuperer dans str ki sont en hexa?

jlen100 · Answer

attention!!

strtoint ne convertit pas de l'hexa en binaire mais du texte( chiffres
0..9 a l'exclusion des lettres) en binaire pour convertir de l'hexa en
binaire il faut utiliser la Hextobin

elementalord · Answer

euh oui je c mai je croi ke je me sui mal exprimer en fait c un fichier kelconk .txt ou .dat ou .bin...ou je veu ecrir d donn&#233;e en hexa.mais kom j'ai : data.system en word et ke g str en hexa alor je c pa sil va ecrir les lettres de ce code ds le fichier ou l'exclur ou meme mafficher une erreur kom koi les lettre du code hexa ne sont pas des entiers un truc du genre...donc si quelqu'un connai comment je peu ecrir de l'hexa dans mon fichier typ&#233; alor kil ya un byte pourait il maider?

elementalord · Answer

Merci beaucoup cel&#224; fonctionne bien et d&#233;sol&#233; la fa&#231;on comment j'ecri mes mots la prochaine fois je ferai attention

Conversion byte<-> hexa

8 réponses

Votre réponse

Discussions similaires