EReadError : Stream read error
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:
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... :roll:
