Problema no Arquivo Ini
Amigo, Tenho encontrado um problema no meu sistema :
Arquivo SISIMO.INI
[CONFIG]
Servidor=localhost:C:\SISIMO\BDSISIMO\SISLOC.FDB
Usuario=SYSDBA
Senha=masterkey
DIALETO=3
CHARSET=ISO8859_1
NOMEDRIVE=INTERBASE
blob=-1
commitar=False
localecode=0000
role=RoleName
Translation=ReadCommitted
waitonloc=True
char=False
[LOCALFOTO]
ENDEREFOTO=C:\sisimo\sisloc\imagens
SALVAFOTO=C:\sisimo\sisloc\imagens
[RELATORIOS]
Caminho=C:\SISIMO\SISLOC\fastreports\
[FUNDO]
Caminho=c:\sisimo\sisloc\Imagens\fundo.bmp
[CEP]
Endereco=c:\SISIMO\BuscaCEPS\bancodedados\CEP.FDB
_______________________________________________
NO MEU DATAMODULO USO ASSIM
procedure TDmPrincipal.DataModuleCreate(Sender: TObject);
var
sServidor, sUsuario, sSenha, sBase, sCharset, NOMEDRIVE, sblog, scomit, slocalcode,
srole, sisolation, swaitononloc, schar: String;
iniFile : TIniFile; // da um uses IniFiles
begin
iniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'SISIMO.INI');
with iniFile do begin
sServidor := ReadString('CONFIG', 'Servidor', '');
sUsuario := ReadString('CONFIG', 'USUARIO', '');
sSenha := ReadString('CONFIG', 'SENHA', '');
sBase := ReadString('CONFIG', 'DIALETO', '');
sCharset := ReadString('CONFIG', 'CHARSET', '');
NOMEDRIVE := ReadString('CONFIG', 'NOMEDRIVE', '');
sblog := ReadString('CONFIG', 'BLOB', '');
scomit := ReadString('CONFIG', 'COMMITAR', '');
slocalcode := ReadString('CONFIG', 'localecode', '');
srole := ReadString('CONFIG', 'role', '');
sisolation := ReadString('CONFIG', 'translation', '');
sChar := ReadString('CONFIG', 'CHAR', '');
end;
Sisimo.Connected := false;
Sisimo.Params.Values['DATABASE'] := sServidor;
Sisimo.Params.Values['User_Name'] := sUsuario;
Sisimo.Params.Values['SQLDialect'] :=SBASE;
Sisimo.Params.Values['Password'] := sSenha;
Sisimo.Params.Values['ServerCharSet'] :=SCharset;
Sisimo.Params.Values['DriverName'] :=NOMEDRIVE;
Sisimo.Params.Values['BlobSize'] :=sblog;
Sisimo.Params.Values['CommitRetain'] :=scomit;
Sisimo.Params.Values['localCode'] :=slocalcode;
Sisimo.Params.Values['Trim Char'] :=schar;
Sisimo.Params.Values['Interbase Translation'] :=sisolation;
Sisimo.Connected := true;
End;
Tudo funciona normalmente.
mas para testar no desenvolvimento eu preciso deixar no meu sqlconection
database :c:\sisimo\bdsisimo\sisloc.fdb e conected, como true.
meu problema : caso eu esqueça de limpar no sqlconection a databasename no no (f11) conected setar como false, o sistema dá erro. ao executar. ai volto la no udm e apago o nome e caminho da base de dados
e seto o conected como false, funciona normalmente. o que devo fazer para resolver isso via ini e não manualmente em cada udm, pois meu sistema possui diversos udm.
Att.
Juares
Arquivo SISIMO.INI
[CONFIG]
Servidor=localhost:C:\SISIMO\BDSISIMO\SISLOC.FDB
Usuario=SYSDBA
Senha=masterkey
DIALETO=3
CHARSET=ISO8859_1
NOMEDRIVE=INTERBASE
blob=-1
commitar=False
localecode=0000
role=RoleName
Translation=ReadCommitted
waitonloc=True
char=False
[LOCALFOTO]
ENDEREFOTO=C:\sisimo\sisloc\imagens
SALVAFOTO=C:\sisimo\sisloc\imagens
[RELATORIOS]
Caminho=C:\SISIMO\SISLOC\fastreports\
[FUNDO]
Caminho=c:\sisimo\sisloc\Imagens\fundo.bmp
[CEP]
Endereco=c:\SISIMO\BuscaCEPS\bancodedados\CEP.FDB
_______________________________________________
NO MEU DATAMODULO USO ASSIM
procedure TDmPrincipal.DataModuleCreate(Sender: TObject);
var
sServidor, sUsuario, sSenha, sBase, sCharset, NOMEDRIVE, sblog, scomit, slocalcode,
srole, sisolation, swaitononloc, schar: String;
iniFile : TIniFile; // da um uses IniFiles
begin
iniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'SISIMO.INI');
with iniFile do begin
sServidor := ReadString('CONFIG', 'Servidor', '');
sUsuario := ReadString('CONFIG', 'USUARIO', '');
sSenha := ReadString('CONFIG', 'SENHA', '');
sBase := ReadString('CONFIG', 'DIALETO', '');
sCharset := ReadString('CONFIG', 'CHARSET', '');
NOMEDRIVE := ReadString('CONFIG', 'NOMEDRIVE', '');
sblog := ReadString('CONFIG', 'BLOB', '');
scomit := ReadString('CONFIG', 'COMMITAR', '');
slocalcode := ReadString('CONFIG', 'localecode', '');
srole := ReadString('CONFIG', 'role', '');
sisolation := ReadString('CONFIG', 'translation', '');
sChar := ReadString('CONFIG', 'CHAR', '');
end;
Sisimo.Connected := false;
Sisimo.Params.Values['DATABASE'] := sServidor;
Sisimo.Params.Values['User_Name'] := sUsuario;
Sisimo.Params.Values['SQLDialect'] :=SBASE;
Sisimo.Params.Values['Password'] := sSenha;
Sisimo.Params.Values['ServerCharSet'] :=SCharset;
Sisimo.Params.Values['DriverName'] :=NOMEDRIVE;
Sisimo.Params.Values['BlobSize'] :=sblog;
Sisimo.Params.Values['CommitRetain'] :=scomit;
Sisimo.Params.Values['localCode'] :=slocalcode;
Sisimo.Params.Values['Trim Char'] :=schar;
Sisimo.Params.Values['Interbase Translation'] :=sisolation;
Sisimo.Connected := true;
End;
Tudo funciona normalmente.
mas para testar no desenvolvimento eu preciso deixar no meu sqlconection
database :c:\sisimo\bdsisimo\sisloc.fdb e conected, como true.
meu problema : caso eu esqueça de limpar no sqlconection a databasename no no (f11) conected setar como false, o sistema dá erro. ao executar. ai volto la no udm e apago o nome e caminho da base de dados
e seto o conected como false, funciona normalmente. o que devo fazer para resolver isso via ini e não manualmente em cada udm, pois meu sistema possui diversos udm.
Att.
Juares
Jorge Trento
Curtidas 0
Respostas
Wesley Yamazack
20/07/2010
Olá amigo,
Poderia testar da seguinte forma, antes de carregar o Ini, limpar os dados e fechar a conexão.
SQLConntConexao.Params.Clear;
SQLConntConexao.Close;
Att,
Wesley Y
Poderia testar da seguinte forma, antes de carregar o Ini, limpar os dados e fechar a conexão.
SQLConntConexao.Params.Clear;
SQLConntConexao.Close;
Att,
Wesley Y
GOSTEI 0
Jorge Trento
20/07/2010
Ok vou testar
Juares
Juares
GOSTEI 0
Jorge Trento
20/07/2010
Ok vou testar
Juares
Juares
GOSTEI 0
Wesley Yamazack
20/07/2010
Blz amigo fico no aguardo.
Att,
Wesley Y
Att,
Wesley Y
GOSTEI 0
Wesley Yamazack
20/07/2010
Olá amigo e ai consegui testar ?
Um abraço
Wesley Y
Um abraço
Wesley Y
GOSTEI 0
Devmedia
20/07/2010
Jorge,
por falta de retorno estamos encerrando o seu chamado. caso tenha mais duvidas sobre o assunto aqui tratado, por favor, volte a posta aqui mesmo que o consultor voltará a lhe atender.
por falta de retorno estamos encerrando o seu chamado. caso tenha mais duvidas sobre o assunto aqui tratado, por favor, volte a posta aqui mesmo que o consultor voltará a lhe atender.
GOSTEI 0