Eterno problemas de indices

Pablo Carlos · #1 02-04-2005

Hola gente... tengo delphi 5 y paradox... 15 pc una con NT (servidor) y otras W95/98/Me el problema es que se rompen los indices...
Tengo un Tsession, todas las tablas y querys apuntan al tsession, este componente tiene el netfiledir como \\servidor\c\sistema\datos y el private (dicen lugar visible) en C:\. El archivo *.NET siempre se aloja en el C: en cada máquina (el cual elimino al ejecutar el prg) y los *.LCK se alojan en Datos. La ruta del servidor lo leo al arrancar cada prg de un .Ini, el Tsession se activa despues de leer el .ini... Funcionó bien unos días (1 semana) y ahora se rompen los indices todos los días

. Tengo un prg que los arregla pero para hacerlo necesito apagar todas las pc (o salir del prg) y bueno no es solución... He leido todos los artículos que encontré en la internet más los del club... aparentemente esta todo correcto pero no es asi.
¿Tendrán alguna sugerencia?
Gracias bye

marcoszorrilla · #2 02-04-2005

Cita:

C:\. El archivo *.NET siempre se aloja en el C: en cada máquina

El archivo Net debe de estar solamente en el servidor, en las demás maquinas debe de indicarse en donde se van a guardar los ficheros de tipo lck, que si todo va bien se eliminaran automáticamente cuando el usuario cierre la sesión.

Un Saludo.

Pablo Carlos · #3 02-04-2005

Gracias por responder tan rápido...

Cita:

Empezado por marcoszorrilla

El archivo Net debe de estar solamente en el servidor

Este archivo se crea al iniciar el prg. ¿cómo hago para crear el net solo en el servidor?

Cita:

Empezado por marcoszorrilla

en las demás maquinas debe de indicarse en donde se van a guardar los ficheros de tipo lck.

Un Saludo.

Los lck se crean solamente en el servidor ¿está bien?
Gracias

[Lepe] · #4 02-04-2005

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

Pablo Carlos · #5 03-04-2005

Gracias Lepe...
Mira, tengo este código...

Código Delphi [-]procedure TdmTablas.DataModuleCreate(Sender: TObject);
var
 i : TIniFile;
 Ruta : String;
begin
 i := TIniFile.Create('C:\Escuela\Servidor.ini');
 Ruta := i.ReadString('Datos','Servidor', '');
 i.Free;
 Try
 Session1.Active := False;
 Session1.NetFileDir := Ruta;
 Session1.PrivateDir := ('C:\Sistema);
 Session1.Active := True;
 dbEscuela.DataBaseName := Ruta;
 dbEscuela.Connected := True;
 tblDatosPersonales.DataBaseName := Ruta;
 tblPuerto.DataBaseName := Ruta

Como ven le indico mediante un ini la ruta para el NetFileDir que segun el ini es \\server\sistema\datos y en el PrivateDir mmmm (cric cric cric pensando...)
Aparentemente tengo mal el PrivateDir ya que de acuerdo a lo que Marcos dice -se debe crear en cada máquina.
Gracias

[Lepe] · #6 03-04-2005

Parece ser que el NetFileDir lo tienes bien asignado, sin duda se trató de un fallo al postear el primer mensaje.

Advertencia: Cuando abres el Database Desktop, se crea el fichero .NET en C:\, puede que lo hayas visto por ese motivo, pero no afecta al programa.

El PrivateDir, se puede poner apuntando a C:\WINDOWS\TEMP de cada máquina, la carpeta debe existir.

Por cierto, LOCAL SHARE del bde lo has modificado?, es algo que no se ha mencionado.

Un saludo

Pablo Carlos · #7 03-04-2005

Cita:

Empezado por marcoszorrilla

El archivo Net debe de estar solamente en el servidor, en las demás maquinas debe de indicarse en donde se van a guardar los ficheros de tipo lck, que si todo va bien se eliminaran automáticamente cuando el usuario cierre la sesión.

Un Saludo.

Cita:

Empezado por Lepe

Me permito una correccion:

LCK -> Sólo en servidor, carpeta de tablas

No entiendo

[Lepe] · #8 04-04-2005

Yo siempre he visto los LCK en la carpeta de las tablas. Ahora mismo no puedo hacer la prueba.

Si alguien puede aportar más datos, será bienvenido, él y los datos

Un saludo

marcoszorrilla · #9 04-04-2005

Si todo está bien configurado se crean en el PrivateDir de cada equipo cuando éste se conecta y se eliminan si no existe ningún fallo al desconectarse.

Un Saludo.

Pablo Carlos · #10 04-04-2005

Buenas... les comento para que quede registro en el club...
Todas las tablas y querys conectados al Tsession
Todas las tablas tienen en el AfterPost FlushBuffers (no se si será bueno esto)
Cuando se ejecuta el programa en cada máquina, (evento on create del datamodule) se abren las tablas y en el evento ondestroy se cierran las tablas.
Cada máquina tiene instalado la aplicación y el bde.
Tsession -> el PrivateDir le indico una carpeta visible de la pc local, en mi caso C:\Sistema. El NetFileDir se lo indico con un archivo ini que en este caso es \\Servidor\C\Sistema\Tablas (este archivo es leido al comenzar)
En la form de ingreso verifico, con un if, que si están las tablas en c:\Sistema\Tablas modifico el registro a la clave local share poniendo ésta a TRUE de lo contrario (si no se encuentran las tablas) la clave local share pasa a FALSE con esto logro que automáticamente si es servidor es local y si la pc está en red local share es false... además de eliminar los LCK si es que aún están (por si no se borraron al salir de la aplicación, esto si es la maquina que está en red) dentro de 3 hs vere el funcionamiento... trataré de ubicar los NET y los LCK para saber exactamente donde se localizan en esta red y confirmaré la destrucción de los índices

o la no destrucción

... Según la Cara oculta de delphi (por que tambien he estado leyendo

) cuando usas paradox en red no es aconsejable que el servidor trabaje en el prg, aconseja que sea sólo eso, servidor, que en mi caso no es posible

. El siguiente paso, luego de ver ese tema, es seguir estudiando y/o preguntando al respecto o confirmar que todo va sobre rieles...
Gracias a todos