Tengo una aplicación cliente-servidor que funciona con paradox. Tanto
desde el cliente como desde el servidor se pueden modificar las tablas; si
uno está editando un registro, a los demás les avisa de registro bloqueado;
si uno modifica un registro se refresca en los otros ... es decir
perfecto
.
Ahora bien, cuando desde el servidor ejecuto el siguiente código para saber
los usuarios activos del BDE, sólo me indica los usuarios que hay activos
en el servidor, si hay algún cliente trabajando no me lo muestra.
Código:
procedure GetUsers(UserList: TStrings);
var
TmpCursor: hDbiCur;
rslt: dbiResult;
UsrDesc: USERDesc;
begin
UserList.Clear;
Check(DbiOpenUserList(TmpCursor));
try
repeat
Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
if Rslt <> DBIERR_EOF then
UserList.Add(UsrDesc.szUserName);
until Rslt <> DBIERR_NONE;
finally
Check(DbiCloseCursor(TmpCursor));
end;
end;
El código está sacado de la página del
dr. Marteens. En el archivo PDOXUSRS.NET del directorio net veo como aparece el nombre del cliente cuando se conecta. Alguien sabe porqué falla el código.Gracias anticipadas.