Série da semana: Primeiros passos no React

Veja mais

dbxconnections.ini com firedac

12/02/2016

4

Desenvolvi um sistema com Delphi XE5 utilizando os componentes de conexão do Firedac em multicamadas, tudo funcionando perfeitamente, sistema este já distribuído.
Ao desenvolver um novo sistema, agora com Delphi XE7, tenho o seguinte problema:
Quando tento configurar o componente TSQLConnection do Client Data Module, ao setar a propriedade ConnectionName aparece o erro, "Driver/Connection Regystry File C:\...........\Embarcadero\Studio\DbExpress\15.0\'dbxconnections.ini' not found"
1) Verifiquei se existia o arquivo ini no caminho indicado e realmente não havia.
2) Copiei o arquivo dbxconnection.ini que tenho do diretório do Delphi XE5, mas o erro persiste.
3) Apesar de tudo, testei a conexão e ela está funcionando. Não sei se isto vai me trazer problema quando for distribuir o sistema.

Se alguém puder me ajudar...
Responder

Posts

15/02/2016

P2

Resolveu ?
Responder
Estou com o mesmo problema... alguem tem um dbxconnections.ini do XE7 para eu comparar e ver se resolve ??
Responder

28/03/2016

P2

1. Crie seu arquivo CONF.INI
Abra o notepad
Exemplo Conteúdo:
[PARAM_CNX]
CAMINHO_BD=localhost:\Aplic\TI\P2-DESENVOLVER\SBACK\BD_BK.FDB
LOGIN_BD=SYSDBA
SENHA_BD=masterkey
CAMINHO_VENDOR_LIB=c:\Program Files (x86)\Firebird\Firebird_2_5\bin\fbclient.dll

Salvar como . >> CONF.INI na mesma pasta do EXE.


No Delphi>>
USES >> INIFILES

Dentro do DM, coloque.// Data module
1- FDConnection
1- FDGUIxWaitCursor
1- FDPhysFBDriverLink


uses U_DM;



procedure TFP.Realiza_CNXClick(Sender: TObject); //Botão de Conexão com o BD
var
ARQUIVO_INI:TINIFILE;
CAMINHO_ARQUIVO_CONF:STRING;
begin
CAMINHO_ARQUIVO_CONF:=ExtractFilePath(Application.ExeName)+'CONF.INI';
if NOT FileExists(CAMINHO_ARQUIVO_CONF) then
BEGIN
ShowMessage('Não foi possível localizar o arquivo CONF.INI, o mesmo deve ser criado em ['+CAMINHO_ARQUIVO_CONF+']');
exit;
END
ELSE
BEGIN
ARQUIVO_INI := TIniFile.Create(CAMINHO_ARQUIVO_CONF);


Dm.FDConnection.Params.DriverID:='FB';
Dm.FDConnection.Params.Database:= ARQUIVO_INI.ReadString('PARAM_CNX', 'CAMINHO_BD', ''''); //Retorna o caminho da base de dados informado no arquivo conf.ini
Dm.FDConnection.Params.UserName:= ARQUIVO_INI.ReadString('PARAM_CNX', 'LOGIN_BD', ''''); //Retorna o login da base de dados informado no arquivo conf.ini
Dm.FDConnection.Params.Password:= ARQUIVO_INI.ReadString('PARAM_CNX', 'SENHA_BD', ''''); //Retorna a senha da base de dados informado no arquivo conf.ini
DM.FDPhysFBDriverLink.VendorLib:= ARQUIVO_INI.ReadString('PARAM_CNX', 'CAMINHO_VENDOR_LIB',''); //Retorna o caminho dll firebird informado no arquivo conf.ini

try
Dm.FDConnection.Connected:=TRUE;
ShowMessage('Conectado com sucesso a base de dados ['+Dm.FDConnection.Params.Database+']');
except
ShowMessage('Não foi possível conectar com a base!');
end;
end;
end;
Responder