Error al abrir tabla en Winxp, pero en Win98 funciona, por que?

[[Lepe]]

Empezado por URBANO

Código Delphi [-]
Session.PrivateDir := ruta-del-ejecutable-del-cliente + 'PRIV';

Esta es la correcta.

Y se crean 2 pares de archivos LCK. Un par en el servidor y otro par en la carpeta PrivateDir, y no me preguntes por qué, porque no lo sé , es más, el par de archivos LCK del PrivateDir puede que no lo veas, sólo aparece mientras se edita el registro.

Empezado por URBANO

Es decir que desde dos clientes puedo editar el mismo registro a la vez.

Este es el síntoma principal de que el BDE no está configurado bien.

Como dices, debe aparecer una excepción diciendo "no se puede editar el registro porque otro usuario lo está utilizando" (mensaje en inglés). te aconsejo hacerlo todo por código, incluso crear los alias, ¿por qué? por la configuración del driver, la ruta del servidor, etc.

Empezado por URBANO

- Ya he probado lo de desactivar la cache y los bloqueos, pero sigue dandome el mismo error al abrir las tablas. Yo creo que debe haber una incompatibilidad de winxp a win98, ya que he probado ejutando el programa en modo servidor en el equipo que tiene el winxp y habre bien las tablas.
(

Te aconsejo que te centres en una sola configuración o te volverás loco (por ejemplo: Win98 Servidor, WinXP Cliente).

MensajeAdd añade textos a un Memo para ver todos los parámetros de configuración.

Código Delphi [-]

// Tendrás que crear un FormXX que tenga un Memo dentro.
procedure TFPrincipal.MensajeAdd(VerFecha: Boolean; str: String);
begin
  if VerFecha then
    FormXX.Memo1.Add(datetimetostr(now) + ' >> ' + str)
  else
    FormXX.Memo1.Add(str); 

end;

DtbPpal es el TDatabase

Todo esto va dentro de tu procedimiento "Configuracionred".
Verás que te he puesto la definición de un registro TGlobal y TParadoxConfig,
lo he hecho para que solo tengas que modificar lo mínimo posible:
- Buscar "dtbppal" y sustituir por el nombre de tu componente TDatabase.
- sustituir las lineas "ini.ReadString...." por tus rutas de la base de datos, del .net etc.

Código Delphi [-]

type
  TParadoxConfig = record
    NetFileDir:    String[255];     
    PrivateDir:    String[255];
    DatabaseDir:   String[255];
    Alias:         String[20];
  end;

  Tglobal = record
    ModoServidor:Boolean;
    DB:         TParadoxConfig;
  end;
var
  GL: TGlobal;
begin

// modifica esto con tus valores
  gl.DB.NetFileDir    := ini.ReadString('Paradox', 'NetFileDir', '\\');
  gl.DB.PrivateDir    := ini.ReadString('Paradox', 'PrivateDir', GetTmpDir);
  gl.DB.DatabaseDir   := ini.ReadString('Paradox', 'DatabaseDir', '\\');
  gl.DB.Alias         := ini.ReadString('Paradox', 'Alias', 'prog1');
  GL.ModoServidor := ini.ReadInteger('Settings', 'RGClient', 1) = 0;


  if GL.ModoServidor then // SERVIDOR
    LocalShareTRUE
  else   // es un ordenador cliente
    LocalShareFALSE;

  if dtbppal.Connected then  // si se queda abierto en diseño, nos dará problemas
    dtbppal.Close;

  if DtbPPal.Session.Active then // si se queda abierto en diseño, nos dará problemas
    DtbPPal.Session.Close;

  // DONE -c MOTOR BD : borrados los *.LCK

//  borraarchivos([lck, net]);

  //_________________________ SESSION Y ALIAS____________________________________
  with DtbPPal.Session do
  begin
    MensajeAdd(true, '2   Alias');
    if IsAlias(gl.DB.Alias) then  // un string que es el nombre del alias
      MensajeAdd(true, '2.1 Usando alias existente: ' + gl.DB.Alias)
    else
    begin
      MensajeAdd(true, '2.1 Creando Alias: ' + gl.DB.Alias + ' para la carpeta: ' +
        gl.DB.DatabaseDir);
      AddStandardAlias(gl.DB.Alias, gl.DB.DatabaseDir, 'Paradox');
    end;


      MensajeAdd(true, '1   Configurar la sesion');
      NetFileDir := GL.DB.NetFileDir; // un string del tipo '\\nombreservidor\prog\net'
      MensajeAdd(true, '1.1 Usando Carpeta NET: ' + NetFileDir);
      MensajeAdd(true, '1.2 Usando carpeta temporal: ' + gl.DB.PrivateDir);
      PrivateDir := gl.DB.PrivateDir; // un string del tipo 'c:\temp'
      MensajeAdd(true, '1.3 Modo Sesion: cmAll');
      ConfigMode := cmAll;
      MensajeAdd(true, '1.4 Modo servidor: ' + BoolToStrSP(GL.ModoServidor));  // Gl.ModoServidor es un Boolean, me indica si está o no en el servidor.
      OnPassword := MiSessionPassword; // para la contraseña de la BBDD 

  end;//with session
      //_________________________ SESSION _______________________________________
//_________________________ DATABASE __________________________________________
  with dtbppal do
      MensajeAdd(true, '3   Configurar Base de datos:');
      DatabaseName := gl.DB.DatabaseDir; // un string del tipo '\\nombreservidor\prog\datos'
      MensajeAdd(true, '3.1 Asignando Controlador');
      //    DriverName:= 'STANDARD';
      MensajeAdd(true, '3.2 Carpeta de Base de Datos: ' + GL.DB.DatabaseDir);
      MensajeAdd(true, '3.3 Asignando parámetros de Base de Datos (dtbppal) ');
      Params.Clear;
      params.Add('PATH=' + DatabaseName);
      MensajeAdd(True, 'PATH = ' + DatabaseName);
      params.Add('DEFAULT DRIVER=PARADOX');
      params.Add('ENABLE BCD=FALSE');

  MensajeAdd(true, '4   Alias: ' + gl.DB.Alias);
  MensajeAdd(true, '4.1 Alias asignado');
  //_________________________TDATABASE_________________________________________FIN

  DtbPPal.Session.Open;
  MensajeAdd(true, '5   Sesion Activa');
  DtbPPal.Connected := True;

{
El siguiente código asigna el Alias a todas las tablas y Querys que uso
De esta forma si en tiempo de ejecución, se crea un Alias nuevo, 
se configura todo el sistema.
}
    for i := 0 to pred(ComponentCount) do
      if (components[i] is TTable) then
        TTable(components[i]).DatabaseName := GL.DB.Alias
      else if (components[i] is TQuery) then
        TQuery(components[i]).DatabaseName := GL.DB.Alias;


    MensajeAdd(true, '6 **Conectado a Base de Datos**');

// AHORA FALTA ABRIR LAS TABLAS EN EL ORDEN CORRECTO según la
// relación Maestro - Detalle.

El resultado para mí es:

 
-------------------------------
      INICIO DE SESION
-------------------------------
14/06/2006 10:31:01 >> 2   Alias
14/06/2006 10:31:01 >> 2.1 Creando Alias: prog1 para la carpeta: \\prog\tablas
14/06/2006 10:31:01 >> 1   Configurar la sesion
14/06/2006 10:31:01 >> 1.1 Usando Carpeta NET: \\PC1\prog\
14/06/2006 10:31:01 >> 1.2 Usando carpeta temporal: C:\windows\TEMP
14/06/2006 10:31:01 >> 1.3 Modo Sesion: cmAll
14/06/2006 10:31:01 >> 1.4 Modo servidor: Si
14/06/2006 10:31:01 >> 3   Configurar Base de datos:
14/06/2006 10:31:01 >> 3.1 Asignando Controlador
14/06/2006 10:31:01 >> 3.2 Carpeta de Base de Datos: \\PC1\prog\tablas
14/06/2006 10:31:01 >> 3.3 Asignando parámetros de Base de Datos (dtbppal) 
14/06/2006 10:31:01 >> PATH = \\PC1\prog\tablas
14/06/2006 10:31:01 >> 4   Alias: prog1
14/06/2006 10:31:01 >> 4.1 Alias asignado
14/06/2006 10:31:01 >> 5   Sesion Activa
14/06/2006 10:31:01 >> 6 **Conectado a Base de Datos**

En tu archivo Alias.Dat, escribe un nombre nuevo, es decir, un Alias que no exista, así este código creará un Alias nuevo y lo configura TODO.

Como verás, el archivo .Net lo tengo configurado en el mismo sitio que el ejecutable en el servidor, (no tengo una carpeta especial para él) aunque eso da igual.

Saludos

[URBANO]

Hola, perdona por no haber contestado antes, pero estoy bastante liado, por culpa de este error.

He utilizado el codigo que me has puesto, sustituyendo lo que me comentabas y creando un alias que no existia. Pero, , el problema sigue siendo el mismo. Si ejecuto el programa en el servidor (tiene win98) no hay problemas, pero si ejecuto el programa desde el cliente (tiene winxp) al abrir cualquier tabla me da el siguiente error:

Detail Table Open Operation failed
Table: detfacturas.DB

La segunda linea varia en funcion de la tabla que habro. El orden de habrir las tablas es el correcto, no hay problema de relaciones.

Estoy desesperado, aburrrido y cansado, no hay manera, pero hay que seguir insistiendo. Haber si se te ocurre otra cosa. Gracias.

[URBANO]

Comento otra cosa que tambien ocurre, haber si ayuda en algo.

Despues de ejecutar el programa en el ordenador cliente y haber dado el error que comento antes, cierro el programa y ejcuto la herramienta DatabaseExplorer, he intento entrar en la pestaña "Dictoniary" y me da el siguiente error:

File name is too long for a Paradox Version 5.0 table.

Creo que comente que las tablas estan realizadas en Paradox 7.0, con el Database Desktop que viene con el Delphi 5.

Haber si ayuda.

[[Lepe]]

No solo ayuda, es que diste en el clavo. Deja todos los archivos de tablas con 8 caracteres máximo, sin espacios, es decir, al viejo estilo de ms-dos.

Ahora que lo mencionas, me ocurrió tambien en una de las tablas

Con eso fijo que se quita el error.

La explicación es sencilla, Win98 siempre usa el formato de nombres cortos para gestionar los archivos (siempre lo traduce a formato 8.3 caracteres cuando los maneja). WinXP sin embargo, acepta el uso de archivos con nombres largos e intenta abrirlos con ese formato.

Este error no tiene nada que ver con el de "El registro no se puede editar porque otro usuario de la red ya lo está haciendo". Ahora puedes concentrarte en este error e intentar editar un mismo registro en 2 ordenadores, debe darte un error al hacerlo.
Saludos