méthode de lecture d'un fichier dans un buffer

Version imprimable

24/02/2006, 07h27
Mestoph

méthode de lecture d'un fichier dans un buffer

Bonjour,

Je députe depuis peut en delphi, Maintenant que j'ai quelques base j'éssaye de nouvelle chose plus complexe...

Par contre je bloque sur un point ...

J'ouvre un fichier, que je mets en mémoire, j'aimerais lire les 4 premier bytes du fichier et les convertire en type Long, je n'y arrive pas...

Quelqu'un peut m'indiqué un tuto concernant la conversion des données svp

Merci d'avance
24/02/2006, 07h34
neilbgr

Cela manque de précisions...

Quelle version de Delphi ?
Quelle méthode de lecture du fichier ? (TFileStream, TMemoryStreem, File, ... ?)

Désolé...

Delphi 7, type de fichier File :

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Procedure TForm1.Button2Click(Sender: TObject);
Var NombrePnj : LongInt;
    Fichier : File;
    NomFichier : String;
    TailleDonnees : LongInt;
    Donnes : Pbyte;
    Emplacement : Pbyte;
Begin
  NomFichier := 'test.dat';
  AssignFile(Fichier,NomFichier);
  Reset(Fichier,1);
  TailleDonnees := FileSize(Fichier);
  GetMem(Donnees,TailleDonnees);
  BlockRead(Fichier,Donnees^,TailleDonnees);
  Emplacement := Donnees;
  // lecture du premier long.
  ShowMessage(InttoStr(Lecture_Long));
  FreeMem(Donnees);
  CloseFile(Fichier);
End;
 
Function TForm1.Lecture_Long : LongInt;
  Var Valeur : LongInt;
Begin
  Lecture_Long := Pulong(LongInt(Emplacement))^;
  Emplacement := Pointer(LongInt(Emplacement) + 4);
End;

Voila ce que je viens de trouvé, ont dirait que cela fonctionne maintenant... Mais je fait appel a vous pour savoir si cette méthode et bonne.

C'est une méthode... la bonne ? je ne suis pas juge, mais je préfère la méthode plutot orienté objet qui consiste à utiliser un TFileStream :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.btn2Click(Sender: TObject);
var
  vFlux: TStream; // Un flux quelconque
  vLong: Integer; // LongInt c'est pareil
begin
  // Un flux spécialisé pour un fichier
  vFlux := TFileStream.Create('test.dat', fmOpenRead);
  try
    // Lecture dans le flux et ecriture dans le buffer
    vFlux.Read(vLong, SizeOf(vLong));
 
     // ... on peut lire les autres données ici
 
  finally
    // Quoi qu'il arrive, on libère le flux (et donc le fichier)
    vFlux.Free;
  end;
 
  ShowMessage('Valeur lue : '+IntToStr(vLong));
end;

24/02/2006, 09h30
Mestoph

Ta méthode et très clair et beaucoup plus compréhensible !

Merci de me l'avoir posté, je vais m'entraîner dessus elle me semble pratique :)

Mais j'ai une autre question concernant cette méthode, Admettons que :

Dans le fichier ce trouve au départ un Long, Puis ensuite 2 bytes et de nouveau Un long.

Comment faire pour faire pointé la lecture a un endroit X du fichier ?

Avec un descendant de TStream, lorsque tu fais un Read(Buffer, Size) la position dans le flux avance de la taille qu'il a pu lire (au maximum de celle donnée Size). Pour connaitre ce que le flux a réellement lu, il suffit de récupérer le retour de la fonction Read(Buffer, Size).

Code:

vNbreOctetsLus = vFlux.Read(vBuffer, SizeOf(vBuffer));

Ensuite, pour connaitre la position dans le flux il suffit simplement de lire la propritété Position :

Code:

vPositionActuelle := vFlux.Position;

Pour ta demande ca donnerait ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 procedure TForm1.btn2Click(Sender: TObject); var vFlux: TStream; // Un flux quelconque vLong: Integer; // LongInt c'est pareil vByte: Byte; begin // Un flux spécialisé pour un fichier vFlux := TFileStream.Create('test.dat', fmOpenRead); try vFlux.Read(vLong, SizeOf(vLong)); ShowMessage('Valeur lue : '+IntToStr(vLong)); vFlux.Read(vByte, SizeOf(vByte)); ShowMessage('Valeur lue : '+IntToStr(vByte)); vFlux.Read(vByte, SizeOf(vByte)); ShowMessage('Valeur lue : '+IntToStr(vByte)); vFlux.Read(vLong, SizeOf(vLong)); ShowMessage('Valeur lue : '+IntToStr(vLong)); finally // Quoi qu'il arrive, on libère le flux (et donc le fichier) vFlux.Free; end; end;
N'oublie pas l'aide de Delphi : :f1: ;)

24/02/2006, 10h07
Mestoph

Tres grand merci !