Configurando TIBDatabase em run time

Delphi

23/03/2004

Como faço para dizer que meu TIBDatabase deve ter as seguintes configurações via runtime:
[ ] Local [x] Remote
Serve: AuxDireção
Protocol: TCP

Obrigado


Jonnymarques

Jonnymarques

Curtidas 0

Respostas

Delphi32

Delphi32

23/03/2004

respondida em:

[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=39466[/url]


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

23/03/2004

Colega,

Quando você precisa efetuar alterações de configurações de acordo com o local de instalação, talvez o exemplo abaixo seja adequado:

procedure TForm1.FormCreate(Sender: TObject);
var ArquivoINI: TIniFile;
begin

  ArquivoINI  := TIniFile.Create(´GerarEMS.INI´);

  dbLocadora.Connected    := false;
  dbLocadora.DatabaseName := ArquivoINI.ReadString(´SERVIDOR´,´Banco de Dados´,´´);
  dbLocadora.Connected    := true;
  ArquivoINI.Free;

end;


Conteúdo do arquivo INI (GerarEMS.INI):

[SERVIDOR]
Banco de Dados=ZETA:D:\FB-DADOS\LOCADORA.GDB



GOSTEI 0
POSTAR