Aktive User im BDE-Netzwerk

[CalganX]

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);