Discussion :

[Georges P]

bonjour,

j'ai pour des besoins de compréhension trouvé cet exemple :

https://community.embarcadero.com/in...-in-fdmemtable

je me pose donc une question : quel est l'intérêt d'utiliser un composant TMemTable alors qu'on a déjà un TClientDataSet avec donc les datas en mémoire ?

lors d'une dernière discussion voici ce que je souhaitais faire : j'ai créé un programme win 32 avec une petite base de données dans un ClientDataSet (mes fichiers sont sauvés sur disque en *.xml) c'est très souple !


je dois maintenant (hélas) transformer ce programme en Android pour l'utiliser sur tablette. Je me pose donc plusieurs questions dont celle-là :

• Comment faire pour charger ces xml sur ma tablette et comment les retransférer sur mon PC ?

[SergioMaster]

Bonjour,
les réponses sur le match FDMemtable vs ClientDataset dans cette vidéo hélas en anglais mais Cary Jensen est largement compréhensible

[ALWEBER]

Bonjour, tu peux passer sauvegarder tes données en SQLLite plutôt que XML. Tu nommes ta base de données avec l'extention .txt (exemple mabase.txt) pour laisser androïd traiter ton fichier.
Personnellement j'utilise FDMemtable qui répond à mes besoins. Si tu veux des exemples n'hésite pas

[Georges P]

Merci pour vos réponses.

Effectivement si tu as un exemple je suis preneur.

[ALWEBER]

Voilà quelques morceaux de code. Attention les formats XML dans ClientDataSet1 et FDMemTable1 ne sont pas les mêmes.

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
28
29
30
31
32
33
34
35
36
37
38
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet1.MergeChangeLog ;
  ClientDataSet1.ApplyUpdates(-1) ;
  ClientDataSet1.SaveToFile('client.xml',dfXMLUTF8 );
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientDataSet1.LoadFromFile ('client.xml');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  FDMemTable1.CopyDataSet(ClientDataSet1,[coStructure, coRestart, coAppend]);
  FDMemTable1.Open;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  FDMemTable1.SaveToFile('client1.xml',TFDStorageFormat.sfXML );
  FDMemTable1.SaveToFile('client1.json',TFDStorageFormat.sfJSON );
end;
 
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  st1: string;
begin
  st1 := Column.FieldName;
  with ClientDataSet1 do
  begin
    Close;
    IndexDefs.Clear;
    IndexFieldNames := st1;
    Open;
  end;
end;

Exemple avec fichiers xml. Attention tu peux avoir un problème avec "ClientDataSet1.LoadFromFile ('client.xml')" suivant la version de Delphi
exdb_CDS_MT_XML.zip

[Georges P]

Bonjour à toi,

merci bien pour cet exemple, c'est sympa.

A bientôt...