Discussion :

[pepi22]

Bonjour à tous,

Quelqu'un connait le comportement de SaveToFile du TMemoryStream?

J'entend par là:

Si le fichier existe déjà, que se passe t'il? Écrasé? Ouvert et modifié? Supprimé et recrée?

Merci

[ShaiLeTroll]

suffit de lire le code et l'aide

fmCreate Si le fichier existe, il est ouvert en écriture ; sinon, un nouveau fichier est créé. Contrairement aux autres constantes déclarées dans l'unité SysUtils, cette constante est déclarée dans classes.pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TCustomMemoryStream.SaveToFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    SaveToStream(Stream);
  finally
    Stream.Free;
  end;
end;

Astuce, faire un Seek(0, 0) avant le SaveToFile pour enregistrer tout le Stream !

[pepi22]

Merci pour cette réponse très efficace ...

En fait, j'avais jeté un coup d'oeil rapide sur le code, mais je n'avais pas remarqué fmCreate