AcbrNFeServicos.ini

[Valdir Dill]

Boa tarde,

Pelo que entendi, eu posso tanto enviar o arquivo AcbrNFeServicos.ini para o cliente e setar a propriedade ACBrNFe1.Configuracoes.Arquivos.IniServicos, como colocar a diretiva {$R 'ACBrNFeServicos.res' 'ACBrNFeServicos.rc'} no meu sistema. Ambos vão funcionar da mesma forma, certo?

Uma dúvida: há alguma forma melhor de fazer isso, ou seja, é mais recomendável a diretiva ou enviar o arquivo junto na instalação? Quais os contras de um e de outro?

Obrigado!

[Juliomar Marchetti]

Boa tarde

você informando ele para compilar ele vai ser empacotado junto ao exe e não vai depender de ser levado em separado.

mas nada impede de tu jogar posterior o arquivo lá caso precise fazer alguma mudança local.

[automa]

ola...
estou com o mesmo problema.. 
eu setei o arquivo ACBrNFe1.Configuracoes.Arquivos.IniServicos
contudo o sistema continua puxando errado, e algum local que não consigo identificar.. 
ou seja, nao puxou a configuracao que está no IniServicos, no local indicado.

alguem pode dar uma dica?

[Márcio Barbiero]

Eu coloquei o arquivo ACBrNFeServicos.ini junto com o fonte do projeto... funcionou para mim.

[dionebueno]

On 5/16/2017 at 3:14 PM, Juliomar Marchetti said:

Boa tarde

você informando ele para compilar ele vai ser empacotado junto ao exe e não vai depender de ser levado em separado.

mas nada impede de tu jogar posterior o arquivo lá caso precise fazer alguma mudança local.

Boa tarde Juliomar, estou com o mesmo problema, como empacotado junto ao exe ?

[André Ferreira de Moraes]

Vejam as funções abaixo para entender quando o arquivo ACBrNFeServicos.ini será lido:

procedure TWebServicesConf.LerParams;
var
  ConteudoParams: AnsiString;
begin
  ConteudoParams := LerParamsIniServicos;

  if ConteudoParams = '' then
    ConteudoParams := LerParamsInterno;

  FParams.Text := ConteudoParams;
end; 

 

function TWebServicesConf.LerParamsIniServicos: AnsiString;
var
  SL: TStringList;
begin
  Result := '';

  if (fpConfiguracoes.Arquivos.IniServicos <> '') and
    FileExists(fpConfiguracoes.Arquivos.IniServicos) then
  begin
    SL := TStringList.Create;
    try
      SL.LoadFromFile(fpConfiguracoes.Arquivos.IniServicos);
      Result := SL.Text;
    finally
      SL.Free;
    end;
  end;
end; 

Ou seja, o arquivo será lido apenas se a propriedade ACBrNFe1.Configuracoes.Arquivos.IniServicos estiver preenchida e o arquivo existir no disco, caso contrário será chamada a função LerParamsInterno que irá obter o conteúdo do Resource embutido automaticamente na aplicação.