Club Builder

[Ricardo]

Hola a todos.

Soy un poco novatillo en esto y necesito vuestra inestimable ayuda.
Uso el Builder 5 y estoy haciendo un programa con tablas Parados, esta aplicación está corriendo en varios ordenadores en red Microsoft con Windows NT y las tablas se encuentran en un solo ordenador, para poder conectar a estas tablas creo una conexión a la unidad remota al iniciar el ordenador como unidad “F:” y configuro el BDE Administrador en la Opcion Configuration/Drivers/Native/Paradox/NetDir donde pongo la dirección del ordenador y directorio que contiene las tablas, mis preguntas son las siguientes:
Puedo desde Builder leer y/o modificar esa configuración ¿?.
Hay alguna otra forma de conectar a las tablas del ordenador remoto desde mi programa para que el usuario no pueda verlas (ni borrarlas) desde el Explorador ¿?

Agradezco de antemano cualquier ayuda y espero haberme explicado correctamente.

Un saludo a todos.

[Leviathan]

Para conectar las bds desde tu programa viene un ejemplo con el builder 5 MastApp ahi viene como cambiar en TSession la configuracion para conectarla a otro servidor y/o direccion, no es necesario que cambies la configuracion en el BDE Administrator simplement usa un TSesion y configura la direccion del PrivateDir y NetDir en la cual estan las tablas, lo mas recomendable es que dejes que el programa seleccione el PrivateDir por que te puede dar el error de que el directorio esta ocupado y no puede abrir las tablas.

void TMastData::UseRemoteData()
{
TStringList * Params = new TStringList;
AnsiString DataFile;
TPtr<TOpenDialog> opendlg = new TOpenDialog(NULL);

// See if the alias exists. if not then add it.
if (!Session->IsAlias("MASTSQL"))
{
DataFile = DataDirectory() + "MASTSQL.GDB";
if (!FileExists(DataFile))
{
opendlg->Filter = "Interbase files (*.gdb)|*.GDB";
if (opendlg->Execute())
DataFile = opendlg->FileName;
}
else
MessageBox(NULL,"Cannot locate Interbase data file: MASTSQL.GDB","Warning!",MB_OK);
try
{
Params->Values["SERVER NAME"] = DataFile;
Params->Values["USER NAME"] = "SYSDBA";
Session->AddAlias("MASTSQL", "INTRBASE", Params);
}
catch(...)
{
Params->Free();
return;
}
Params->Free();
}
SetDatabaseAlias("MASTSQL");
}

Para esconderlas no tengo muchos conocimientos pero es mejor si les poner password para abrirlas y en tu programa le das como parametros el Usuario y el Password para que no te lo pida cada vez que quieras abrirlas, y no se como se use en WindowsNT el Flag de Novell para que le des el atributo de "Delete Inhibit".

[Alfredo]

Si usas un objeto TDatabase te conectas asi desde el programa:
String RUTA = "\\\\NombreMaquina\\NombreRecurso\\Carpeta;
Database1->Params->Values["PATH"] = RUTA;
Es Bueno grabar esta ruta en el registro y cargarla en el FormShow.

Aunque te recomendaria no utilizar paradox en red ya que tienes que estar muy pendiente de la configuracion del bde, especialmente del net dir, pues si por mala suerte alguna de las pcs conectadas tiene una distinta se te pueden dañar las tablas, a veces de forma ireversible, claro que no es necesaria una mala configuracion, basta un cuelgue de una de ellas para un disgusto.
Te aconsejo si no estas muy metido en esto el "mudarte" para interbase, se lo que digo pues he pasado por eso y desde que decidi el cambio soy mas feliz, aunque me costo bastante pues tuve que rehacer casi todo el programa que es bastante extenso.
Si te decides y necesitas ayuda postea aqui, pues como te dije ya pase por eso.

[Alfredo]

Se me olvidaba algo: Con Interbase el servidor y el directorio de trabajo se hacen facilmente inasequibles desde las estaciones, basta con no compartir el recurso, Interbase se las apaña para conectarse.