Unser ehemaliger User
Paul Jr. hat auf folgende Möglichkeit hingewiesen alle aktuellen User im
BDE-Netzwerk aufzulisten:
Delphi-Quellcode:
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;
// zum Beispiel:
fDbiOpenUserList(ListBox1.Items);