BINTOHEX |
Binaire à hexadécimal |
---|---|
Free Pascal | Classes |
Syntaxe
Procedure BinToHex(BinValue,HexValue:PChar;BinBufSize:Integer); |
Paramètres
Nom | Description |
---|---|
BinValue | Ce paramètre permet d'indiquer la chaîne de caractères contenant un nombre en base binaire |
HexValue | Ce paramètre permet d'indiquer une chaîne de caractères allant recevoir un nombre en base hexadécimal. ATTENTION ! Il faut effacer le contenu de cette chaine de caractères au préalable car il ne copie la valeur ASCIZ à la fin de la chaine de caractères. |
BinBufSize | Ce paramètre permet d'indiquer le nombre d'octets que contient les données binaires. |
Description
Cette fonction permet d'effectuer la conversion d'un tampon binaire en une chaîne de caractères hexadécimal.
Exemple
Voici quelques exemples d'utilisation de cette fonction :
- Program BinToHexSamples;
-
- Uses SysUtils,Classes;
-
- Var
- BinValue,HexValue:Array[0..255]of Char;
-
- BEGIN
- StrCopy(BinValue,'5');
- FillChar(HexValue,SizeOf(HexValue),0);
- BinToHex(BinValue,HexValue,1);
- WriteLn('bin2hex(5)=',HexValue);
-
- StrCopy(BinValue,'6');
- FillChar(HexValue,SizeOf(HexValue),0);
- BinToHex(BinValue,HexValue,1);
- WriteLn('bin2hex(6)=',HexValue);
-
- StrCopy(BinValue,'65');
- FillChar(HexValue,SizeOf(HexValue),0);
- BinToHex(BinValue,HexValue,2);
- WriteLn('bin2hex(65)=',HexValue);
-
- StrCopy(BinValue,'A');
- FillChar(HexValue,SizeOf(HexValue),0);
- BinToHex(BinValue,HexValue,1);
- WriteLn('bin2hex(''A'')=',HexValue);
-
- StrCopy(BinValue,'gladir');
- FillChar(HexValue,SizeOf(HexValue),0);
- BinToHex(BinValue,HexValue,6);
- WriteLn('bin2hex(''gladir'')=',HexValue);
-
- StrCopy(BinValue,'gladir.com');
- FillChar(HexValue,SizeOf(HexValue),0);
- BinToHex(BinValue,HexValue,10);
- WriteLn('bin2hex(''gladir.com'')=',HexValue);
- END.
-
on obtiendra le résultat suivant :
bin2hex(5)=35bin2hex(6)=36
bin2hex(65)=3635
bin2hex("A")=41
bin2hex("gladir")=676c61646972
bin2hex("gladir.com")=676c616469722e636f6d
Dernière mise à jour : Samedi, le 18 juillet 2015