dbxconnections.ini com firedac
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...
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...
Josafar Silva
Curtidas 0
Respostas
Raimundo Pereira
12/02/2016
Resolveu ?
GOSTEI 0
Antonio Junior.
12/02/2016
Estou com o mesmo problema... alguem tem um dbxconnections.ini do XE7 para eu comparar e ver se resolve ??
GOSTEI 0
Raimundo Pereira
12/02/2016
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;
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;
GOSTEI 0