F�rum Firedac/Firebird path da dll do firebird #572062

02/12/2016

Pessoal estou tendo problemas ao determinar o path da dll do firebird, preciso que esteja em um local diferente do system32 do windows... como proceder, aplica��o win 32 bits... preciso fornecer o path por um arquivo ini... mas antes de fornecer a informa��o d� v�rios erros de conex�o... isso antes de tentar conectar, note que no connection est� connected = false e no connectedstoredusage est� auDesigntime.... algu�m sabe o porque disso?

Dalant Silveira

Curtir t�pico

+ 0

Responder

Post mais votado

03/12/2016

Bom dia,

Minha rotina de conex�o:

 Function ConectarBD(): boolean;
       BEGIN
         CAMINHO_COMPLETO_CONF := ExtractFilePath(Application.ExeName) +
           'CNX_BD.INI';
         if NOT FileExists(CAMINHO_COMPLETO_CONF) then
         BEGIN
           Result := False;
           RETORNO_STATUS := 'Arquivo de conex�o, n�o localizado';
           ShowMessage(RETORNO_STATUS);
           EXIT;

         END;
         // LIMPA TODAS VARIAVEIS
         BANCO_DADOS := '';
         SENHA_BD := '';
         LOGIN_BD := '';
         VENDOR_LIB := '';
         RETORNO_STATUS := '';
         // INICIA LEITURA
         TRY
           ARQ := TINIFILE.Create(CAMINHO_COMPLETO_CONF);

           BANCO_DADOS := ARQ.ReadString('CNX_BD', 'DATABASE', '');
           LOGIN_BD := ARQ.ReadString('CNX_BD', 'LOGIN', '');
           SENHA_BD := ARQ.ReadString('CNX_BD', 'SENHA', '');
           VENDOR_LIB := ARQ.ReadString('CNX_BD', 'VENDOR_LIB', '');
         EXCEPT
           // EXCEPT CRIA��O ARQ
           Result := False;
           RETORNO_STATUS := 'Falha na cria��o do arquivo CNX_BD.INI';
           ShowMessage(RETORNO_STATUS);
           EXIT;
         END;

         TRY
           DM.CNX_Principal.Connected := False;
           DM.CNX_Principal.Params.Database := BANCO_DADOS;
           DM.CNX_Principal.Params.Password := SENHA_BD;
           DM.CNX_Principal.Params.UserName := LOGIN_BD;
           DM.Link.VendorLib := VENDOR_LIB;
           DM.CNX_Principal.Connected := true;
           Result := true;
           STATUS_CNX := Result;
           EXIT;
         EXCEPT
           // EXCEPT CRIA��O ARQ
           STATUS_CNX := False;
           RETORNO_STATUS := 'Falha na conex�o com o banco de dados [' +
             DM.CNX_Principal.Params.Database + ']';
           ShowMessage(RETORNO_STATUS);
           EXIT;
         END;
       END;

[url:descricao=Detalhes de conex�o]http://ap.imagensbrasil.org/image/pfWkOR[/url]

Raimundo Pereira

Responder

Gostei + 1