se puede hacer

[armando]

hola a todos
trabajo con delphi 5 y paradox
para un programa en red configuro mi datamodulo en oncreate de la siguiente manera:

DATABASE.Connected:=false;

WITH SESSION DO
BEGIN
NETFILEDIR:='\\SERVIDOR\F\SISTEMA\NET';
PRIVATEDIR:='C:\TEMP';
ENd;

WITH DATABASE DO
BEGIN
PARAMS.Clear;

PARAMS.Add('PATH='+'\\SERVIDOR\F\SISTEMA\BASES');
PARAMS.ADD('DEFAULT DRIVER=PARADOX');
PARAMS.ADD('ENABLED BC=FALSE');
CONNECTED:=TRUE;
END;

TRY
ACC.ACTIVE:=TRUE;
CLI.ACTIVE:=TRUE;
ART.ACTIVE:=TRUE;
FA1.ACTIVE:=TRUE;
DFA.ACTIVE:=TRUE;
except
showmessage('NO SE PUDIERON ABRIR LAS BASES');
end;

hasta aqui todod e maravilla.....pero

si tengo que mandar este programa a otra sucursal (en otra maquina) tengo que compilarlo nuevamente para definir la ruta del netfile y del alias
se puede hacer esto de diferente manera sin nececidad de estar compilando nuevamente el programa... mucho agradeceria nuevamente su ayuda.....

[roman]

Empezado por armando

si tengo que mandar este programa a otra sucursal (en otra maquina) tengo que compilarlo nuevamente para definir la ruta del netfile y del alias
se puede hacer esto de diferente manera sin nececidad de estar compilando nuevamente el programa... mucho agradeceria nuevamente su ayuda.....

Sí claro. Puedes guardar los valores en un archivo INI y leerlos de ahí al momento de la ejecución.

// Saludos

[armando]

si no es mucha molestia y tendrias por ahi un ejemplo te lo agradeceria mucho...

[[eduarcol]]

No se si roman tendra uno pero Delphi debe tener uno, solo debes ubicar el TINIFILE + F1 alli lo veras

[roman]

No es molestia pero los ejemplos que podría ponerte serían muy similares a los que vienen en la ayuda de Delphi (Busca TIniFile)

// Saludos

[armando]

ok
lo verifico y luego les comento gracias...

[Paoti]

un ejemplo de como lo implemento

Código Delphi [-]
unit UniModDatos;

interface

uses
  SysUtils, Classes, DB, DBTables, inifiles;

type
  TModDatos = class(TDataModule)
    Session1: TSession;
    DBLaibense: TDatabase;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
    archi : TIniFile;
  public
    { Public declarations }
  end;

var
  ModDatos: TModDatos;

implementation

{$R *.dfm}

procedure TModDatos.DataModuleCreate(Sender: TObject);
begin
 // acceso al archivo Ini, por defecto, si no existe lo crea, y lo creas en
// la carpeta system de windows
 archi := TIniFile.Create('Laibense.ini');
 Session1.NetFileDir := archi.ReadString('Base','Net','NA');
 Session1.PrivateDir := archi.ReadString('Base','Temp','NA');
 DBLaibense.Params.Clear;
 DBLaibense.Params.Add('PATH='+ archi.ReadString('Base','Ruta','NA'));
 DBLaibense.Params.Add('DEFAULT DRIVER=PARADOX');
 DBLaibense.Params.Add('ENABLE BCD=FALSE');
 DBLaibense.Connected := true;
 archi.Free;
end;

procedure TModDatos.DataModuleDestroy(Sender: TObject);
begin
Session1.Active := false;
end;

end.

el archivo ini, tiene la siguiente estructura


mirate como funciona la clase TiniFile

[Base]
Net=C:\Paoti\net
Temp=C:\Paoti\net\temp
Ruta=C:\Paoti\monerias\delphi\Laibense\Base
administrador=12345
usuario=paoti

espero te sirva