Ver Mensaje Individual
  #7  
Antiguo 20-05-2004
Avatar de Paoti
Paoti Paoti is offline
Miembro
 
Registrado: may 2003
Ubicación: Monterrey. N.L., México
Posts: 612
Reputación: 22
Paoti Va por buen camino
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

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

Última edición por Paoti fecha: 20-05-2004 a las 05:17:41.
Responder Con Cita