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