Bonjour a tous et a toute, meilleurs voeux 2024

Je chercher à ouvrir un TClientDataSet avec un TMemoryStream.
Impossible de chargé le ClientDataSet avec le Stream, les données sont bien dans le TMemoryStream.

Coté ClientDataset aucune erreur lors du chargement LoadFromStream.

Exemple :

DataSet : TClientDataSet
FileStream : TECLFileStream // Easy Compression Library
MemoryStream : TMemoryStream

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
22
23
 with scOpenDialog do
    begin
      Title := 'Restaurer une sauvegarde';
      DefaultExt := '.wbak';
      Filter := 'WinDoc.Backup|*.wbak';
      InitialDir := TPath.GetDocumentsPath;
      FileName := EmptyStr;
      MultiSelection := False;
 
      if Execute then
      begin
        MemoryStream := TMemoryStream.Create;
        FileStream := TECLFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
        FileStream.SaveToStream(MemoryStream);
        MemoryStream.Position := 0;
 
        DataSet.EmptyDataSet;        
        DataSet.LoadFromStream(MemoryStream);
 
        FreeAndNil(FileStream);
        FreeAndNil(MemoryStream);
      end;
    end;
Avez vous déjà eu ce problème ?

Merci pour vos retours