Paradox en Red con WinXP y Win98

[EstebanWeb]

Hola Gente,

Tengo un problema... tengo una aplicación que trabaja en red con una BD hecha en Paradox. La cosa es que en mi trabajo la probe en una red con todas maquinas con XP y funciona de diez , pero cuando fui a mi cliente resulta que tiene el "Servidor" con XP y los "Clientes" con W98 y me manda un cartel de que el directorio está siendo controlado por otro PDOXUSRS.NET .

Alguien tuvo alguna vez el mismo problema?, o alguien sabe si el tema es porque uno esta en XP y la otra en w98? probé invirtiendo los papeles (poniendo la de w98 como server pero no funciona tampoco) o alguien sabe por donde podria venir el tema?. Aclaro, por las dudas, que ya me se casi de memoria el articulo que trata sobre paradox en red que se encuentra en este sitio (el cual me ayudo mucho al momento de desarrollarlo).

Gracias,
Esteban

[marcoszorrilla]

Por lo que veo puede deberse a una mala configuración del alias, si te has leido el artículo, sabrás que todos los equipos que se conecten tienen que tener instalado el BDE y apuntanto a la misma carpeta del Servidor el fichero de bloqueos .Net

Por ejemplo.
\\Servidor\Datos\Net

No se aconseja que se encuentre en la misma carpeta que los datos.

Todos los equipos incluso el propio servidor si es un puesto más, deberan de acceder por el mismo camino.

Todos los equipos tendrán que tener instalado el BDE y configurado debidamente.

Yo tengo algun sistema sobre XP y 98 simultaneamente y no me ha dado ningún problema.

Un Saludo.

[EstebanWeb]

Marcos y publico en general,
Gracias por tu respuesta pero todo lo que enuncias lo tengo hecho y lo verifique. Tengo el BDE instalado en ambas maquinas y apuntan a la misma carpeta del servidor.

Te copio el codigo por si se me escapo algo...

Código Delphi [-]
   procedure TDM.DataModuleCreate(Sender: TObject);
   begin
   ok:=true;
   getdir(0,dir);
    try
     database1.AliasName:='taco';
     database1.Connected:=true;
     
     if ((anterior=1))
           then
           begin
           //restaurar la BD
 if( messagedlg('La última ejecución fue en modo local,'+#13+'desea restaurar la Base de Datos de la red?',MTWarning,mbOKCancel,0)=mrok)
                   then
            
                  begin
                  database1.Connected:=false;
                  Database1BeforeConnect(sender);
                 windows.WinExec(pchar(dir+'\Restauracion\Restauracion.exe'),1);
                  database1.Connected:=true;
                  end;
           end;
     database1.Session.NetFileDir:=ExpandUNCFileName(Database1.Directory+'\NET');
     database1.Session.PrivateDir:='C:\WINDOWS\temp';//GetWindowsTempDir;
     activarTablas;
     logfile(0);
    except
     if (messagedlg('La red no está funcionando,' +#13+'desea trabajar en forma local?', MTerror, mbOKCAncel,0)=mrok)
      then
       begin
        database1.Directory:='c:\';
        database1.Connected:=false;
        database1.AliasName:='tacoloc';
        database1.Connected:=true;
       
        database1.Session.NetFileDir:=ExpandFileName(Database1.Directory+'\NET');
        database1.Session.PrivateDir:='C:\WINDOWS\temp';//GetWindowsTempDir;
        activarTablas;
        logfile(1);
       end
       else
        ok:=false;
    end;
   
   end;

a que te referis con apuntar con...

Empezado por marcoszorrilla

apuntanto a la misma carpeta del Servidor el fichero de bloqueos .Net

Por ejemplo.
\\Servidor\Datos\Net

Vale aclarar que si se conecta una sola no hay problemas, la cuestion surge cuando se quiere conectar la segunda

Gracias

[EstebanWeb]

De paso pregunto si es normal que me cree dos PDOXUSRS.NET ??? uno en el C:\ y otro en el \\servidor\datos\net o si esto puede ser la punta del problema???

gracias de nuevo

[marcoszorrilla]

Pues por ahí puede venir el problema ya que este archivo debe de crearse únicante en el Servidor en la carpeta correspondiente.

Un Saludo.

[Sick boy]

A mi me ha pasado lo mismo.

Borra todos los .net y .lck en todos los equipos.
Si ya tenias todos los BDE bien configurados, deberia de arrancar sin problemas.

El problema es que tu puedes arrancar en red o local, y cada configuracion crea distintos .net, por eso tienes varios.

Solucion: Buscar y borrar los ficheros *.lck y *.net ANTES de modificar el NET DIR.

Un saludo

[Mariana]

Hola a todos, yo tengo el mismo problema, quería preguntarles si puede ser porque no configuré el localshare en true en el servidor, los alias si están bien definidos.
Gracias
Mariana

[EstebanWeb]

Gente,

primero gracias por sus comentarios, Logre un pequeño avance cuando, formateo mediante, instale win98 en una de las PC de mi trabajo. La cosa es que no se si es por un tema de configuración de la red o que, que me salta que esta bloqueado con el famoso ".lck" cuando intento acceder a una tabla, aun cuando nadie lo está haciendo.
Esta configurado el LOCALSHARE y ambos BDE correctamente pero es como que no le da permiso de acceso o bien que no acepta compartir los recursos y bloquea todas las tablas.

Hay que configurar algo en la red, además de compartir la carpeta?
Recuerdo que estoy trabajando con el "server" en XP y el "cliente" en win98

gracias de nuevo

[Alfredo]

Mi servidor esta en winXP y tengo 7 "clientes" en win98.

Yo logre que funcionara de esta forma:

1.- Instale el BDE (con minireg) en cada maquina con win98.

2.- En el datamodule Agregue un componente session y lo configure asi:

Session1.NetFileDir := '\\SISTEMAS\DB\DB'; // El directorio de bases de datos
session1.PrivateDir := '\\SISTEMAS\DB\NET; // Directorio .net
session.name:='nose';

En cada TQuery configure asi:

q1.DatabaseName:= 'miAlias';
q1.SessionName:='nose';

3.- configure en la maquina con XP el BDE asi:
Cree un alias llamado miAlias
coloque en path \\SISTEMAS\BD\BD

4.- Copie el archivo idapi32.cfg desde : C:\Archivos de programa\Archivos comunes\Borland Shared\BDE.

y lo copie en cada maquina con win98 en el mismo directorio de instalacion del BDE. (Me diran neófito pero con la instalacion con el tal "minireg BDEinstal.dll" , no pude despues crea el alias en cada maq Win98, por eso copia la configuracion desde el servidor)

de esta manera todas las maquinas con win98 funcionan sin problemas.

[Mariana]

Hola a todos, aún no logro solucionar el problema, haciendo un debug me doy cuenta que surge cuando la segunda máquina arranca y quiere conectarse a la BD, y activar las tablas, la primera solución que se me ocurrió es ver si ya están activas y no activarlas nuevamente, con esto la segunda máquina ingresa al sistema pero las tablas están vacías (cerradas). Ahora mi pregunta es si debo tener un Tsession por cada conexión?, o si como lo estaba haciendo con la session por default está bien y entonces es otro el problema. Esto me tiene muy complicada así que les agradezco toda la ayuda.
gracias
Mariana

[Alfredo]

Al hacer las configuraciones que comente antes uso un solo Tsession. ¿Por que no haces esa prueba?. Otra cosa, asegurate que no queden querys o tablas abiertas al momento de finalizar los programas. Y no dejes en tiempo de diseño que el tsession activo. (Asi lo tengo yo y me funciona )

[Mariana]

Alfredo, te agradezco la ayuda y a todos los que contestaron, pero el problema continúa, he hecho todas las pruebas (con lo que me han sugerido) e igualmente no lo puedo solucionar. Si a alguien se le ocurre algo más que pueda probar les adrdezco me lo cuenten.
Muchas Gracias a todos.
Mariana.

[Pablo Carlos]

Holas.. te comento lo que hice y funciona en 16 maq con w95, w98, nt, 2000 sin problemas (hasta ahora)
en el ejecutable del prg agrego esto...

Código Delphi [-]
// al uses agrega inifiles a todos los form donde leas o escribas un ini
// que hago aqui? simplemente leo un ini
var
  i : TIniFile;
begin
   i := TIniFile.Create('Servidor.ini');
   i.ReadString('Datos','Servidor', Servidor );
   i.Free;
  frmInicio := TfrmInicio.Create(Application);
  frmInicio.Show; //Formulario de presentacion
  frmInicio.Update;
  Application.Initialize;

en el formulario de inicio agrego esto

Código Delphi [-]
//Funcion para borrar el archivo .net
function ALaPapelera(Fichero:string):boolean;
 var
   FileOp: TSHFileOpStruct;
 begin
   if FileExists(Fichero)then
   begin
     FillChar(FileOp,SizeOf(FileOp),#0);
     With FileOp do
     begin
       Wnd:= Application.Handle;
       wFunc:= FO_DELETE;
       pFrom:= PChar(Fichero+#0#0);
       fFlags:= FOF_SILENT or FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
     end;
     Result:= (ShFileOperation(FileOp)=0);
   end else
     Result:=False;
 end;


procedure TfrmInicio.FormCreate(Sender: TObject);
//en este evento si el archivo ha sido borrado ... mensaje
// si no existe el ini llamo a otro form donde indico la ruta del servidor o la
// ruta local
begin
 if ALaPapelera ('c:\PDOXUSRS.NET') then
  ShowMessage('Ha sido borrado con éxito el archivo .NET');
 if FileExists('c:\windows\Servidor.ini') = False then
  begin
    frmPath := TfrmPath.Create(Application);
   try
    frmPath.ShowModal;
   finally
    frmPath.Free;
   end;
  end;

en algun evento (el mio en un boton) creo el ini donde eRuta es un edit que debe llenar el usuario con los datos precisamente de la localización de la tabla

Código Delphi [-]
var
  i : TIniFile;
  Servidor : String;
begin
   Servidor := eRuta.Text;
   i := TIniFile.Create('Servidor.ini');
   i.WriteString('Datos','Servidor', Servidor );
   i.Free;
end;

uso un solo Tsession para tablas y querys... en la propiedad de tablas y querys ni DataBaseName ni Alias.
En el evento oncreate de tablas y querys digo que lea el ini de alli saco la propiedad DatabAseName de cada componente

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

Antes de ejecutar borra todos los *.net de cada maquina y los *.lck donde este alguno... luego ejecutas y no tendrás problema.. el ini creado teoricamente sera escrito una sola vez ya que primero veo si esta y si es asi No paso al frmPath para crearlo (esto por si se borra o lo borran)
Bueno te comento que seguramente abra otras formas pero es la que hice

[[Lepe]]

Empezado por Mariana

Hola a todos, yo tengo el mismo problema, quería preguntarles si puede ser porque no configuré el localshare en true en el servidor, los alias si están bien definidos.
Gracias
Mariana

DEBE estar a true en el "servidor" y a false en los "Clientes".
Si despues de modificar eso, sigue fallando, habrá otros problemas
adicionales.

EDITO: El mejor método para saber si todo está bien configurado, es editar
un registro desde 2 ordenadores simultaneamente, debe dar un error (record
locked by another user o algo así).

Si permite que el mismo registro se edite en varios ordenadores
simultaneamente, el BDE, la sesion, net dir, etc. no está bien configurado.

Ya que el BDE es lo "mas abstracto", se empezaría mirando que la red
funciona (que deje ver archivos compartidos).

Borrar los .net, ojo, delphi y el database desktop tambien usan sus propios
net dir, no confundiros con esos. Mostrar la ruta del netFiledir en un
showmessage o en un log, puede que ExpandUNCFilename no haga lo que se
espera; yo prefiero guardar la ruta en modo \\servidor\carpeta y cargarla
desde un .ini

Borrar los .lck (archivos de bloqueo) y cuando se edite el mismo registro
desde varios ordenadores, buscar esos archivos, solo deben estar en el
servidor, en la carpeta de las tablas.

Y como han dicho Cerrad, el TDatabase, la sesión, tablas y consultas en modo diseño.

El caso del Alias, pues hay muchas formas, crearlo manualmente usando
el BDE administrator, Usar Session.AddStandarAlias, y despues guardar la
session. (Session.Saveconfig), etc.

Saludos y espero que sea de utilidad.

[vicvil]

El problema que me surge a mi es el siguiente.
Tengo varios pc conectados unos con Win98 y otros con XP y trabajan bien, pero hay uno en que la aplicaciòn corre de una manera anormal es decir con una gran lentitud, se demora en conectarse al Programa y cuando trabaja demora bastante en realizar las cosas, incluso para escribir se demora en mostrar las letras.
¿A que se podrà deber eso? ¿es por un problema de la red? aunque se pueden ver perfectamente todos los pc.

[Alfredo]

Vicvil:
Por lo que cuentas, si todas las demas maquinas manejan los mismos parametros de conexión, usan el mismo programa ytrabajan perfectamente... es claro que el problema esta relacionado directamente con el equipo (quiza un virus, problemas con el disco duro, alguna incompatibilidad, corrupción del windows) y no con la aplicación en sí. Aunque no nos dices si el equipo trabaja bien con otros programas o como se conecta. Deberias chequear eso primero.

[vicvil]

El equipo fue formateado, esta bien configurado, no tiene problemas con otros programas. es con esta aplicacion en particular que se torna demasiado lento. Lo he revisado por todas partes y no encuentro razon.

[samantha jones]

Cuando realizo una app con Paradox, lo que hago es lo siguiente y nunca me ha dado problemas, bueno, más alla de los normales.

a) en cada cliente instalo el BDE ('se instala ')
y cambio el parametro local share a true

b) en el servidor comparto 2 directorios con todos los permisos, uno para datos y otro para el net.

c) en el programa, coloco un componente Tsession, el cual ligo a todos los datasets de la aplicación, y desde un ini cargo la propiedad de NEtfiledir, por lo cual todos las instancias del programa apuntan al mismo directorio de NET

d) de igual manera coloco un componente Tdatabase, el cual tambien lo ligo a todos los demás datasets y cargo desde un ini el parametro de path

el tdatabase lo configuro de la sig manera

tdatabase.databasename := 'MIBASEDEDATOS';
{cualquier nombre que le querramos poner}
tdatabase.params.clear;
tdatabase.params.add('PATH=' + valor_leido_del_ini);
tdatabase.params.add('DEFAULT DRIVER=PARADOX');
tdatabase.params.add('ENABLE BCD=FALSE');

e) de esta manera no tengo que configurar un alias en cada máquina cliente.

Espero y les sirva.

Saludos
Samantha Jones