Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Obtener la lista de usuarios de Paradox en red - Delphi
Lenguaje de programación Borland Delphi


Para obtener la lista de usuarios que están utilizando Paradox en red, utilizaremos la función DbiOpenUserList, que abre un cursor virtual con registros del tipo USERDesc. Es necesario incluir las unidades BDE y DBTables en el USES, y el BDE debe estar inicializado para que esta función pueda ejecutarse: pondremos un botón y un TMemo en un formulario y en el evento click del botón pondremos lo siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  Memo1.Clear;
  try
    Check(DbiOpenUserList(TmpCursor));
  except
    ShowMessage('Esta aplicación no tiene accesos a bases de datos.');
  end;
  try
    repeat
      Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
      if Rslt <> DBIERR_EOF then
        Memo1.Lines.Add(UsrDesc.szUserName);
    until Rslt <> DBIERR_NONE;
  finally
    Check(DbiCloseCursor(TmpCursor));
  end;
end;
NOTA: si la aplicación no tiene acceso a bases de datos, el procedimiento dará un error.




Publicado el: 2003-09-17

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A