[b]Como utilizar Arquivo INI com Componente ADO[/b]

Delphi

13/03/2003

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


Viniciuspacca

Viniciuspacca

Curtidas 0

Respostas

Anonymous

Anonymous

13/03/2003

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


GOSTEI 0
Rodrigo Costa

Rodrigo Costa

13/03/2003

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]


GOSTEI 0
Rodrigo Costa

Rodrigo Costa

13/03/2003

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 !


GOSTEI 0
POSTAR