DUMP HEXA FICHIER
RocketSpawn
Messages postés
16
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
10 avril 2007
-
7 août 2004 à 15:32
RocketSpawn Messages postés 16 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 10 avril 2007 - 7 août 2004 à 15:32
RocketSpawn Messages postés 16 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 10 avril 2007 - 7 août 2004 à 15:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11704-dump-hexa-fichier
https://codes-sources.commentcamarche.net/source/11704-dump-hexa-fichier
7 août 2004 à 15:32
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
Repeat
sHex := IntToHex(De,8) + 'h: '; sStr := '';
If Not((De + 15) >Jusqua ) Then
Begin
For i := 0 to 15 do
begin
Fs.Read(b,1);
sHex := sHex + IntToHex(b,2) + ' ';
if not(b in [32..126]) Then sStr := sStr + '.'
else sStr := sStr + Char(b);
end;
Destination.Items.Add(sHex + ' ' + sStr);
De := De + 16;
end
ELSE
Begin
For i := 0 to Jusqua - De do
begin
Fs.Read(b,1);
sHex := sHex + IntToHex(b,2) + ' '; { c'est plus clair avec un espace en fin }
if not(b in [32..126]) Then sStr := sStr + '.' { on remplace les caracteres non ecrivablent par . }
else sStr := sStr + Char(b);
end;
for i := 0 to (14 - (Jusqua - De)) do sHex := sHex + ' ';
Destination.Items.Add(sHex + ' ' + sStr);
De := Jusqua;
end
until De >= Jusqua; { Jusque là ou cé demandé }
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
en faite tu acutalise ta listbox en temps réel il serai plus judicieux de tout faire passer dans un tableau dynamique à l'aide d'un pointer puis d'afficher ds ta listbox ton tableau non ?
a essayer ...
RocketSpawn