Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 828

•  TDictionary Custom Sort  6 822

•  Fast Watermark Sources  6 603

•  3D Designer  9 568

•  Sik Screen Capture  6 945

•  Patch Maker  7 390

•  Айболит (remote control)  7 337

•  ListBox Drag & Drop  6 196

•  Доска для игры Реверси  98 181

•  Графические эффекты  7 511

•  Рисование по маске  6 795

•  Перетаскивание изображений  5 651

•  Canvas Drawing  6 028

•  Рисование Луны  5 819

•  Поворот изображения  5 270

•  Рисование стержней  3 862

•  Paint on Shape  3 019

•  Генератор кроссвордов  3 974

•  Головоломка Paletto  3 151

•  Теорема Монжа об окружностях  3 986

•  Пазл Numbrix  2 633

•  Заборы и коммивояжеры  3 444

•  Игра HIP  2 360

•  Игра Go (Го)  2 278

•  Симулятор лифта  2 676

•  Программа укладки плитки  2 236

•  Генератор лабиринта  2 791

•  Проверка числового ввода  2 398

•  HEX View  2 733

•  Физический маятник  2 424
 
скрыть

Использование 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;