Question sur la sauvegarde de données

**Sub0** · 01/10/2006, 13h27

Finalement, malgré que le code de neilbgr est plus propre, j'ai décidé de continuer avec mon code car :
• Le formulaire est super modulable -> J'ai ajouté une CheckBox, une TrackBar et une ComboBox sans rien modifier au code. Même la position de l'image dans la ScrollBox est enregistrée; C'était principalement ce que je recherchais avec WriteComponent.
• Le n° des clients est conservé et n'est pas mis à jour lors d'une suppression d'une fiche entre 2 clients.
• Je compte ajouter la compression / décompression des fichiers et les fonctions d'enregistrement / chargement au format CSV.

Vous trouverez les mises à jour à cette adresse : datasave4.zip

**Jipété** · 01/10/2006, 14h05

Yop !

Un petit souci avec le code de Neilbqr :
Je lance le bigniou, je remplis les champs de Client1, je clique sur Ajouter, et la fiche de Client2 contient déjà le téléphone de Client1 !
Je valide et enregistre le fichier, je ferme, je relance, j'ouvre le fichier, y a pas téléphone, ni pour l'un ni pour l'autre client.

Bon, c'est sûrement très simple mais aujourd'hui ch'suis pas en forme.
Mes 2 cts,
--
jp

**neilbgr** · 01/10/2006, 14h18

Correction faite.

Code :

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

1
2
3
4
5
procedure TFrmPrincipale.actAjouterClientExecute(Sender: TObject);
begin
  actValiderModifications.Execute; // <- Il manquait ceci
 ...
end;

**Jipété** · 01/10/2006, 14h38

Correction faite.

Pas vu de modif à l'exécution...

Par contre, si je fais ça (je commence à me réveiller...), ça fonctionne nickel :

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
procedure TFrmPrincipale.MettreAJourFicheClient;
begin
  pnlFicheClient.Visible := (tabCtrlClients.TabIndex <> -1);
 
  if tabCtrlClients.TabIndex = -1 then
    Exit;
 
  with ClientEnCours do
    begin
      edtNom.Text := Nom;
      edtPrenom.Text := Prenom;
      edtAdresse.Text := Adresse;
      edtTelephone.Text := Telephone;  // -------<<< Ajouter cette ligne
      mmTexte.Lines := Texte;
      imgImage.Picture := Image;
    end;
end;
 
procedure TFrmPrincipale.actValiderModificationsExecute(Sender: TObject);
begin
  if tabCtrlClients.TabIndex = -1 then
    Exit;
 
  with ClientEnCours do
    begin
      Nom := edtNom.Text;
      Prenom := edtPrenom.Text;
      Adresse := edtAdresse.Text;
      Telephone := edtTelephone.Text;  // -------<<< Ajouter cette ligne
      Texte := mmTexte.Lines;
      Image := imgImage.Picture;
    end;
end;

Mes 2 cts,
--
jp

**Jipété** · 01/10/2006, 15h09

@Sub0 :
C'est normal que tu aies mis "WantTabs" du memo M_Texte à True ? C'est pénible pour accéder au bouton Image...
Aide D7 :

Si WantTabs a la valeur true, les utilisateurs peuvent tabuler pour arriver dans le contrôle de saisie, mais ils ne peuvent en sortir avec la touche Tab.

Mes 2 cts,
--
jp

**Sub0** · 01/10/2006, 15h44

Yes! Je savais bien que tu serais bloqué dans le memo.

C'est pénible nan ?

**Jipété** · 01/10/2006, 15h53

C'est pénible nan ?

Yeeeeeeeees !
Et c'est vrai que quand on a beaucoup de saisie à faire, et donc beaucoup les mains sur le clavier, c'est pénible d'être obligé de le lacher pour aller chercher la souris.
Enfin, c'est mon point de vue.
Mes 2 cts,
--
jp

**LadyWasky** · 02/10/2006, 20h32

Envoyé par Sub0

Je suis en train de programmer les fonctions de conversion csv et je voulais savoir quelle structure utiliser. Pour le moment, j'enregistre d'abord la taille des données puis les données pour chaque élément. En ce qui concerne les images, je sauvegarde le nom du fichier, l'en-tête puis les données au format données brutes (bitmap) dont chaque octet est converti en son code Ascii. Cela double la taille des données mais cela reste compatible texte... Finalement, je me retrouve avec des fichiers plus gros qu'avec le format dfm...

Avez-vous des suggestions, mon choix d'enregistrement des données est-il bon ?

Pour la représentation d'un Bitmap, j'utiliserais un sytème de compression de données non destructif (façon zip), et je restituerais les octets du binaire obtenu en une suite de de représentations héxa. Le problème de convertir directement un byte en ASCCI, c'est avec les caractères spéciaux #13, #10 , #0

**Sub0** · 02/10/2006, 20h58

Envoyé par waskol

Le problème de convertir directement un byte en ASCCI, c'est avec les caractères spéciaux #13, #10 , #0

Je convertis l'octet $13 en chaîne '13' et l'octet $0 en chaîne '00' ce qui fait qu'au final je n'ai que du texte... Le csv c'est du texte, non ?
Pour la compression, je possède une unité de compression LHA. Mais de toutes façons, je serais obligé de convertir ces données en texte ASCII (2 caractères pour un octet) pour conserver le format csv.

**Sub0** · 03/10/2006, 14h26

http://sub0.developpez.com/delphi/datasave4.zip

• J'ai ajouté le code pour pouvoir utiliser le format CSV. Bizarrement, le chargement des fichiers CSV est plus long que les fichiers DFM. J'ai pourtant essayé d'optimiser au maximum. Si vous avez des suggestions à ce sujet, je suis preneur.
• Dans Unit2, il ya la directive "CSV_ASCII" qui permet de choisir le format des images (octet ou chaîne hexa). On augmente donc par 2 la taille des images avec les chaînes hexa, mais le fichier CSV est compatible texte.
• J'ai ajouté le redimensionnement de la form. L'éditeur s'ajuste en fonction de l'espace disponible.
• Reste maintenant à ajouter la compression / décompression des fichiers. Comme j'utilise une unité un peu spéciale et peu utiliser par les Delphistes, je ne l'ajouterai pas dans cette démo, à moins que cela vous intéresse et dans ce cas, dites-le moi.

J'espère que cette démo servira aux membres du forum et en particulier à petitprince. En tous les cas, c'est ce code que j'utiliserai pour mes développements intégrant des fiches de saisie car le programme est très facilement modulable.

**LadyWasky** · 03/10/2006, 15h00

Envoyé par Sub0

[url]
• Reste maintenant à ajouter la compression / décompression des fichiers. Comme j'utilise une unité un peu spéciale et peu utiliser par les Delphistes, je ne l'ajouterai pas dans cette démo, à moins que cela vous intéresse et dans ce cas, dites-le moi

Personellement, j'utilise TBackupFile (ec-software), qui est freeware, hyper simple à utiliser et assez complet. Et toi ?

**Sub0** · 03/10/2006, 17h34

LZRW1/KH de Kurt HAENEN

**petitprince** · 04/10/2006, 09h31

On est pas hors sujet là ? ........ lol

Bon me revoilà après une période de 3 jours d'absence...
Perso, j'ai utilisé la méthode de waskol ( y va etre content !!), mais hélas, elle ne permet pas de sauvegarder des images....
Elle me sert donc dans certain cas....
Pour le reste, je vais regarder les deux autre méthode de sub0 et de neilbgr.
Voilà à plus

**LadyWasky** · 05/10/2006, 09h51

Envoyé par Sub0

J'ai téléchargé TBackupFile et il ya plein de fichiers OBJ dans l'archive... C'est justement ce que je cherche à éviter -> Ne pas disposer de toutes les sources du composant. En fait, j'ai l'impression que TBackupFile est basé sur LZRW1/KH. Il s'agit de 2 unités, fichiers PAS. Je n'ai pas encore trouvé de composant qui fournissait toutes ses sources à part celui-ci... Je compte essayer de récupérer le code de TBackupFile et de l'adapter pour qu'il utilise ces unités afin d'obtenir les mêmes fonctionalités tout en ayant les sources.

Oui, c'est vrai que tous ces .obj, c'est un petit peu dommage, c'est sur.

Dans le fichier d'aide, il est écrit :

*.obj New compression/decompression routines by Jean-loup Gailly and Mark Adler. This libraries are the original units from the Delphi 3 C/S CD without any modifications. Version is 1.1.3 (defined by the constant zlib_version in backup.pas - newer versions should be compatible)

Le truc, c'est qu'il est tout de même possible d'obtenir les sources C++ ici : http://www.zlib.net/

Pour une adaptation éventuelle, il existe un portage qui à été fait pour Turbo Pascal 7.0/Delphi 3.02 : http://www.nomssi.de/paszlib/paszlib.html

Et encore mieux, la dernière version (1.2.3) existe pour Delphi 5, 6, 7, 8, 2005, et 2006, elle date du 2 juin (donc très récente), elle se base sur les même fichiers obj : http://www.base2ti.com/zlib.htm
- supporte les fichiers gzip simples
- tu y trouveras tous les .obj en question dans leur mise à jour la plus récente. Il n'y pas d'incompatibilité avec TBackupFile.
- il y a une classe qu'y m'a l'air pas mal là-dedans : ZCompressStreamWeb

Avec tout ça, ce devrait être franchement faisable de pondre un composant 100% Delphi en portant le code C en Delphi pour s'affranchir des .obj

**petitprince** · 10/10/2006, 17h42

Je reviens un peu tard, tout ca pour vous dire que j'ai réussi mes sauvegardes dans mon fichier propriétaire ( enfin presque... y a plus que les listes d'images que j'arrive pas à sauver, mais bon...)
Pour ma part, je pense que la question est résolu, donc...chti Tag !

Encore merci à tous pour vos réponses !!!

**Sub0** · 10/10/2006, 17h51

Envoyé par petitprince

y a plus que les listes d'images que j'arrive pas à sauver, mais bon...

Tu as vu que j'avais codé des fonctions de conversion BitmapToString et StringToBitmap ? Cela pourrait te permettre d'enregistrer tes images avec un type String, mais bon...

à+

**petitprince** · 10/10/2006, 19h17

Oui j'ai essayé, la première marche bien mais la seconde, StringToBitmap, ne me remet pas l'image.... Bizarre je fais:

Code :

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

1
2
3
4
5
6
7
var
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
StringToBitmap(bmp,MaChaine);
Image1.Picture.Bitmap:=bmp;
bmp.Free

MaChaine contien biensur l'image (en cvs apparement ?)
Voili Voilou a+

**Sub0** · 10/10/2006, 20h48

Voici un code d'exemple.
Le paramètre ascii est un boolean selon si tu as enregistré l'image au format texte (hexa) ou au format binaire :

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
Var bmp: TBitmap;
    ascii: Boolean;
    machaine: String;
Begin
  bmp := TBitmap.Create;
  ...
 
  Try
    StringToBitmap(bmp, machaine, ascii);
    Image1.Picture.Bitmap.Assign(bmp);
    Image1.Width := bmp.Width;
    Image1.Height := bmp.Height;
  Except
  End;
  bmp.Free;
End;

ps: Récupère la dernière version (code dans unit2.pas) : datasave4.zip

**petitprince** · 12/10/2006, 21h03

Je vais essayer ca, merci sub0...

Question sur la sauvegarde de données

Delphi

Discussions similaires

Partager

Partager