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
archi : TIniFile;
public
end;
var
ModDatos: TModDatos;
implementation
{$R *.dfm}
procedure TModDatos.DataModuleCreate(Sender: TObject);
begin
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
Código:
[Base]
Net=C:\Paoti\net
Temp=C:\Paoti\net\temp
Ruta=C:\Paoti\monerias\delphi\Laibense\Base
administrador=12345
usuario=paoti
espero te sirva