Problema no Arquivo Ini

20/07/2010

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


Jorge Trento

Jorge Trento

Curtidas 0

Respostas

Wesley Yamazack

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
 


GOSTEI 0
Jorge Trento

Jorge Trento

20/07/2010

Ok vou testar


Juares
GOSTEI 0
Jorge Trento

Jorge Trento

20/07/2010

Ok vou testar


Juares
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

20/07/2010

Blz amigo fico no aguardo.


Att,

Wesley Y
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

20/07/2010

Olá amigo e ai consegui testar ?

Um abraço

Wesley Y
GOSTEI 0
Devmedia

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.
GOSTEI 0
POSTAR