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