lire octet par octet dans un fichier bynaire

Question

EEEppppssss!

voici mon code :

var
Fs: TFileStream;
b:Byte;
begin

   Fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+'fichier.dat',fmOpenRead);
   Fs.Seek(0,soFromBeginning) ;

      while not Eof() do
      begin
           Fs.Read(b,1);
           ShowMessage('octet : ' + IntToStr(b) + #13 + 'caractere : '+ Char(b));
      end;
   Fs.Free;

end;

Voila le Eof ne peut pas marcher et je veux lire octet par octet !!! comment boucler ??

cs_Bestiol · Answer

Tu trouves pas ça bizarre, une fonction pour laquelle tu ouvres et tu refermes des paranthèses, sans rien à l'intérieur ??

Essaye en mettant "While Not Eof(Fs) Do". Ce qui paraît pourtant logique, eof voulant dire "end of file", il faut spécifier de quel fichier on parle !

Bye !
Bestiol.

cs_golum · Answer

Ravi de te revoir mais j'avais fait cela expres pour que personne n'écrive Eof(Fs) ce qui est une belle connerie etant donné que Fs n'est pas un pointeur de fichier mais un objet de la classe TfileStream 

...

cs_Nono40 · Answer

On peut utiliser un flux facilement :
il suffit d'écrire :
while fs.position<fs.size do

--- :sleepy)  Nono du Moulin  :sleepy) ---

Lire octet par octet dans un fichier bynaire

3 réponses

Votre réponse

Discussions similaires