Dump hexa fichier

0/5 (1 avis)

Vue 5 626 fois - Téléchargée 484 fois

Description

Salut

voici un petit source avec une unité Bin_Dump.pas
qui se charge de faire un Dump hexadecimal d'un fichier var un fichier txt.

Il y a un problem est de taille :
Si le fichier à dumper est trop gros, il faut attendre quelques secondes de plus ( trop à mon gout )

Donc si quelqu'un à une solution pour accelerer la vitesse, sans utiliser d'unité ou de compo externe, qu'il m'envois un mail à delphicool@fr.st

Merci

Source / Exemple :


dans le zip

ou sur www.progzed.com/~delphicool
section sources / fichiers

Bonne ProgZ

Codes Sources

A voir également

Ajouter un commentaire Commentaire
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
Je pense que le problème réside ici :
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.