dos instancias de paradox en terminal server

[yogutero]

Explico las prueba que he hecho a ver que puede pasar.

1.- Doy permisos de administrador a los usuarios que se conectan en terminal server.
2.- La aplicacion está en S:\paradox\trabajo para los usuarios de la red local y la opcion local share=true en el DBE. El terminal server está en D:\paradox\trabajo (es el mismo directorio, los equipos en red local mapean \\servidor\D\ como S.
3.- Con esta configuracón los equipos en red local funcionan ok pero en terminal server solo puede entrar uno.

El efecto de abrir 2 o varios equipos en terminal server es como si abrieramos varias veces paradox en una maquina y yo creo que es porque el fichero lck de bloqueo está siendo usado y me deja fuera.

Pruebas que he hecho:

- poner local share=false en el bde del servidor, y el terminal server funciona!!! pero los 9 equipos de la red local se vuelven locos, porque supongo que las tablas perderán consistencia al no estar controlados por un unico lck.

- mapear en el mismo servidor D:\ como S:\ asi todo el mundo tiene la misma ruta en NET DIR. No vale de nada.

Respecto al anterior consejo de sitrico no se si lo de el documento de citrix es aplicable o no.


A ver si después de ete rollo nos salta la chispa y algún alma caritativa me ayuda.

[[sitrico]]

Al final no salió

--------------------------------------------------------------------------------
Explico las prueba que he hecho a ver que puede pasar.

1.- Doy permisos de administrador a los usuarios que se conectan en terminal server.
2.- La aplicacion está en S:\paradox\trabajo para los usuarios de la red local y la opcion local share=true en el DBE. El terminal server está en D:\paradox\trabajo (es el mismo directorio, los equipos en red local mapean \\servidor\D\ como S.
3.- Con esta configuracón los equipos en red local funcionan ok pero en terminal server solo puede entrar uno.

El efecto de abrir 2 o varios equipos en terminal server es como si abrieramos varias veces paradox en una maquina y yo creo que es porque el fichero lck de bloqueo está siendo usado y me deja fuera.

Creo que por aqui van los tiros, con esto (y si el problema es el .lck) puedes solicionarlo de la siguiente manera:

Fuente: http://www.terra.es/personal/alksoft...lo/paradox.htm

Lo que debes hacer es modificar la aplicación para asignar el valor de session.Private dir a un directorio DISTINTO para cada usuario (tal vez debas usar algo así:

Código Delphi [-]
Procedure SetPrivateDir(UserName:String);
Var
Dir : String;
begin
Dir := ExtractFilePath(Application.ExeName)+'Temp\'+UserName;
If ForceDirectories(Dir) Then // crearlo si no existe
   Session.PrivateDir := Dir // aqui se creará el .lck
Else
   raise exception.Create('No se puede inicializar el BDE');
end;

[yogutero]

Se que una solucion en codigo probablemente funcione, pero ¿Donde se pone eso?
Te comento, llevo años programando...... en visual basic, con mysql, sql server y me encuentro en paradox y su entorno perdido, lo unico que se es que el formulario inicial se llama newgate.fdl y de ahí tiran todos.

¿En el codigo del formulario, en un modulo (si existen modulos en paradox)?

[[sitrico]]

Normalmente se hace en el datamodule (tambien lo puedes hacer en el módulo principal)

Basta con que incluyas estas líneas al formulario principal:

Código Delphi [-]
session.PrivateDir := DirectorioPrivadoUsuario;
session.netfiledir := DirectorioComunCompartido;

Puedes encontrar algo mas en el foro si buscas PrivateDir ó NetFileDir

Te mando un ejemplo de un datamodule que uso.

Código Delphi [-]
//STANDARD, ORACLE, SYBASE, or INTERBASE
// Leer la configuracion de la base de datos
Ini := tIniFile.Create(ChangeFileExt(Application.ExeName)+'.ini');
Try
   // Bases de Datos PARADOX
   Session.PrivateDir := Ini.ReadString('BaseDeDatos','PrivateDir','');
   Session.NetFileDir := Ini.ReadString('BaseDeDatos','NetFileDir','');
   If (Session.NetFileDir <> '') and Not(DirectoryExists(Session.NetFileDir)) then
      MessageBoxStr('No se encontró el directorio de datos del Sistema.  '+
                    'Si se trata  de  una  configuración de red es posible '+
                    'que el servidor este apagado o no tenga acceso a la '+
                    'carpeta o unidad correspondiente. Si es una instalación '+
                    'local puede tener algún problema de configuración. Puede '+
                    'Verificar en Herramientas -> Opciones -> Bases de Datos '+
                    'la configuración actual','Error');
   DBMain.DriverName := Ini.ReadString('BaseDeDatos','DriverName','STANDARD');
   j := Ini.ReadInteger('BaseDeDatos','ParamsCount',3)-1;
   For i := 0 To j do
      DbMain.Params.Add(Ini.ReadString('BaseDeDatos','Params'+FullZero(i,3),''));
Finally
   Ini.Free;
   End;
// Conectar la Base de Datos
DbMain.Connected := True;

DbMain : TDatabase;
los parametros son los "por defecto" de paradox

Tomado del INI

[BaseDeDatos]
DriverName=STANDARD
ParamsCount=3
NetFileDir=C:\MIS PROYECTOS\IVA32\DATA
PrivateDir=C:\MIS PROYECTOS\IVA32\
Params000=PATH=C:\MIS PROYECTOS\IVA32\DATA
Params001=DEFAULT DRIVER=PARADOX
Params002=ENABLE BCD=FALSE

[yogutero]

Estupendo, muchas gracias, la unica pregunta que me quedaría como cosas rara es que:

- si en el bde existe la opcion netdir no existira otra opcion donde poner private dir?

la verdad es que no la encuntro en el bde si existe claro.

[[sitrico]]

En el Database Desktop Tienes un directorio PRIV: que por defecto apunta a la carpeta temporal de Windwos.

Por código basta con asignar la propiedad PrivateDir del tSession.

En el BDE Administrator no veo la opción.

[yogutero]

El jueves pruebo todo lo que me has dicho que con eesto de las vacaciones cuando no estoy yo está el cliente.

Lo dicho gracias y al lío.