Problema com o acbrecf001.ini

[tchuck]

Bom dia, estou usando as impressoras Virtuais para usar o a NFC-e e o SAT, porem estou com algum problema no arquivo acbrecf001.ini que o mesmo limpa tudo, por causa desse problema eu estou gravando o conteudo do arquivo no banco de dados, e usando as propriedades LerArqIN Ie Grava Ini, porem mesmo assim o problema acontece pois os componentes depende do arquivo mesmo eu tendo todos os dados corretos no banco de dados.

Quando o componente usa a propriedade LerArqINI eu passo para o ConteudoIni as informações do meu banco de dados com esta correto, mas no arquivo ini não esta ai o componente ler os arquivo errados e me grava errado na base quando uso o Gravar.

Creio que se eu usar a propriedade LerArqINI pelo componente ele teria q respeitar essa opção e não ler o  acbrecf001.ini no caso isso não esta acontecendo.

[Daniel Simoes]

Se deseja propor melhorias para os fontes, favor anexar as units modificadas para analise...

[tchuck]

Eu estou tentando umas modificações no componente para isso a leitura eu consegui fazer alterando a procedure LeArqINIVirtual

procedure TACBrECFVirtualClass.LeArqINIVirtual(ConteudoINI: TStrings);
begin
  if not FileExists( fpNomeArqINI ) then
    CriarMemoriaInicial;

//Adicionei essa verificação
  if ConteudoINI.Text <> '' then
    ConteudoINI.Text := ConteudoINI.Text
  else
   ConteudoINI.LoadFromFile( fpNomeArqINI );
end;

Funciona certinho, mas na gravação se eu não tiver o arquivo  acbrecf001.ini ele grava tudo zerado essa parte que estou com dificuldade para ler variável ConteudoINI que esta correta e gravar com os dados dele.

[Daniel Simoes]

Desculpe.... mas esse IF não parece fazer sentido...

  if ConteudoINI.Text <> '' then
    ConteudoINI.Text := ConteudoINI.Text

Você já está usando os eventos "QuandoLerArqINI"  e "QuandoGravarArqINI" ?

[tchuck]

Estou ainda fazendo testes e Realmente o if não tem sentido mesmo mas é no caso dessa 

procedure TACBrECFVirtualClass.LeArqINIVirtual(ConteudoINI: TStrings) esta relacionada ao  ConteudoINI.LoadFromFile( fpNomeArqINI ) ou seja ela sempre irá pegar o arquivo e não o conteudo pasado na  QuandoLerArqINI  eu ja uso as duas propriedades e esse esta sendo o problema pois o componente esta ignorando as propriedades que eu estou passando.

Como eu estou testando tinha so colocado uma opção nessa procedure e tudo tinha funcionado corretamente como por exemplo:

  if not FileExists( fpNomeArqINI ) and (ConteudoINI.Text = '') then
    CriarMemoriaInicial;

  if ConteudoINI.Text <> '' then
    ConteudoINI.Text := ConteudoINI.Text
  else
   ConteudoINI.LoadFromFile( fpNomeArqINI );

Eu pensei no caso se o fpNomeArqINI fosse = '' ai faria a verificação no ConteudoINI

Nossa esquece tudo o que eu escrevi aqui Habilitei a opção Tratado e parece  que resolveu o problema

Editado 16 Junho, 2016 por tchuck

[Daniel Simoes]

Sim, se você "responder" ao evento como "Tratado = True", então o componente não fará a parte dele... pois compreende que você já o fez...