Discussion :

[Dayak]

Bonjour,

Je souhaiterais savoir s'il y a un moyen de lire un fichier quelconque, par exemple un fichier texte, un .exe etc... sous la forme binaire pure, j'entend par là, lorsqu'on lit le fichier, on lit des 10010100100110... de sorte qu'on puisse modifier le fichier directement sous forme binaire ?

J'espère m'être fait comprendre

Merci.

[Eric Sigoillot]

Lire un fichier sous forme "binaire pure", c'est lire un fichier sous forme de données brutes, donc lire des octets.

Pour cela, il faut utiliser le type file et utiliser les procédures BlockRead et BlockWrite, un peu comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
var
  f: file;
  Buffer: array[0..1023] of Byte;
 
begin
  Assign(f, 'FILE.DAT'); { Assignation du fichier }
{ On ouvre le fichier avec une taille de donnée de 1, autrement dit lecture par octets }
  Reset(f, 1);
  ...
  WriteLn(FileSize(f)); { On affiche la taille du fichier }
  ...
  BlockRead(f, Buffer, 1024); { On lit 1 Ko }
  ...
  Seek(f, 5646); { On se place dans le fichier à la position 5646 }
  BlockWrite(f, Buffer, 1024); { On écrit 1 Ko }
  ...
  Close(f); { On ferme le fichier }
end.

N'hésite pas à consulter des tutoriels, comme ceux de Cyberzoïde, et la F.A.Q Pascal

A+

[Dayak]

Merci beaucoup !!

Mon prog fonctionne impec' !
Désoler de pas avoir répondu plus tôt mais j'étais en vacances

Encore merci.