Gestion des accès concurrents sous DELPHI/PARADOX.

Bonjour,
J'ai developpé une application de gestion de stocks sous DELPHI/PARADOX que je dois mettre en réseau. Un agent doit saisir les mouvements de stock et son supérieur doit en même temps valider ses saisies. En d'autres termes les 2 utilisateurs doivent être connectés au même moment et pouvoir accéder presqu'aux mêmes tables en lecture/écriture. A l'essai de mon appli, lorsqu'un utilisateur est déjà connecté, une tentative d'une seconde connexion par un autre utilisateur est acceptée, mais lorsqu'il tente d'acceder au même module que le 1er utilisateur une boîte de dialogue affiche un message du genre :

< "Le projet GesStock.exe a provoqué une classe d'exception EDBEngineError avec le message 'Enrégistrement verrouillé par un autre utilisateur.
Table : S:\NomTable.DB
Utilisateur : NomPC'. Processus stoppé. Utilisez Pas-à-pas ou exécuter pour continuer" OK - Aide. >.

Comment puis-je gérer ces accès conncurrents sous paradox et permettre à mes utilisateurs de travailler en même temps s'ils le souhaitent ?

Merci d'avance de votre aide.

J'ai trouvé cette solution dans la FAQ DELPHI, mais elle ne marche pas à la pratique. Je n'ai pas si j'ai oublié quelque chose ou quoi :

Citation:

---

Il est possible de travailler à plusieurs sur les même tables Paradox. Bien qu'il soit vivement recommandé d'utiliser un SGDB Client/Serveur ( Interbase, Oracle, etc... ) dans le cas d'une gestion de base de données multipostes.

Les tables doivent être placées dans un répertoire partagé sur un ordinateur. Les postes clients auront alors un lecteur réseau connecté sur ce répertoire partagé. Il faut ensuite configurer le BDE pour le partage des tables.

Dans l'administrateur BDE : ( toutes les applications utilisant le BDE doivent être arrêtées.
Dans l'onglet configuration
Aller dans Configuration->Pilote->Natif->Paradox
Modifier la valeur de NetDir pour et sélectionner le lecteur réseau.
Aller ensuite dans Configuration->Système->Init
Mettre LocalShare à True.
Enregistrer les modifications.

---

Encore une fois, merci de votre aide.

Bonjour,

Il est possible de mettre en réseau une application Delphi / Paradox.

Personnellement, j'en ai plusieurs qui fonctionnent parfaitement.

Pour cela, il faut que toutes les applications aient un accès unique à PDOXUSRS.NET. Il faut donc créer un répertoire spécifique sur le serveur pour inclure PDOXUSRS.NET. L'application de chaque utilisateur doit ensuite pointer vers ce répertoire.

Si tu ne réussis pas avec ces quelques vagues explications. Je ferai une recherche pour t'adresser le schéma complet de mise en oeuvre.

En effet, cela fait quelques temps que je n'ai pas réalisé une application Delphi Paradox. Il faut donc faire quelques rafraichissements de mémoire.

Pour le verrouillage, il peut toujours se produire si le 2ème utilisateur veut écrire sur un enregistrement déjà utilisé par le 1er utilisateur. Là, il s'agit d'un problème de programmation avec une table à accès unique ou pas, le temps de blocage d'un enregistrement, etc. C'est à ce niveau qu'il faut éventuellement faire des modifications

Cordialement

Bonsoir,

Je suis intéresser par le sujet et je ne suis pas arrivé à mettre mon applic en réseau. En fait l'application accede sumultanément à des tables se trouvant dans des sous-dossiers différents stockés dans un même dossier alors je ne sais pas si il faut creer des lecteurs réseau pour chaque sous-dossier ou seulement pour le dossier principale qui contient ces sous-dossiers et avec en plus partager le lecteur oû se trouve le PDOXUSRS.NET?

j'ai :

c:\DossierPrincipale\base
c:\DossierPrincipale\demo\data
c:\PDOXUSRS.NET

Alors base et data contiennent tout deux des tables

Je vous remercie

Bonjour,

Je regarde aujourd'hui ou demain et t'adresse un mémo comment j'ai procédé.

Déjà, de mémoire, il est nécessaire que les dossiers et sous-dossiers soient sur le disque serveur. Il en est de même pour PDOXUSRS.Net

Si disk serveur = F, il faut :

F:\Dossierprincipal\base
F:\Dossierprincipal\demo\data
F:\Dossierprincipal\Pdx\PDOXUSRS.net

Le point le plus important est que toutes les applications qui tournent sur les différents postes soient reliées au dossier F:\Dossierprincipal\Pdx\PDOXUSRS.net. C'est ce fichier qui gèrer les utilisateurs dans les accès, les conflits, les verroullages, etc.

Ne pas oublier d'installer le DBE sur le serveur.

Au lancement de ton application sur un poste, le BDE devra pointer sur le fichier
F:\Dossierprincipal\Pdx\PDOXUSRS.net. Cela peut se faire dans ton programme au moment du lancement ou avec l'administrateur BDE où tu inclus dans configuation Paradox - NET DIR - le chemin du fichier PDOXUSRS.net. Dans notre exemple, F:\Dossierprincipal\Pdx.

En principe, tout devrait être ok.

Met en place les éléments ci-dessus, tu verras les difficultés qui restent à résoudre.

L'explication pourrait être plus clair, mais il faut que je reprenne le dossier d'analyse et de déploiement.

En tout cas, cette approche décousue prouve que des applications qui tournent depuis 10 ans sur 30 postes ne posent aucun souci car j'ai oublié la méthode. Attention, le danger pour Paradox se sont les volumes. Dans mon cas il s'agit de volumes faibles.

Depuis, les nouvelles applications sont développées avec Firebird ou Interbase.

Cordialement

Bonjour, et merci

J'avais creer un dossier PDX en mettant dedans le PDOXUSRS.NET
ca me donne fichier.LCK introuvable dans le dossier TEMP qui est creer par l'application et affecter à la propriete PrivateDir du composant session.

Mais comme j'ai constaté que des fichiers.LCK sont creer dans le dossier BASE
alors j'ai mis le PDOXUSRS.NET dans BASE et ca ma donnée le message

Code:

---

1 2 3 4 5 6 7

EXCEPTION EDBEngine Error in module nomDeFichier.exe at xxxxx NETWORK INITIALISATION FAILED PERMISSION DENIED FILE : Y:\PDOXUSRS.NET DIRECTORY : Y:\

---

Merci !

Pour résoudre ce problème, il faut créer (ou connecter) un lecteur réseau qui va pointer sur le disque de ton serveur en lui donnant une lettre. Ex : R. Ensuite il faut faire la même chose sur les autres postes clients et les lecteurs réseaux ainsi crées doivent tous porter la lettre R. Car quand on accède un disque distant, le système inclut dans le nom du disque d'autres infos en plus de la lettre.

N'oublies pas d'inclure dans le programme, au démarrage : exemple

Code:

---

1 2 3 4

Session.NetFileDir := R:\ + chemin; Session.PrivateDir := 'C:\Temp';

---

BON DEV.

je ferais le test demain je n'ai pas une seconde machine ici
Merci beaucoup !!

Citation:

---

Session.NetFileDir := R:\ + chemin;

---

Pardon ... puisque je dois rajouter le chemin dans le NetFileDir cela voudrait dire que R: ne pointera que vers la racine de l'unité et non le chemin complet vers les tables ?