Discussion :

[frantzgac]

Bjr

je rencontre une difficulté dans l'utilisation de la méthode LoadFromStream. Voici le code d'ouverture d'un fichier par TFileStream.

Code :

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

1
2
3
4
5
6
7
8
Procedure CreateLog(FileName:shortstring);
begin
LogFileName:=FileName; 
if fileexists(FileName,) then
 LogFile:=TFileStream.Create(FileName,fmOpenReadWrite+fmShareDenyWrite) else
  LogFile:=TFileStream.Create(FileName,fmCreate);
LogFile.Seek(LogFile.Size,soFromBeginning);
end;

Ce code est sans histoire.

Dans une autre partie du code en revanche je tente ceci

Code :

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

ListBox1.Items.LoadFromStream(LogFile);

et là, rien ne se passe, le TListBox reste vide.

Pour que cela fonctionne, je dois d'abord fermer le TFileStream puis le réouvrir ce qui est dommage en terme de performance.

Merci de votre retour d'expérience !

[Cl@udius]

Salut

Code :

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

LogFile.Seek(LogFile.Size,soFromBeginning);

Tu te places à la fin du flux là, non ?

Je verrais plutôt:

Code :

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

LogFile.Seek(0,soFromBeginning);

pour se placer au début.

@+

[frantzgac]

Je me place en effet à la fin du flux pour que toute nouvelle écriture soit bien placée à la fin du fichier.

Effectivement, le fait de positionner le curseur du flux au début résout le problème. Il suffit de le repositionner à la fin après le LoadFromStream.

Merci