Discussion :

[freud]

Bonjour,

Dans mon application j'aimerais savoir le nombre de verrous posés sur une table donnée j'ai ce code depuis le BDE.HLP:

Code :

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

1
2
3
4
5
6
7
8
 
function fDbiIsTableLocked(Tbl: TTable; Lock: DBILockType): Word;
var
  NumLocks: Word;
begin
  Check(DbiIsTableLocked(Tbl.Handle, Lock, NumLocks));
  Result:= NumLocks;
end;

Mais il n'est valable que pour une seule session comme l'explique l'aide du BDE

Returns the number of locks of a specified type acquired on the table associated with the given session.

Et le problème est que mon application gère plusieurs session.

En posant un verrou sur une table dans une autre session juste pour un petit test avec :

Code :

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

1
2
 
table.lock(ltWriteLock);

Et lorsque je test pour obtenir le nombre de vérrous dans une session différente :

Code :

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

1
2
 
LockTotal:= fDbiIsTableLocked(Table1, dbiWRITELOCK);

j'ai le message suivant :

Invalid handle to the function

Je n'ai pas trouver comment tester cela dans un environnement mutli-session.

Si quelqu'un saurait comment faire ?

[Cl@udius]

Salut

As-tu essayé avec fDbiOpenLockList pour voir si tu récupères les verrous quelque soit la session?

Tu as un exemple dans BDE32.hlp.

@+ Claudius

[freud]

non je ne l'ai pas fait, je ne connaisssait pas cette fonction...
je l'essayerais ce soir je n'ai pas le code ici
Merci Cl@udius

[freud]

super ! ca marche bien

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
 
var
  TmpCursor: hdbicur;
  Lock: LOCKDesc;
  rslt: dbiResult;
begin
  Check(DbiOpenLockList(Tbl.handle, True, True, TmpCursor));
  Check(DbiSetToBegin(TmpCursor));
 
  LockList.Clear;
  repeat
    rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @Lock, nil);
    if (rslt <> DBIERR_EOF) then begin
      LockList.Add('Lock Type: ' + IntToStr(Lock.iType));
      LockList.Add('User Name: ' + StrPas(Lock.szUserName));
      LockList.Add('Net Session: ' + IntToStr (Lock.iNetSession));
 
      LockList.Add('Session: ' + IntToStr (Lock.iSession));
      LockList.Add('Record Number: ' + IntToStr (Lock.iRecNum));
    end;
  until (rslt <> DBIERR_NONE);
  Check(DbiCloseCursor(TmpCursor));
end;

et l'appel :

Code :

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

1
2
 
fDbiOpenLockList(Table1, LockList);

A la 1ere ouverture de la table ca donne :

Code :

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

1
2
3
4
5
6
 
Lock Type: 4
User Name: Administrateur
Net Session: 17
Session: 3
Record Number: 0

A le 2eme ouverture de la table ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Lock Type: 4
User Name: Administrateur
Net Session: 17
Session: 3
Record Number: 0
 
Lock Type: 6
User Name: Administrateur
Net Session: 18
Session: 0
Record Number: 0

La seule chose que je n'ai pas comprise est l'incrémentation du Net Session
même lorsque je ferme et réouvre la 2eme application ca s'incremente dans l'aide ont dit :

Specifies le net level session number

mais pas compris, mais bon ... l'important est que ca me renvoi le nombre de session ouverte sur la table.

Merci Cl@udius