Fórum Banco de Dados Firebird em rede #449734

procedure TDataModule1.SQLConnection1BeforeConnect(Sender: TObject);

var
Arquivo: TIniFile{uses IniFiles};
begin
Try
Arquivo:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'CONF.ini');
with DataModule1.SQLConnection1 do
begin
Params.Values['DATABASE'] := Arquivo.ReadString('DADOS','DATABASE','');
Params.Values['USERNAME'] := Arquivo.ReadString('DADOS','USERNAME','');
Params.Values['PASSWORD'] := Arquivo.ReadString('DADOS','PASSWORD','');
Arquivo.Free
end;
Except
ShowMessage('Não foi possivel conectar! Nenhum servidor disponível...');

end;
end;

[DADOS] 
DATABASE=192.168.0.101:C:\PANDA\BANCO\ESTOQUE.GDB
USERNAME=SYSDBA
PASSWORD=masterkey