Discussion :

[RamDevTeam]

Bjr,

Je cherche à lire un fichier binaire en utilisant TfileStream.
la méthode read indique bien le nb d'octet lu mais le buffer est vide !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Procedure Tform1.ChargementFichier(aFilename : string; recordsize : integer);
var buf : array of char;
[..]
 
  MyFileStream := TFileStream.Create(aFilename, fmOpenRead);
  SetLength(buf, recordsize);
  try
     NbOctetsLu := MyFileStream.Read(buf, recordsize);
 
     showmessage( buf[1] );  =>provoque une violation d'accès.
  finally
   MyFileStream.free;
  end;

quand je regarde le contenu de buf dans le débuggeur, buf ne contient que des #0.

j'ai essayé de forcer le positionnement au début du fichier avec seek.
même pb.

Merci.

[Reisubar]

Essaie plutôt ceci :

Code :

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

NbOctetsLu := MyFileStream.Read(buf[0], recordsize);

Au passage vérifie que recordsize n'est pas égal à zéro (encore une chance d'AV...)

[RamDevTeam]

ca marche,

merci.