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...