Alexandre escreveu:
> Olá estimado,
>
> Boa tarde. Exemplo de .INI
>
> [BaseDados]
> Servidor=localhost
> Usuario=sysdba
> Senha=vj|}n{tn‚
> Base=c:\vendas1\base\vendas.gdb
>
> No create do datamodule no delphi:
>
> ............
> var
> sServidor, sUsuario, sSenha, sBase : String;
> iniFile : TIniFile; // da um uses IniFiles
> begin
>
> iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) +
> 'config.ini');
> with iniFile do begin
> sServidor := ReadString('BaseDados', 'Servidor', '');
> sUsuario := ReadString('BaseDados', 'Usuario', '');
> sSenha := Desencripta(ReadString('BaseDados', 'Senha', ''));
> sBase := ReadString('BaseDados', 'Base', '');
> Free;
> end;
>
> sqlBase.Connected := false;
> sqlBase.Params.Clear;
> sqlBase.DriverName := 'Interbase';
> sqlBase.ConnectionName := 'Vendas';
> sqlBase.Params.Values['Database'] := sServidor + ':' + sBase;
> sqlBase.Params.Values['User_Name'] := sUsuario;
> sqlBase.Params.Values['Password'] := sSenha;
> sqlBase.Params.Values['SQLDialect'] := '3';
> sqlBase.Params.Values['Protocol'] := 'TCP/IP';
> sqlBase.Params.Values['BlobSize'] := '-1';
> sqlBase.Params.Values['CommitRetain'] := 'False';
> sqlBase.Params.Values['Interbase TransIsolation'] := 'ReadCommited';
> sqlBase.Params.Values['WaitOnLocks'] := 'True';
> sqlBase.Params.Values['EnableBCD'] := '0';
> sqlBase.Connected := true;
>
> end;
>
>
> Saudações.
>
> ---
> []'s
>
> Alexandre
>
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
