Fórum configuraçao campos FDCONNECTION FIRE DAC #594790

Function TFUNCOES.Leia_Arquivo_CONF(Caminho_Completo_Arquivo_INI:string) :String;
Begin
    Caminho_Completo_Arquivo_INI:=ExtractFilePath(Application.ExeName)+'CONF.INI';
    if not FileExists(Caminho_Completo_Arquivo_INI) then
       begin
       ShowMessage('O arquivo de conexão ao banco de dados não foi encontrado! Caminho onde deve está o arquivo['+Caminho_Completo_Arquivo_INI+'], por este motivo a aplicação será finalizada');
       Application.Terminate;
end
Else
begin
  //Leia_Arquivo_CONF(Caminho_Completo_Arquivo_INI);

  Try
       Arquivo_INI:=TIniFile.Create(Caminho_Completo_Arquivo_INI);
      _IP_SVD_PRINCIPAL:= Arquivo_INI.ReadString('PARAM_CNX', 'IP','');
      _PASTA_BD := Arquivo_INI.ReadString('PARAM_CNX', 'PASTA_BD','');
      _NOME_BD  := Arquivo_INI.ReadString('PARAM_CNX', 'DATA_BASE','');
      _SENHA_BD := Arquivo_INI.ReadString('PARAM_CNX', 'SENHA_BD','');
      _USER_BD  := Arquivo_INI.ReadString('PARAM_CNX', 'USER_BD','');

      Arquivo_INI.Free;
      //Chama a função que conecta ao banco de dados    
      Conecta_BD();
  Except
     ShowMessage('Erro na leitura do Arquivo CONF.INI');
     Application.Terminate;

    End;

    end;

End;



Function TFUNCOES.Conecta_BD() :String;
begin

     DM.CNX_Principal.Close;
     DM.CNX_Principal.Params.Database:=_IP_SVD_PRINCIPAL+':\\'+_PASTA_BD+_NOME_BD;
     DM.CNX_Principal.Params.UserName:=_USER_BD;
     DM.CNX_Principal.Params.Password:=_SENHA_BD;
      _VENDOR_LIB:=ExtractFilePath(Application.ExeName)+'fbclient.dll';
     DM.DLINK.VendorLib:=_VENDOR_LIB;

     TRY
     DM.CNX_Principal.Connected:=TRUE;
          EXCEPT

          if not FileExists('\\\\'+_IP_SVD_PRINCIPAL+'\\'+_PASTA_BD+'\\'+_NOME_BD) then
             begin
              ShowMessage('CNX_ERROR [Banco de dados não localizado ('+('\\\\'+_IP_SVD_PRINCIPAL+'\\'+_PASTA_BD+'\\'+_NOME_BD)+')]');
             end
             else
             begin
             ShowMessage('CNX_ERROR [Verifique os dados do Arquivo INI]');
             end;

             Application.Terminate;

          END;


end;