Páradox En Red

[RebeccaGL]

Empezado por ingacg

Hola!

Estoy desarrollando una aplicación que contiene una base de datos en páradox, a la cual deberán accesar más de una pc conectadas en red, la base está en una de ellas, pero cuando un segundo usuario desea accesar a dicha base el bde manda un error ".lck", supongo el el primer usuario tiene bloquedo el directorio donde se encuentra la bd, si alguien de uds sabe a que se debe y como puedo hacer que la accesen n usuarios a la bd, se lo agradeceré.

Lo que tienes que haces:

Crear un componente TDatabase y un TSession

Luego tienes que direccionar, indicarle a tu sistema donde va a leer el PDOXUSRS.NET Ejemplo.

Session.NetFileDir := c:\
Session.PrivateDirr := c:\Temp

Ojo, Todas las aplicaciones deben apuntar a este archivo, al decir aplicaciones me refiero a un mismo programa y no a todos los programas que puedas hacer, osea si tienes un sistema llamado qwerty y lo instalas en tres pc's el sistema qwerty debe apuntar a un solo \qwerty\net\PDOXUSRS.NET al del servidor, pero el qwerty\PrivateDir\Temp es unico para cada sistema no debes compartirlo con ningun otro sistema sino te dara error.

Tienes que reforzar tus tablas creando rutinas de eliminacion y creacion de indices, esto es necesario cuando se te corrompan los indices y se malogren los borras y los rehaces.

Para que tu sistema funcione en red:

Asignas al componente Database y Session asi.
Supongamos que tu PC es el servidor y se llama Juan

Database.Params[0].Path := \\Juan\qwerty
Session.NetFileDir := \\Juan\qwerty\net
Session.PrivateDir := \\Juan\qwerty\Temp

Donde Juan es el nombre de tu pc
Ahora si quieres leer las tablas de otra PC por ejemplo la pc de alberto tienes que poner es:

Database.Params[0].Path := \\Alberto\\qwerty
Session.NetFileDir := \\Alberto\qwerty\net
Session.PrivateDir := \\Juan\qwerty\Temp

Ojo no debes redireccionar el PrivateDir ese dejalo donde se ejecuta tu sistema \\Juan\qwerty\Temp

Ahora porque se escribe dse esta manera \\Juan
Porque segun las convenciones de red asi estan establecidas.

Mira tu Pc se llama Juan
Y lo creaste en c:\Delphi\Proyectos\qwerty

Presionas el boton derecho del mouse y compartes la carpeta qwerty y marcas las dos casillas, ahora solo tendras que poner el nombre de tu PC y la carpeta compartida osea asi: \\Juan\qwerty es una forma abreviada que funciona de acuerdo a las convenciones de red.

Cuando instales tu sistema en otra Pc, tienes que tener ya creado un modulo donde tu le indiques al sistema de donde va a leer las tablas por ejemplo:

Instalas el sistema qwerty en la PC Juan - servidor
Instalas el sistema qwerty en la PC Alberto - cliente
Instalas el sistema qwerty en la PC Pedro - cliente

En la pc numero 0001 servidor lo dejas como esta.
en las dos siguientes direccionas solo el Session.NetFileDir que apunten a la pc de Juan oseas asi:

PC Juan
Database.Params[0].Path := \\Juan\qwerty
Session.NetFileDir := \\Juan\qwerty\net
Session.PrivateDir := \\Juan\qwerty\Temp

PC Alberto
Database.Params[0].Path := \\Juan\qwerty
Session.NetFileDir := \\Juan\qwerty\net
Session.PrivateDir := \\Alberto\qwerty\Temp

PC Pedro
Database.Params[0].Path := \\Juan\qwerty
Session.NetFileDir := \\Juan\qwerty\net
Session.PrivateDir := \\Pedro\qwerty\Temp

Tambien tienes que crear rutinas de borrado de archivos *.LCK cuando algun usuario resete la pc, el borrado se realiza en el PRivateDir de cada PC.


Saludos.