Comment lire les octets d'un fichier ?Résolu

Question

Hello tout le monde.

Je suis débutant et j'essaie tant bien que mal de me mettre aux fichiers.

Je sais que plusieurs sources pourraient répondre à ma question mais en les observant je me suis complètement paumé et je ne suis plus sûr de rien...

J'ai créé un fichier (C:	est.bin) bidon de 3 octets : 01 03 04 (hex)

Je voudrais tout simplement lire ces 3 octets et donc afficher 01 03 04 dans un TEdit.

Comment feriez-vous svp ?

Par avance merci :)

EddiTheHead · Accepted Answer

Slt,

...
Var Fichier : File Of Byte;
    Octet   : Byte;
...

// Ecrire le code ASCII du caract&#232;re 'A' dans un fichier
AssignFile(Fichier, 'Test');
Rewrite(Fichier);
Octet := 65;
Write(Fichier, Octet);
CloseFile(Fichier);

// Lire un caract&#232;re dans un fichier et l'afficher dans un TEdit
AssignFile(Fichier, 'Test');
Reset(Fichier);
Read(Fichier, Octet);
Edit1.Text := IntToStr(Octet); // Pour afficher le code ASCII
Edit2.Text := Chr(Octet); // Pour afficher le caract&#232;re
CloseFile(Fichier);

Cirec · Answer

Salut,
voici deux exemples tr&#232;s simples:
Le premier va lire un octet apr&#232;s l'autre tant que la fin du fichier n'est pas atteint
Et la deuxi&#232;me lit un block de 512 Octets maximum en une fois (m&#234;me si il y en a plus o&#249; moins &#224; lire)

// Lecture par Octet
procedure TForm1.Button1Click(Sender: TObject);
Var Fichier : File of Byte;
    bt : Byte;
begin
  Edit1.Clear;     // On efface le contenu de l'edit
  AssignFile(Fichier, 'C:\Test.bin');// On assigne le fichier &#224; la variable
  Reset(Fichier);    // On l'ouvre
  While Not Eof(Fichier) do   // Tant que la fin du fichier n'est pas atteint...
  Begin
    Read(Fichier, bt);    // Lecture d'un Octet
    Edit1.Text := Edit1.Text + IntToStr(Bt)+ ' '; // Ajout dans l'Edit
  End;
  CloseFile(Fichier);    // Et on le referme
end;


// Lecture par Block
procedure TForm1.Button2Click(Sender: TObject);
Var Fichier : File of Byte;
    bt : Array[0..511] of Byte;
    NbLu : Integer;
begin
  AssignFile(Fichier, 'C:\Test.bin');     // On assigne le fichier &#224; la variable
  Reset(Fichier);     // On l'ouvre
  BlockRead(Fichier, bt, SizeOf(Bt), NbLu);    // Lecture d'un Block d'octets
  ShowMessageFmt('Lu %d : %d %d %d', [NbLu, Bt[0], Bt[1], Bt[2]]);    // Affichage sous forme de MessageBox
  CloseFile(Fichier);    // Et on le referme
end;

Donc la premi&#232;re si il y a plus de trois Octets &#224; lire dans ton fichier ben le tout sera lu
et le deuxi&#232;me ne lira que 512 octets maximum et n'en affichera que les trois premiers  

Voil&#224; c'est peut &#234;tre plus claire maintenant 

@+
Cirec

Cirec · Answer

Salut EddiTheHead,
D&#233;sol&#233; encore une fois j'ai pas rafra&#238;chis avant de poster 
@+
Cirec

cs_Squallou · Answer

Ok merci bien à vous deux j'ai de quoi faire et apprendre ^^
Merci :)

EddiTheHead · Answer

Slt Cirec,

Ton exemple est de tout fa&#231;on plus complet que le mien.
Je veux juste rajouter ceci :

// Pour afficher en h&#233;xa
Edit1.Text := IntToHex(Octet, 2); // 2 pour le nbre de digit

Comment lire les octets d'un fichier ?

5 réponses

Votre réponse