Ver Mensaje Individual
  #4  
Antiguo 02-04-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Cita:
Empezado por Pablo Carlos
Este archivo se crea al iniciar el prg. ¿cómo hago para crear el net solo en el servidor?
Antes de abrir la sesion, indica la carpeta \\servidor\carpeta en el parametro Session.NetFileDir.

Cita:
Empezado por Pablo Carlos
Los lck se crean solamente en el servidor ¿está bien?
Si.

Los indices pueden corromperse, sugiero que uses el programa caerques (en la seccion "ejemplos" del Club) para mantener los indices y empaquetar la base de datos.

Necesitarás saber que no hay más usuarios activos antes de rehacer los índices, esta función sirve de ayuda

Código Delphi [-]
uses bde, dbiProcs;
// devuelve el nº de usuarios usando el BDE.
// tambien incluye al que usa esta funcion, por tanto devolverá 
// como mínimo 1
function GetUsers():Integer;
var
  UserList: TStringlist;
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  Result:=0;
  Check(DbiOpenUserList(TmpCursor));
  UserList := TStringList.Create;
  try
    UserList.Clear;
    repeat
      Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
      if Rslt <> DBIERR_EOF then
        UserList.Add(UsrDesc.szUserName);
    until Rslt <> DBIERR_NONE;
    Result := UserList.Count;
  finally
    Check(DbiCloseCursor(TmpCursor));
    FreeAndNil(UserList);
  end;
end;
Espero que no haga falta más "uses".

Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita