Criar arquivo .ini para conex�o com Firedac

Question

Estou com dificuldade para fazer conex�o de minha aplica��o em rede. Algu�m j� conseguiu configurar o Firedac com arquivo de inicializa��o para conex�o com banco Firebird?...

Ricardo · Accepted Answer

Voc� faz a configura��o do FDconnection e testa se est� tudo ok. Depois voc� copia toda a string da propriedade params para o arquivo INI e depois deixa a o propriedade params vazia.

Ent�o voc� faz a chamada e leitura do arquivo ini no evento OnCreate do form ou datamodule.

Vicente Santos · Answer

poderia me dar um exemplo?...

Rafael Bosco · Answer

Dentro do seu ini provavelmente deve ter algo parecido como:

CaminhoBancoDeDados = \\\\192.168.0.177:C:\\SEUBANCOFIREBIRD.FDB;

Usei um IP aleat�rio ali para simular uma conex�o em rede. (ou o nome do computador! Ex.: \\\\SERVIDOR).

Dependendo da vers�o do seu FireBird voc� vai precisar ser explicito ao FireDAC ao informar o caminho, pra isso voc� deve colocar um par�metro novo na sua conex�o:

   FFireDACConnection.Params['server'] := '192.168.0.177';

Mas geralmente voc� n�o necessita colocar o par�metro SERVER na conex�o do FireDAC, apenas passar o caminho completo, acredito que alguma forma destas v� funcionar para voc�.

Aqui um exemplo:

 FFireDACConnection := TFDConnection.Create(nil);
   try
      FFireDACConnection.DriverName := 'FB'
      FFireDACConnection.LoginPrompt := False;
      FFireDACConnection.Params.Values['Port'] := '3050';
      FFireDACConnection.Params.Values['CharacterSet'] := 'win1252'; 
      FFireDACConnection.Params.Database := GetDataBasePathFromIni;  // Sua fun��o que retona o caminho do banco l� do seu ini
      // ou coloque o par�metro de SERVER caso n�o de certo
      FFireDACConnection.Params['Server'] := '192.168.0.177';
      FFireDACConnection.Params.UserName := 'SYSDBA';
      FFireDACConnection.Params.Password := 'masterkey';

      FFireDACConnection.Open;
   except
      on E: Exception do
         raise Exception.CreateFmt('Erro ao tentar conectar ao banco de dados! Motivo = %s', [E.Message]);
   end;