Discussion :

[looping]

bonsoir,

Soit une base paradox en reseau pilotée par le BDE sous un programme delphi.

j'ai 2 utilisateurs en lecture seulement et 1 utilisateur en ecriture-lecture

Est il possible pour les utilisateurs qui sont en lecture seule de savoir si la personne qui est en ecriture-lecture est connecté ?

merci

[aityahia]

ma réponse est oui.

1 solution :
tu créer une table utilisateur si celle-ci existe déjà je présume et lui rajoute un champs booléen Connecte que tu met a True lorsqu'il ce connecte et a False quand il ce déconnecte mais sa reste toujours pas très fiable car sa peut arriver qu'il quitte suite a une exception et la table ne sera pas mise a jours.


2 solution :
tu créer une application serveur on utilisant les composants Indy qui va gérer les connections.

[SergioMaster]

il y a peut être un moyen en verifiant le fichier PDOXUSRS.NET ou et PARADOX.LCK , mais je n'en sait pas plus , simplement une piste

Verrouillage des bases de données Paradox dans un environnement réseau
pluri-utilisateurs
Il paraît logique de chercher à verrouiller les fichiers de bases de données
dans un environnement réseau. Si deux ou plusieurs utilisateurs ont la
possibilités de modifier simultanément la même table de base de données,
ils peuvent ne pas être au courant des mises à jour effectuées par un autre
utilisateur. Seuls les changements effectués par le dernier utilisateur qui
enregistre l'étiquette seront sauvegardés.

Pour résoudre ces problèmes Paradox a introduit un mécanisme spécial de
verrouillage. c'est un fichier de contrôle du réseau, PDOXUSRS.NET.
Ce fichier contient le nom des utilisateurs de BDE (Borland Database Engine)
ainsi que les tables en cours d'utilisation.

[ALWEBER]

Voilà un code te permettant de trouver la liste des utilisateurs.
Note1 var SlUtilisateurs : TStringList ;
Note2 uses BDE, Dbtables, Db;

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
procedure ListeLesUtilisateurs (var I1 : integer);
var
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  i1 := 0 ;
  if SlUtilisateurs.Count = 0 then
  begin
    Check(DbiOpenUserList(TmpCursor)) ;
    repeat
      rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil) ;
      if (rslt <> DBIERR_EOF) then begin
        SlUtilisateurs.Add(UsrDesc.szUserName+
        '- NS : ' + IntToStr(UsrDesc.iNetSession)+
        '- PC : ' + IntToStr (UsrDesc.iProductClass));
        if UsrDesc.iNetSession > i1 then
          I1 := UsrDesc.iNetSession ;
      end;
    until (rslt <> DBIERR_NONE);
    check(DbiCloseCursor(TmpCursor));
  end ;
end;