Discussion :

[Lo²]

Bonjour à tous,

J'ai une application qui tourne sur un serveur HFSQL.
Certains utilisateurs peuvent récupérer la base en local sur leur poste pour continuer à travailler dessus sans être connecté.

Le problème que je rencontre lors de la récupération :
Si un fichier est utilisé par un autre utilisateur, HCopieFichier(..) renvoie une erreur.
Mais si je relance le HCopieFichier(..), l'erreur suivante apparaît et je ne sais quoi en faire , c'est-à-dire quel traitement doit être fait ?

Code :

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

Une erreur de blocage est survenue sur la fonction 'HCopieFichier' précédente et n'a pas été traitée.

Merci pour votre aide

[fouedusa]

Bonjour;
PC Soft conseille de bloquer le fichier en lecture/écriture avant de le copier.

je ne l'ai jamais utilisé, mais prochainement c'est sûr que je vais le faire.

essaye :

Code :

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

1
2
 
si pas HCopieFichier  alors ToastAffiche

Bon Dev.

[Lo²]

oui j'avais lu mais le problème vient que certains fichiers sont déjà en cours d'utilisation par d'autres utilisateurs avant la copie.

Le premier passage du HCopieFichier(..) me permet de récupérer l'erreur et d'informer à l'utilisateur qui synchronise que tel fichier est en cours.
Si le fichier est fermé, le deuxième passage me renvoie l'erreur que j'ai indiqué dans mon premier message.

Quel traitement est attendu dans ce cas ?

[fouedusa]

Re :

Pas tester :

Code :

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

1
2
3
4
5
6
7
8
9
 
SI HBloqueFichier(NomFichier, hBlocageLectureEcriture) = Faux ALORS
	Info("Fichier bloqué par un autre Utilisateur.")
SINON
	SI PAS HCopieFichier(.............) ALORS
		Erreur(HErreurInfo(hErrComplet))
	FIN
 
FIN

si c'est possible de tester comme ça, car bientôt j'en aurai besoin.

merci d'avance.

[Lo²]

Ah oui pas bête en effet
Je teste ça et te redis.

[midou23175]

Bonsoir,

Comme précisé par fouedusa, au lieu de passer directement à HCopieFichier, commencez par bloquer le fichier,
si cela réussisse, c'est bon faire la copie du fichier.

Concernant l'erreur de blocage non traitée :
vous avez 2 processus qui accèdent en même temps à la base de données, en local et en serveur HFSQL
utiliser la fonction HSurErreur, peut être ça va fonctionner.

dans le code de projet :
HSurErreur("*",hErrBlocage,"ErreurBlocage")

rajouter une procédure globale ErreurBlocage()

Code :

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

1
2
3
4
 
PROCEDURE ErreurBlocage()
Info("une erreur de blocage est survenue","et vient d'être annulée")
RENVOYER opAnnuler

[Lo²]

J'ai dû mal m'exprimer :
2 utilisateurs :
- les 2 sont connectés à l'instant t sur le serveur
- le user 1 est sur une fiche client
- le user 2 va synchroniser pour récupérer la base en local

Ce qui veut dire que je ne peux pas bloquer le fichier Client car utilisé par le user 1, donc à part tester que le fichier n'est pas déjà bloqué, je ne vois pas quoi faire.

[fouedusa]

Bonjour;
et si on améliore un peu l'algorithme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SI HBloqueFichier(NomFichier, hBlocageLectureEcriture) = Faux ALORS
	SI HErreurBlocage() = Vrai ALORS
		Info("Les données auxquelles vous voulez accéder sont actuellement bloquées par un AUTRE Utilisateur.",...
		"Vous pouvez réessayer d'y accéder un peu plus tard OU Annuler l'opération.")
	FIN
SINON
	SI PAS HCopieFichier(.............) ALORS
		Erreur(HErreurInfo(hErrComplet))
	FIN
	HDébloqueFichier()
FIN

toujours la même remarque : pas tester

Bon Dev

[Lo²]

oui bien sûr c'est ce que j'aurai fait.

merci ^^

[midou23175]

Bonjour,

Ce qui veut dire que je ne peux pas bloquer le fichier Client car utilisé par le user 1, donc à part tester que le fichier n'est pas déjà bloqué, je ne vois pas quoi faire.

par exemple, envoyer un message aux utilisateurs pour qu'ils libèrent le fichier client

[Lo²]

Le problème n'est pas ce que je peux faire si je rencontre le cas, je sais faire.

Le problème est qu'attends/entend Windev par le fait que le HCopieFichier(..) en erreur n'a pas été traité !
Car j'aurai bon envoyé des messages, des fleurs ou autre, ce message apparaîtra sauf en testant un HBloqueFichier(..) avant et donc de ne pas avoir d'erreur sur un HCopieFichier(..).

[midou23175]

Le problème est qu'attends/entend Windev par le fait que le HCopieFichier(..) en erreur n'a pas été traité !

Effectivement le message d'erreur qui apparait, après une 2ème tentative est bizarre.
Il se pourrait que la gestion automatique des erreurs hfsql de windev a été désactivée.
Pour mieux contrôler ce problème, je vous ai proposé de personnaliser la gestion de l'erreur de blocage, suivant mon premier message.
Ainsi, dès que l'erreur de blocage survient, la procédure ErreurBlocage() se lance pour renvoyer l'action Annuler.

[Lo²]

En tout cas, en passant par la gestion de l'erreur de blocage, couplé avec le hBlocageFichier(..) permet une sortie propre du traitement.
Merci à tous

[Invité]

Bonjour la famille.
Perso, j'aurais procédé autrement : lorsque l'utilisateur se connecte au réseau, l'application va générer un fichier au format XML / CSV / autre sur le serveur, ce fichier contiendra toutes les données à importer dans la base HFSQL, sur le serveur, un service va analyser les fichiers à importer, l'importation se ferait dans une transaction une fois le fichier traité, il est alors supprimé.

[Lo²]

Hello,

Ca s'est pour la partie synchro local vers serveur et je n'ai pas de problématique à ce niveau, c'est dans l'autre sens.
Par contre ta remarque me fait penser à une fonction que j'ai vu hier HVersFichier(..) et que je vais essayer pour mon cas.

Ce que j'en vois de son utilisation, c'est que si un fichier est bloqué, au lieu d'afficher un message pour dire qu'un autre user est dessus, c'est de faire un "select * " du fichier puis de faire un HVersFichier(..) et là à mon avis, si ça marche c'est tout bon et les synchro serveur vers local pourront se faire sans contrainte , mais je vous redis ça.

[Lo²]

It works !!

Ci-dessous mon code :

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
 
// Je gère déjà le blocage avec une fenêtre maison, donc je désactive
HSurErreur("*", hErrBlocage, "")
POUR TOUTE CHAÎNE sFichier DE sListeFichiers SEPAREE PAR RC
	SI PAS HBloqueFichier(sfichier) ALORS
		bOK est un booléen = Vrai
 
		sSQL est chaîne = "SELECT * FROM " + sFichier
		maSourceDonnees est une Source de Données
		SI HErreurBlocage() _ET_ HExécuteRequêteSQL(maSourceDonnees, hRequêteDéfaut, sSQL) ALORS
                        // Il faut supprimer les fichiers au préalable
			SI fSupprime(sCheminDonnéesLocal + sFichier + ".*") ALORS
				HVersFichier(maSourceDonnees, sCheminDonnéesLocal + sFichier + ".fic")
			SINON
				bOK = Faux
			FIN
		SINON
			bOK = Faux
		FIN
 
		SI PAS bOK ALORS
			SI HErreurBlocage() ALORS
				Avertissement("Le fichier en cours de traitement (" + sfichier + ") est en cours d'utilisation.", "Vérifiez sur les autres postes que soit la fenêtre (ou le logiciel) soit fermée avant de reprendre la synchronisation.")
			FIN
                        // Je réactive ma fenêtre maison
			HSurErreur("*", hErrBlocage, FEN_Blocage)
			RENVOYER Faux
		FIN
	SINON
		HCopieFichier("", sCheminDonnéesLocal + sFichier + ".fic", maConnexionHFSQL, sFichier + ".fic")
		HDébloqueFichier(sfichier)
	FIN
	iCpt++
FIN
HSurErreur("*", hErrBlocage, FEN_Blocage)

Merci à tous pour votre contribution.