DBXConnections

Delphi

29/04/2010

Boa tarde!

Utilizo o Delphi 2009 com Firebird 2.1.3.

Gostaria de saber como faço para tirar as informações de Usuário e senha do arquivo DBXConnections e deixá-las somente no executável do sistema.

Obrigado.
Nilson Rapcinski

Nilson Rapcinski

Curtidas 0

Respostas

Nilson Rapcinski

Nilson Rapcinski

29/04/2010

Consegui resolver!!!

1.- Tirei as linhas (User_Name e Password) do "DBXConnections.ini".
2.- Marquei a propriedade LoadParamsOnConnect do TSQLConnection para False;
3.- Marquei a proriedade Connected do TSQLConnection para False;
4.- No evento OnCreate do TDataModule inseri o seguinte código:

if TSQLConnection1.ConnectionState = csStateOpen then
begin
  TSQLConnection1.Connected := False;
end;
TSQLConnection1.LoadParamsFromIniFile('.\dbxconnections.ini');
with TSQLConnection1.Params do
begin
  Values['User_Name'] := 'SYSDBA';
  Values['Password'] := 'masterkey';
end;

GOSTEI 0
Wilson Junior

Wilson Junior

29/04/2010

Só uma observação, não precisa retirar as linhas "User_Name" e "Password", pois não interessa o valor atribuído nestas linhas, pois você sempre substitui

with TSQLConnection1.Params do
begin
  Values['User_Name'] := 'SYSDBA';
  Values['Password'] := 'masterkey';
end;


Espero ter colaborado.
GOSTEI 0
POSTAR