[firebase-br] conectar dbexpress em runtime

[Francisco A Souza]

galera, depois de penar e pesquisar na net, montei minha conexão em runtime 
via dbexpress...

segue ai para quem quiser:
se alguem melhorar manda pra mim.


procedure TDmdados.Openbd(cnn: TSQLConnection; Ini: TMemIniFile);
var
  Config: TMemIniFile;
  Arq: TFileName;
begin
  Arq := ExtractFilePath(ParamStr(0))+'CONFIG\BD.INI';
  if Assigned(Ini) or FileExists(Arq) then begin
     if Assigned(Ini) then
        Config := Ini
     else
        Config := TMemIniFile.Create(Arq);
     with cnn do
        try
           if Connected then Close;
           ConnectionName := nomeestacao;
           DriverName := Config.ReadString(ConnectionName, 'DriverName', 
DriverName);
           GetDriverFunc := Config.ReadString(ConnectionName, 
'GetDriverFunc', GetDriverFunc);
           LibraryName := Config.ReadString(ConnectionName, 'LibraryName', 
LibraryName);
           VendorLib := Config.ReadString(ConnectionName, 'VendorLib', 
VendorLib);
           LoginPrompt := False;
           KeepConnection := True;
           LoadParamsOnConnect := False;
           LoadParamsFromIniFile(Config.FileName);
        finally
           if not Assigned(Ini) then Config.Free;
        end;
     end;
     cnn.Open;
end;


procedure TDmdados.DataModuleCreate(Sender: TObject);
var
   ArqIni : TmeminiFile;
   Texto:string;
begin
   bd.close;
   bd.LoadParamsOnConnect:=false;
   ArqIni := 
TmeminiFile.Create(ExtractFilePath(ParamStr(0))+'CONFIG\BD.INI');
   texto:=arqini.ReadString(nomeestacao, 'Database', '');
   if texto='' then begin
      FrmServidor:=TfrmServidor.create(self);
      FrmServidor.showmodal;
      if frmservidor.tag=5 then application.Terminate;
   end;
   openbd(bd,arqini);
end;