Delphi 1

Использование DBIopenlocklist

Вот пример поиска пользователей данной таблицы. Имейте в виду, что свойство TStringList Duplicate установлено в dupIgnore, поскольку пользователь может иметь более одной блокировки таблицы. При работе с dBase возвращается только блокировка текущего сеанса, тогда как с Paradox функция покажет всех пользователей, получивших доступ к этому же NET-файлу.

procedure GetTableUserList(ATable: TTable; AStringList: TStringList);

var hUserCur: hDBICur;

pUserBuf: pByte;

begin

AStringList.Clear;

AStringList.Duplicates := dupIgnore;

Check(DBIOpenLockList(ATable.Handle,True,True,hUserCur));

GetMem(pUserBuf,SizeOf(LOCKDesc));

try

while (DBIGetNextRecord(hUserCur,dbiNOLOCK,pUserBuf,nil) = DBIERR_NONE) do

AStringList.Add(StrPas(pLOCKDesc(pUserBuf)^.szUserName))

finally

FreeMem(pUserBuf,SizeOf(LOCKDesc));

DBICloseCursor(hUserCur);

end;

- Reinhard Kalinke [000874]