Discussion :

[XeGregory]

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

[XeGregory]

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;

J'ai sauvegardé le TMemoryStream pour voir si le fichier xml été bien constitué.

Code :

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

MemoryStream.SaveToFile('DataSet.xml);

Aucun problème, je peut chargé ce fichier dans le ClientDataSet sans problème.
Donc le problème ne vient pas de la décompression du fichier (???.wbak).

[XeGregory]

Je suis tombé sur ce sujet sur le Forums https://www.developpez.net/forums/d2...-memorystream/

Effectivement créer un fichier temporaire puis chargé le fichier dans un ClientDataSet puis cloné les ClientDataSet cela résout le problème.
Mes bon cela explique pas pourquoi le ClientDataSet ne veut pas prendre en charge les données des Stream. TStream, 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
Var 
ClientDataSet: TClientDataSet; 
 
begin 
ClientDataSet := TClientDataSet.Create(Nil); 
 
try 
  ClientDataSet.LoadFromFile('DataSet.xml');
  ClientDataSet.open;
  DataSet.EmptyDataSet
  DataSet.CloneCursor(ClientDataSet, False, False);
finally 
 
  ClientDataSet.Free; 
end;

[XeGregory]

C'est marrent parce que le procédure "ClientDataSet.LoadFromFile" passe bien par un TStream puis appel la procédure "LoadFromStream" cela ne posse pas de problème.

La seule différence en LoadFromFile & LoadFromStream :

LoadFromFile : Le TCustomClientDataSet Crée le TStream.
LoadFromStream : Nous créons le TStream.

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
24
25
procedure TCustomClientDataSet.LoadFromFile(const FileName: string = '');
var
  Stream: TStream;
begin
  Close;
  if FileName = '' then
    Stream := TFileStream.Create(Self.FileName, fmOpenRead or fmShareDenyWrite)
  else
{$IFDEF MSWINDOWS}
    Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
{$ENDIF}
{$IFDEF POSIX}
    Stream := TFileStream.Create(ExpandFileName(FileName), fmOpenRead or fmShareDenyWrite);
{$ENDIF}
  try
    FOpeningFile := True;
    try
      LoadFromStream(Stream);
    finally
      FOpeningFile := False;
    end;
  finally
    Stream.Free;
  end;
end;

[XeGregory]

Je pence avoir résolut le problème en passent par un autre TClientDataSet (TMPDataSet).

Exemple :

DataSet : TClientDataSet
TMPDataSet : 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
24
25
26
27
with scOpenDialog do
    begin
      Title := 'Restaurer une sauvegarde';
      DefaultExt := '.wbak';
      Filter := '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;
        TMPDataSet := TClientDataSet.Create(Nil);
        TMPDataSet.LoadFromStream(MemoryStream);
 
        DataSet.EmptyDataSet;
        DataSet.CloneCursor(TMPDataSet, False, False); // Clone
 
        FreeAndNil(TMPDataSet);
        FreeAndNil(FileStream);
        FreeAndNil(MemoryStream);
      end;
    end;