| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подключение к базе Paradox

syte_ser78 ©   (2005-08-26 17:24:00) 

Как определить колво сетевых подключений к базе Paradox и логины подключившихся?

---

Турист   (2005-08-26 23:30:00) [1]

Пример из bde.hlp для Delphi


procedure fDbiOpenUserList(UserList: TStrings);

var
 TmpCursor: hDbiCur;
 rslt: dbiResult;
 UsrDesc: USERDesc;
begin
 Check(DbiOpenUserList(TmpCursor));
 repeat
   rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
   if (rslt <> DBIERR_EOF) then begin
     UserList.Add('User name: ' + UsrDesc.szUserName);
     UserList.Add('Net Session: ' + IntToStr(UsrDesc.iNetSession));
     UserList.Add('Product Class: ' + IntToStr (UsrDesc.iProductClass));

   end;
 until (rslt <> DBIERR_NONE);
 Check(DbiCloseCursor(TmpCursor));
end;


---

Jeer   (2005-08-26 18:10:00) [2]

DbiOpenLockList
DbiOpenUserList

---

Наверх