Discussion :

[MiJack]

Bonjour,

Je n'ai pas beaucoup l'habitude de travailler avec les TStream et je coince sur une erreur sans pouvoir trouver de solution sur le net :

J'ai une structure XML pour mes fichiers de sauvegarde et j'aimerais la sauvegarder via un TCompressionStream afin de minimiser la taille du fichier de sauvegarde et de le rendre plus difficilement lisible pour l'utilisateur lambda.

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
20
21
 
procedure ...
var
  saveStream : TStringStream ;
  destStream : TFileStream ;
  zip : TCompressionStream ;
begin
  saveStream := TStringStream.Create('') ;
  XMLDoc.SaveToStream(saveStream) ;
 
  destStream := TFileStream.Create('saveFile.sav', fmCreate) ;
  zip := TCompressionStream.Create(clMax, destStream) ;
 
  try
    zip.CopyFrom(saveStream, saveStream.size) ; // <-- EReadError ici !
  finally
    FreeAndNil(zip) ;
    FreeAndNil(saveStream) ;
    FreeAndNil(destStream) ;
  end ;
end ;

J'ai pensé que l'erreur venait du fait que j'utilise 2 TStream différents (stringStream et fileStream), mais j'ai essayé avec 2 TStringStream et j'ai la même erreur.

Merci pour votre aide...

[ShaiLeTroll]

je dirais que ceci avant le CopyFrom

Code :

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

saveStream.Seek(0, soFromBeginning);

car SaveToStream écrit et positionne le curser à la fin, tu veux relire le stream depuis le début donc tu dois retourner au début ...

[MiJack]

Merci c'est bon. Effectivement je n'avais plus pensé que la position du curseur était aussi déterminante dans l'utilisation des stream