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

Place a lock on a non-existent table:

This example places and releases persistent lock on the TTable T. This example uses the following input:

  AcqAndRelPersistTableLock(Table1);

 

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;