WDForge.org - Forums

Re: Question d'exécution et de localisation de fichier

Sujet: Re: Question d'exécution et de localisation de fichier
par vcaudron sur 4/7/2003 20:00:35

Bonsoir à tous,

Vous avez devant vous un homme heureuxxxxx. En effet, j'ai compris comment nous pouvions gérer les fichiers avec ce produit. OUF, enfin ... je viens de lire et surtout de mettre à jour les fichiers de mon client.
Je ne vais pas reprendre tout l'historique, il suffit de consulter au dessus, toutefois je voulais apporter la solution afin de faire avancer cette communauté windevienne !

Petit rappel tout de même je n'arrivais à mettre à jour les fichiers issus du serveur de mon client. Sur certains postes clients, en interne de mon client, la même punition était visible !
Après bien des discusions avec PCSoft, il m'a été dit que le problème venait que les fichiers étaient "réplicables" et qu'il fallait utiliser HChangeRep.

A partir de là, j'ai fait le HChangeRep sur l'ensemble des fichiers avec le répertoire de mon poste. Et là, patatraque, les mises à jour étaient toujours impossible. Donc retour dans la documentation, et je vois un HChangeRepJNL. Je m'empresse de rajouter l'instruction en renseignant le premier paramètre (qui s'occupe des fichiers JNL). Et là re-patatraque ! Encore un retour dans la documentation et je vois un deuxième paramètre qui concerne lui les fichiers Journaux. Donc je modifie mon instruction et là, le miracle, la magie (je ne sais pas), les modifications peuvent être opérées dans tous les fichiers.

Mais je n'étais toujours pas content de ma solution. En effet, comment savoir quel est l'emplacement des fichiers que le client choisit lors de l'installation ! Là encore, un petit génie m'est apparut ... Dans l'installateur, il est possible de créer un .INI et d'y inclure (l'ensemble des fichiers que l'utilisateur choisit au moment de l'installation).
Donc, retour dans mon code ... où la première fois, je récupére le .INI et mets l'information dans un fichier que je lis avant toute chose puis je fais les HChangeRep et JNL ...
Ce qui donne :

SI PAS HOuvre(Adm_Fichier,Password_Adm) ALORS
	HCréation(Adm_Fichier,Password_Adm)
	HOuvre(Adm_Fichier,Password_Adm)
	Adm_Fichier.Cle_Adm_Fichier="#####"
	Adm_Fichier.Nom_Repertoire_Fich=SansEspace(INILit("Fichier",...
	 "Emplacement", "0", fRepExe()+"\########.ini"))
	Adm_Fichier.Nom_Repertoire_JNL=SansEspace(INILit("Fichier",...
	 "Emplacement", "0", fRepExe()+"\########.ini"))
	Adm_Fichier.Nom_Repertoire_Journaux=SansEspace(INILit("Fichier",...
	 "Emplacement", "0", fRepExe()+"\########.ini"))
	Rep_Fich_Poly=SansEspace(Adm_Fichier.Nom_Repertoire_Fich)
	HAjoute(Adm_Fichier)
	fDelete(fRepExe()+"\########.ini")
SINON
	HLitRecherche(Adm_Fichier,Cle_Adm_Fichier,"#####")
	Rep_Fich_Poly=SansEspace(Adm_Fichier.Nom_Repertoire_Fich)
FIN
HChangeRep("*",Rep_Fich_Poly)
HChangeRepJnl("*",Rep_Fich_Poly,Rep_Fich_Poly)
HFerme(Adm_Fichier)

Et voilà le tour est joué !

@+ et bon développement,
Vianney