Eterno problemas de indices

[[Lepe]]

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.

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