Fórum [b]Como utilizar Arquivo INI com Componente ADO[/b] #145218
13/03/2003
0
Prezados Amigos,
Estou precisando do código em que eu possa gravar e ler um arquivo *.INI para configurar o componente ADOConnection do Delphi ...
Atenciosamente,
Vinicius Pacca
Estou precisando do código em que eu possa gravar e ler um arquivo *.INI para configurar o componente ADOConnection do Delphi ...
Atenciosamente,
Vinicius Pacca
Viniciuspacca
Curtir tópico
+ 0
Responder
Posts
13/03/2003
Anonymous
Para SQL Server :
arquivo INI com a seguinte estrutura:
[BD]
SERVIDOR=NOMESERVER
BASE=NOMEBANCO
function LeIni(Inifile:String;Secao:String;Chave:String):String;
function TForm_login.LeIni(Inifile, Secao, Chave: String): String;
var
Ini: TIniFile;
begin
Ini := TInifile.Create(GetCurrentDir+´\´+inifile+´.ini´);
try
Result := Ini.ReadString(Secao,chave,´´);
finally
Ini.Free
end;
end;
{evento que vc quiser usar ... onclick, onshow...}
var
vservidor,vbase
begin
vservidor:=leini(´ConfigBD´,´BD´,´SERVIDOR´);
vbase:=leini(´ConfigBD´,´BD´,´BASE´);
ADOConexao.ConnectionString:=´Provider=SQLOLEDB.1;´+
´Password=´+form_login.edit_senha.text+´;´+
´Persist Security Info=True;´+
´User ID=´+form_login.Edit_usuario.Text+´;´+
´Initial Catalog=´+vbase+´;´+
´Data Source=´+vservidor+´;´+
´Use Procedure for Prepare=1;Auto Translate=True;´+
´Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False´;
try
Form_menu_imput_output.ADOConexao.connected:=true
except
on Exception do mensagem:=´erro´;
end;
end
Faça as alterações necessárias à sua realidade. Vc também pode ler o usuario e a senha do arquivo INI, basta criar as secoes no INI:
USUARIO=USER
SENHA=PASSWORD
arquivo INI com a seguinte estrutura:
[BD]
SERVIDOR=NOMESERVER
BASE=NOMEBANCO
function LeIni(Inifile:String;Secao:String;Chave:String):String;
function TForm_login.LeIni(Inifile, Secao, Chave: String): String;
var
Ini: TIniFile;
begin
Ini := TInifile.Create(GetCurrentDir+´\´+inifile+´.ini´);
try
Result := Ini.ReadString(Secao,chave,´´);
finally
Ini.Free
end;
end;
{evento que vc quiser usar ... onclick, onshow...}
var
vservidor,vbase
begin
vservidor:=leini(´ConfigBD´,´BD´,´SERVIDOR´);
vbase:=leini(´ConfigBD´,´BD´,´BASE´);
ADOConexao.ConnectionString:=´Provider=SQLOLEDB.1;´+
´Password=´+form_login.edit_senha.text+´;´+
´Persist Security Info=True;´+
´User ID=´+form_login.Edit_usuario.Text+´;´+
´Initial Catalog=´+vbase+´;´+
´Data Source=´+vservidor+´;´+
´Use Procedure for Prepare=1;Auto Translate=True;´+
´Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False´;
try
Form_menu_imput_output.ADOConexao.connected:=true
except
on Exception do mensagem:=´erro´;
end;
end
Faça as alterações necessárias à sua realidade. Vc também pode ler o usuario e a senha do arquivo INI, basta criar as secoes no INI:
USUARIO=USER
SENHA=PASSWORD
Responder
Gostei + 0
13/03/2003
Rodrigo Costa
Para SQL Server :
arquivo INI com a seguinte estrutura:
[BD]
SERVIDOR=NOMESERVER
BASE=NOMEBANCO
function LeIni(Inifile:String;Secao:String;Chave:String):String;
function TForm_login.LeIni(Inifile, Secao, Chave: String): String;
var
Ini: TIniFile;
begin
Ini := TInifile.Create(GetCurrentDir+´\´+inifile+´.ini´);
try
Result := Ini.ReadString(Secao,chave,´´);
finally
Ini.Free
end;
end;
{evento que vc quiser usar ... onclick, onshow...}
var
vservidor,vbase
begin
vservidor:=leini(´ConfigBD´,´BD´,´SERVIDOR´);
vbase:=leini(´ConfigBD´,´BD´,´BASE´);
ADOConexao.ConnectionString:=´Provider=SQLOLEDB.1;´+
´Password=´+form_login.edit_senha.text+´;´+
´Persist Security Info=True;´+
´User ID=´+form_login.Edit_usuario.Text+´;´+
´Initial Catalog=´+vbase+´;´+
´Data Source=´+vservidor+´;´+
´Use Procedure for Prepare=1;Auto Translate=True;´+
´Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False´;
try
Form_menu_imput_output.ADOConexao.connected:=true
except
on Exception do mensagem:=´erro´;
end;
end
Faça as alterações necessárias à sua realidade. Vc também pode ler o usuario e a senha do arquivo INI, basta criar as secoes no INI:
USUARIO=USER
SENHA=PASSWORD
Desculpe não estava logado, esqueci de explicar que:
ConfigBD é o nome do arquivo INI e BD é o nome da secao [BD]
Responder
Gostei + 0
13/03/2003
Rodrigo Costa
Para gravar o INI faça o seguinte:
procedure GravaIni(Inifile:String;Secao:String;Chave:String;valor:String);
procedure TForm_login.GravaIni(Inifile, Secao, Chave, valor: String);
var
Ini: TIniFile;
begin
Ini := TInifile.Create(GetCurrentDir+´\´+Inifile+´.ini´);
try
Ini.WriteString(Secao,chave,valor);
finally
Ini.Free;
end;
end;
gravaini(´ConfigBD´,´BD´,´USUARIO´,edit_usuario.Text);
gravaini(´ConfigBD´,´BD´,´SENHA´,edit_senha.Text);
Espero ter ajudado !
procedure GravaIni(Inifile:String;Secao:String;Chave:String;valor:String);
procedure TForm_login.GravaIni(Inifile, Secao, Chave, valor: String);
var
Ini: TIniFile;
begin
Ini := TInifile.Create(GetCurrentDir+´\´+Inifile+´.ini´);
try
Ini.WriteString(Secao,chave,valor);
finally
Ini.Free;
end;
end;
gravaini(´ConfigBD´,´BD´,´USUARIO´,edit_usuario.Text);
gravaini(´ConfigBD´,´BD´,´SENHA´,edit_senha.Text);
Espero ter ajudado !
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)