Discussion :

[yacinew]

Bonjour,

Je cherche une fonction pour convertir un code Hexadécimal vers un Ascii.
Exemple :

Code :

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

0043007200650064006900740020007200650063006800610072006700650020003A002000340030003000440041002E00200046006F00720066006100690074002000520065007300740061006E00740020003A002000300020004D006F002000760061006C00610062006C00650020006A0075007300710075002700E00020006D0069006E007500690074002E

j'ai trouver cet fonction mais le résultat et vide :

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
function HexToAsc(strData:string): string;
var  sresult:string; sfinal:string; hexc:cardinal; i:integer;
begin
 i:=1;
 while i<=length(strData) do
begin
 hexc := strtoint('$' + copy(strData,i,2));
 sresult := inttostr(hexc);
 sresult := chr(strtoint(sresult));
 sfinal := sfinal + sresult;
 
 i:=i+2;
end;
 result := sfinal
 
end;

Merci pour l'aide

[skywaukers]

Bonjour,

non, le résultat n'est pas vide, ce sont les 00 qui posent problème.

Il faut les ignorer :

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
17
18
19
20
21
22
23
24
25
function HexToAsc(strData:string): string;
var
  sresult:string;
  sfinal:string;
  hexc:cardinal;
  i:integer;
  Car: string;
begin
  i:=1;
  while i<=length(strData) do
  begin
    Car := copy(strData,i,2);
    if Car <> '00' then
    begin
      hexc := strtoint('$' + Car);
      sresult := inttostr(hexc);
      sresult := chr(strtoint(sresult));
      sfinal := sfinal + sresult;
    end;
 
    i:=i+2;
  end;
 
  result := sfinal
end;

@++
Dany

[tourlourou]

On peut aussi supprimer tous le '00' en une seule passe : strData := StringReplace( strData, '00', '', [rfReplaceAll]);

[Andnotor]

...ou on peut simplement lire 4 digits (0043, 0072,..)

[tourlourou]

c'est vrai !
donc autant remplacer tous les '00' par '$' et lire 3 par 3 pour convertir directement...

[yacinew]

Merci les amis vraiment ça marche bien