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
[-]
Ini := tIniFile.Create(ChangeFileExt(Application.ExeName)+'.ini');
Try
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;
DbMain.Connected := True;
DbMain : TDatabase;
los parametros son los "por defecto" de paradox
Tomado del INI
Cita:
[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
|