<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiSetLockRetry

Set the specified session's lock retry time. This example uses the following input:

 fDbiSetLockRetry(Session, 100);

 

The procedure is:

procedure fDbiSetLockRetry(LockSession: TSession; Wait: Integer);

var

 OriginalSession: TSession;

begin

 // Save the current session

 OriginalSession := Sessions.CurrentSession;

 // Set the current session to the specified session

 Sessions.CurrentSession := LockSession;

 // Set the lock retry time

 Check(DbiSetLockRetry(Wait));

 // Set the current session back to the original session

 Sessions.CurrentSession := OriginalSession;

end;