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

Place and release persistent lock on the TTable T.

The function AcqAndRelPersistentTableLock, below, acquires a persistent table lock on the table used by the TTable specified in the T parameter. This example uses the following input:

 AcqAndRelPersistTableLock(Table1);

 

The procedure is:

procedure AcqAndRelPersistTableLock(T: TTable);

var

 Drv: PChar;

begin

with T do begin

  if (TableType = ttParadox) then

     Drv := StrNew(szParadox)

  else if (TableType = ttdBASE) then

     Drv := StrNew(szdBASE)

  else Drv := nil;

  try

     Check(DbiAcqPersistTableLock(DBHandle, PChar(TableName), Drv));

     Check(DbiRelPersistTableLock(DBHandle, PChar(TableName), Drv));

  finally

    if Assigned(Drv) then StrDispose(Drv);

  end;

end;

end;