Convertitr un code Hex to ascii

Version imprimable

Bonjour,

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

Code:

0043007200650064006900740020007200650063006800610072006700650020003A002000340030003000440041002E00200046006F00720066006100690074002000520065007300740061006E00740020003A002000300020004D006F002000760061006C00610062006C00650020006A0075007300710075002700E00020006D0069006E007500690074002E

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

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 ;)

Bonjour,

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

Il faut les ignorer :

Code:

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

04/08/2013, 18h27
tourlourou

On peut aussi supprimer tous le '00' en une seule passe : strData := StringReplace( strData, '00', '', [rfReplaceAll]);
04/08/2013, 19h39
Andnotor

...ou on peut simplement lire 4 digits (0043, 0072,..) :mouarf:
04/08/2013, 21h25
tourlourou

c'est vrai !
donc autant remplacer tous les '00' par '$' et lire 3 par 3 pour convertir directement...
05/08/2013, 03h01
yacinew

Merci les amis vraiment ça marche bien :D