Fórum DBXConnections #376630
29/04/2010
0
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.
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
Curtir tópico
+ 0
Responder
Posts
30/04/2010
Nilson Rapcinski
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;
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;
Responder
Gostei + 0
30/04/2010
Wilson Junior
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.
with TSQLConnection1.Params do
begin
Values['User_Name'] := 'SYSDBA';
Values['Password'] := 'masterkey';
end;
Espero ter colaborado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)