PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Exemple de Sauvegarde
Exemple de Sauvegarde
Débuté par Jean Batiste Dumontier, 10 fév. 2005 05:43 - 3 réponses
Posté le 10 février 2005 - 05:43
Bonjour

Toute application destinée à être exploitée devrait possèder un menu de sauvegarde et restauration.
Je cherche donc des exemples pour les intégrer à mon application ou à les adapter.

J'ai recherché dans le site de PCSoft et j'ai vu qu'il y avait un exemple WD Sauvegarde dans la LST 56.

N'ayant pas le CD de cette LST je me damande si cela vaut le coup de l'acheter car PC Soft demande 120 € pour racheter un ancien numéro d'une LST

D'autant plus que mon application est en mode C/S

L'idéal serait de disposer d'un entre de contrôle des sauvegardes.

Avez-vous des suggestions?

Merci d'avance
Posté le 10 février 2005 - 10:18
Voici un exemple de code qui sauvegarde sur disquette avec compactage:
// ErreursCopie = tableau mémorisant le nom du fichier si l'opération s'est mal déroulée
// TT = réel qui contient la taille totale de tous les fichiers à sauvegarder (calculé précédemment avec fTaille)
SI fCompacte(RepOrig+"Articles.Fic","A:\Articles.Fic")<>0 ALORS ErreursCopie[1]="Articles"
TF=fTaille(RepOrig+"Articles.Fic")
Jauge(TF,TT,"Reste "+PartieEntière((TT-TF)*100/TT)+" % à compacter et sauvegarder",iRougeClair)
Pour restaurer:
SI fDécompacte("A:\Articles.Fic",RepDest+"Articles.Fic")<>0 ALORS ErreursCopie[1]="Articles"
TF=fTailleDécompacté("A:\Articles.Fic")
Jauge(TF,TT,"Reste "+PartieEntière((TT-TF)*100/TT)+" % à effectuer",iRougeClair)

Pour sauvegarder sans compactage vers un autre support:
SI PAS fCopieFichier(RepOrig+"Articles.Fic",RepDest+"Articles.Fic")ALORS ErreursCopie[1]="Articles"
SI PAS fCopieFichier(RepOrig+"Articles.Ndx",RepDest+"Articles.Ndx")ALORS ErreursCopie[1]="Articles"
La restauration s'effectue avec la même instruction mais en permutant les répertoires.
Posté le 10 février 2005 - 11:42
Je viens de regarder dans la LST 56, les sources ne sont pas livrés il n'y a que l'exécutable. Cette application réalise la sauvegarde d'un répertoire avec les fonction ZipXXX. Je pense pas que ça vaille le coup de l'acheter, il n'y a qu'une page.

Je suis d'accord pour le menu en HF classic, pas en C/S. La base étant stockée sur un serveur, il devrait y avoir une procédure de sauvegarde sur cette machine à l'aide d'un logiciel spécialisé (MS Backup, Veritas, Tina ...)
Posté le 10 février 2005 - 20:21
Dans le centre de contrôle HF on peut faire une sauvegarde de la base de donnée distante mais pour l'instant le fichier zip se retrouve sur le poste de travail client.

Je n'ai pas vu de sauvegarde automatique mais je me trompe peut-être