Oido cocina:
GL.DB es un tipo Record con la configuración cargada desde un .ini
Código Delphi
[-]
with DtbPPal.Session do begin
MensajeAdd(true, '2 Alias');
if IsAlias(gl.DB.Alias) then MensajeAdd(true, '2.1 Usando alias existente: ' + gl.DB.Alias)
else
begin
MensajeAdd(true, '2.1 Creando Alias: ' + gl.DB.Alias + ' para la carpeta: ' +
gl.DB.DatabaseDir); AddStandardAlias(gl.DB.Alias, gl.DB.DatabaseDir, 'Paradox');
end;
try
MensajeAdd(true, '1 Configurar la sesion');
NetFileDir := GL.DB.NetFileDir;
MensajeAdd(true, '1.1 Usando Carpeta NET: ' + NetFileDir);
MensajeAdd(true, '1.2 Usando carpeta temporal: ' + gl.DB.PrivateDir);
PrivateDir := gl.DB.PrivateDir;
MensajeAdd(true, '1.3 Modo Sesion: cmAll');
ConfigMode := cmAll;
MensajeAdd(true, '1.4 Modo servidor: ' + BoolToStrSP(GL.ModoServidor));
OnPassword := MiSessionPassword;
except
on E: Exception do
HandleException('Error al configurar la sesion', E);
end;
end;
Saludos