Acces rapide à un fichier

Question

Mon problème est le suivant :
Je souhaite rechercher toutes les occurances d'une séquence de 4 octets dans un fichier.

Voiçi le code que j'ai actuellement :

  FileStream := TFileStream.Create(FNomFichier, fmOpenRead);

  Size := FileStream.Size;
  Position := 0;
  nbLocalHeader := 0;

  While Position < (FileStream.Size - 4) do
  begin
   FileStream.Read(Sign, SizeOf(Sign));
   If Sign = SgnLocal then
    begin
     SetLength(FALHPos, nbLocalHeader + 1);
     FALHPos[nbLocalHeader] := Position;
     Inc(nbLocalHeader);
    end;
   Inc(Position);
   FileStream.Seek(-3, soCurrent);
  end;

  FreeAndNil(FileStream);

Le seul problème de ce code, c'est qu'il est très lent.
Avez-vous des idées pour optimiser tout ça ???
Toutes les suggestions sont les bienvenues (systèmes de buffer, autres méthodes ...)

a+

cs_Delphiprog · Answer

Quelle est la nature du fichier : binaire, texte, etc ?

A question précise, réponse précise !
May Delphi be with you

cs_bgK · Answer

Il s'agit de fichiers binaires (des fichiers Zip, plus précisement)

Acces rapide à un fichier

2 réponses

Votre réponse

Discussions similaires