Pascoal

Ok. obrigado.

Estou anexando a unit. ACBrCargaBal.pas

O procedure GerarArquivos da classe TACBrCargaBal, contem cindo variaveis do tipo TStringList, as mesmas estão sendo criadas mas somente as três primerias estão sendo removidas da memoria. Eu adicionei duas linhas para remover as variaveis da memoria, como no codigo abaixo. Seria interessante adicionar a remoção das variaveis da memoria e disponibiliza no projeto acbr para as proximas atualizações. procedure TACBrCargaBal.GerarArquivos(const ADiretorio: String); var Produto, Setor, Receita, Nutricional: TStringList; RelacaoProdutoNutricional, RelacaoProdutoReceita: TStringList; NomeArquivo: TFileName; Total: integer; begin if Trim(ADiretorio) = EmptyStr then raise EACBrCargaBal.Create(ACBrStr('Informe o diretório onde serão gerados os arquivos de carga!')); if not DirectoryExists(ADiretorio) then raise EACBrCargaBal.Create(ACBrStr('Diretorio informado não existe!')); if Self.Produtos.Count = 0 then raise EACBrCargaBal.Create(ACBrStr('Não foram informados os produtos para a geração!')); Produto := TStringList.Create; Produto.Clear; Setor := TStringList.Create; Setor.Clear; Receita := TStringList.Create; Receita.Clear; Nutricional := TStringList.Create; Nutricional.Clear; RelacaoProdutoNutricional := TStringList.Create; RelacaoProdutoNutricional.Clear; RelacaoProdutoReceita := TStringList.Create; RelacaoProdutoReceita.Clear; ... Progresso('Terminado', Total, Total); finally FreeAndNil(Produto); FreeAndNil(Setor); FreeAndNil(Receita); FreeAndNil(Nutricional); { Por: Pascoal de Castro. Em 19/11/2016.} FreeAndNil(RelacaoProdutoNutricional); FreeAndNil(RelacaoProdutoReceita); end;

Sr. passei por esse problema, depois de algumas tentativas e com ajuda consegui resolver meu problema, vou postar o que funcionou: Lazarus com libxmlsec em 64bit. No terminal: sudo apt-get install libxmlsec1-dev libltdl-dev Baixar: https://www.aleksey.com/xmlsec/download.html The latest stable XML Security Library version is 1.2.22... (versão no memento) ..."Sources for latest version."... ... Installation (source archive) gunzip -c xmlsec1-xxx.tar.gz | tar xvf - cd xmlsec1-xxxx ./configure --help ./configure [possible options] make make install make check ... Baixar: Exemplo: /home/usuario/Downloads/xmlsec1-1.2.22.tar.gz Apos baixar. Extrai em uma pasta. Exemplo: /home/usuario/Downloads/xmlsec1-1.2.22 No terminal fazer o seguinte: Entrar na pasta. 1) cd /home/usuario/Downloads/xmlsec1-1.2.22 2) ./configure 3) make 4) sudo make install 5) make check Depois crie os links simbolicos para a versao da sua LIB, da seguinte forma, também no terminal : sudo ln -s /usr/local/lib/libxmlsec1.so.1.2.22 /usr/local/lib/libxmlsec1.so.1 (se exibir uma mensagem avisado que o arquivo ja existe, continuar) sudo ln -s /usr/local/lib/libxmlsec1.so.1.2.22 /usr/local/lib/libxmlsec.so sudo ln -s /usr/local/lib/libxmlsec1.so.1.2.22 /usr/bin/libxmlsec.so sudo ln -s /usr/local/lib/libxmlsec1.so.1.2.22 /usr/lib/libxmlsec.so Pronto para "Construir o lazarus com perfil: Normal IDE". do menu Ferramentas da IDE Lazarus. Dados do ambiente: S.O.: Ubuntu 14.04 LTS, 64 bit FPC : 2.6.4 IDE : Lazarus 1.4.4 x86_64-linux-gtk 2 REFERÊNCIAS ACBR. NFe no Linux. Disponível em: <http://www.projetoacbr.com.br/forum/topic/188-nfe-no-linux/>. Acesso em 27 de abril de 2016 XMLSec Library. Download. Disponível em: <https://www.aleksey.com/xmlsec/download.html>. Acesso em 27 de abril de 2016