Discussion :

[3alit]

bonsoir
dans mon projet je crée 1 bouton de sauvegarde qui fait une copie de mes fichier de la base de donnée *.fic,*.ndx,*.mmo dans 1 archive zip tous marche bien surtout création de fichier archive mais il reste toujours vide pas de fichier de bd
voici code de sauvegardage qui j'utilise ds mon projet:
clic sur btn_sauvegarse

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
39
40
41
42
43
44
45
46
47
48
49
50
51
	// Création de l'archive
		ResFichier = fRep(CheminArchive + NomArchive, frFichier)
		SI ResFichier = "" ALORS	
			zipCrée(NomArchive, CheminArchive)			
		FIN
		// Ouverture de l'archive
		zipOuvre(NomArchive, CheminArchive + NomArchive)		
		ResFichier = fRep(fRepDonnées() + "*.*", frFichier)
		TANTQUE ResFichier <> ""
			Jauge1 = Evénement("JaugeCompression", FenEnExécution(), JaugeCompactage) 
			BTN_OK..Etat = Grisé
			BTN_ANNUL..Etat = Grisé
			SelectArchive..Etat = Grisé
			SI Minuscule(Droite(ResFichier,3)) = "ndx" OU Minuscule(Droite(ResFichier,3)) = "mmo" OU ...
			Minuscule(Droite(ResFichier,3)) = "fic" OU Minuscule(Droite(ResFichier,3)) = "bmp" OU ...
			Minuscule(Droite(ResFichier,3)) = "jpg" OU Minuscule(Droite(ResFichier,3)) = "png" OU ...
			Minuscule(Droite(ResFichier,3)) = "gif" OU Minuscule(Droite(ResFichier,3)) = "rep" OU ...
			Minuscule(Droite(ResFichier,3)) = "ico" ALORS
				zipAjouteFichier(NomArchive, ResFichier, zipDisque)	
			FIN	
			ResFichier = fRep("", frFichier)			
		FIN
		BTN_OK..Etat = Actif
		BTN_ANNUL..Etat = Actif
		SelectArchive..Etat = Actif
		FinEvénement(Jauge1)
		Jauge1..Visible = Faux
		zipFerme(NomArchive)
		libExplicationFichier..Visible = Faux
		libFichierEnCours..Visible = Faux
		SI OuiNon("Archivage effectué sur le serveur !" + RC + RC + "Souhaitez-vous placer vos fichiers ailleurs par précaution ?" + RC + RC) ALORS
			CheminArchive2 = fSélecteur(CheminArchive,NomArchive,"Sauvegarde d'archive", ...
			"Fichier d'archive de la gestion commerciale"+TAB+"*.zip", "zip", fselCrée + fselExiste)
			SI CheminArchive2 <> "" ALORS
				SI fDisqueInfo(fDisqueEnCours(), fdEspaceLibre) > fTaille(CheminArchive2 + NomArchive) ALORS
					SI fCopieFichier(CheminArchive + NomArchive, CheminArchive2) ALORS
						Info("Copie de " + NomArchive + " effectuée.")
					SINON
						Erreur("Problème lors de la copie de " + CheminArchive + NomArchive)
					FIN
				SINON
					Erreur("Copie impossible : manque de place sur " + fDisqueEnCours())
				FIN
			SINON
				SI fRep(CheminArchive + NomArchive, frFichier) = "" ALORS	
					Erreur("Le Fichier " + NomArchive + " n'est pas dans le répertoire", CheminArchive)					
				FIN
			FIN		
		FIN
		Ferme()
FIN

quelqu'un peut corriger mon code pour qu'il ajoute les fichier de ma base dans l'archive
merci

[DelphiManiac]

Difficile de voir ou une erreur peut se produire pour 2 raisons :

1) Le code n'est pas indenté et c'est du coup difficilement lisible.
2) On ne peut pas copier tel quel le code dans une procédure, celui ci étant fortement lié à l'environnement (formulaire, champ de saisie, jauge, etc ...)

Concernant le second point, c'est un point qu'il faut, dans la mesure du possible, mettre toujours en application, cela permet d'une part, de créer des test unitaires sur le code et d'autre part de réemployer ce code dans d'autre projet.

[mail.spam]

Bonjour,
Si tu fait un debuggage pas à pas rentre tu dans ta condition pour faire ton zipajoutefichier?
Et puis utilise aussi fExtraitChemin avec le paramètre fExtension qui est plus adapté.
Si tu fais ton debuggage pas à pas tu verra ton erreur.
elle se situe sur l'utilisation de frep, il faut que tu utilise fListeFichier().
Car tu regarde la présence de *.* (et tu ne liste pas les fichiers) donc tu ne rentre pas dans ta boucle tantque.
Fait un trace sur ResFichier tu verra ton problème.
Bonne lecture.
PS pense à utiliser le debuggeur qui te permettra de résoudre pas mal de problème.