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

Автор: Reinhard Kalinke

Вот пример поиска пользователей данной таблицы. Имейте в виду, что свойство 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;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 572 • TDictionary Custom Sort 6 590 • Fast Watermark Sources 6 359 • 3D Designer 9 310 • Sik Screen Capture 6 695 • Patch Maker 7 068 • Айболит (remote control) 7 076 • ListBox Drag & Drop 5 947 • Доска для игры Реверси 97 467 • Графические эффекты 7 281 • Рисование по маске 6 577 • Перетаскивание изображений 5 448 • Canvas Drawing 5 817 • Рисование Луны 5 525 • Поворот изображения 5 053 • Рисование стержней 3 610 • Paint on Shape 2 853 • Генератор кроссвордов 3 737 • Головоломка Paletto 3 012 • Теорема Монжа об окружностях 3 818 • Пазл Numbrix 2 513 • Заборы и коммивояжеры 3 209 • Игра HIP 2 176 • Игра Go (Го) 2 107 • Симулятор лифта 2 488 • Программа укладки плитки 2 141 • Генератор лабиринта 2 620 • Проверка числового ввода 2 298 • HEX View 2 629 • Физический маятник 2 244