Ver Mensaje Individual
  #3  
Antiguo 08-05-2010
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Por ejemplo partiendo de un INI como éste:

[Camino]
String=Localhost:C:\xxxx\xxxx\xxxxx.FDB

Código Delphi [-]
procedure TDmConex.DataModuleCreate(Sender: TObject);
Var
MiCarpeta:String;
MiFicheroIni:TIniFile;
begin
MiCarpeta:=ExtractFilePath(Application.ExeName);
IBDatabase.Close;
  Try
  //Abrir el INI
  MiFicheroIni := TIniFile.Create (MiCarpeta+'MZFB.ini');
  //Pasar los parámetros al Componente IBDatabase
  IBDatabase.DatabaseName:=MiFicheroIni.ReadString ('Camino', 'String','Error');
  //Abrir Base de datos
  IBDatabase.Connected   :=True;
  //Abrir transación
  Ibtransaction.Active   :=True;
  //Abrir Dataset
  IbDtsUsuarios.Active   := True;
  IbDtsContadores.Active := True;
  IbDtsImpresoras.Active := True;
  IbDtsConf.Active       := True;
  Except
  ShowMessage('No se pudo acceder al fichero '+Mificheroini.FileName  );
  end;

end;


Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita