Dica sobre conexao com arquivo INI

Delphi

07/02/2006

Parametros do IBDatabase1
user_name
password

procedimento:

procedure TForm1.btConectarClick(Sender: TObject);
begin
IBDatabase1.DatabaseName := edPath.Text;
IBDatabase1.Params[0] := edUser.Text;
IBDatabase1.Params[1] := edSenha.Text;
try
IBDatabase1.Connected := True;
IBDatabase1.Connected := False;
ShowMessage(´Conexão OK!´);
except
on e: exception do
ShowMessage(´Falha na conexão! Erro:´ + e.message);
end;
end;


Erro:
your user name and password are not defined
Nome e senha não estão definidos

Como faço para passar o usuario e a senha desta forma não consegui.


Ullrich

Ullrich

Curtidas 0

Respostas

Techsoft

Techsoft

07/02/2006

Olá amigo, não consegui identificar onde vc estaria acessando o arquivo ini, mas vou passar pra vc como eu faço o acesso usando ini...

Vou usar como exemplo um sistema chamado DANTE que estou desenvolvendo:

primeiro crio um arquivo por exemplo DANTECFG.INI no memso diretório onde vai ficar a aplicação.

nele coloco o seguinte:

[DATA]
HOST=192.168.0.210
DATABASE=/DADOS/DANTE/DATABASE/DANTEDB.IB
USER=SYSDBA
PASS=masterkey

BOM..

na aplicação faço o seguinte:


var
INIScript: TINIFile;
begin
INIScript := TINIFile.Create(ExtractFilePath(Application.ExeName)
+ ´\dantecfg.ini´);
with IBDatabase1 do
begin
DatabaseName := INIScript.ReadString(´DATA´,´HOST´,´´)
+ ´:´ + INIScript.ReadString(´DATA´,´DATABASE´,´´);
Params.Clear;
Params.Add(´user_name=´+INIScript.ReadString(´DATA´,´USER´,´´));
Params.Add(´password=´+INIScript.Readstring(´DATA´,´PASS´,´´));
Open;
end;
end;


é isso, assim faço as configurações do banco via arquivo INI.

Espero ter ajudado, qualquer coisa posta ai.


GOSTEI 0
Ullrich

Ullrich

07/02/2006

Obrigado techsoft

Modifiquei estas linha e deu tudo certo.
IBDatabase1.Params.Add(´user_name=´+edUser.Text);
IBDatabase1.Params.Add(´password=´+edSenha.Text);


Valeu mesmo....


GOSTEI 0
POSTAR