Erro Validar Xml Acbrnfe No Lazarus

[KikoMeurer]

estou usando um certificado valido pfx.

 

Lazarus e ACBRNfe2 com certificado OpenSSl

 

 

O erro ocorre bem nesta funação:

 

if not(NotaUtil.Valida(('<NFe xmlns' + RetornarConteudoEntre(Self.Items.XML, '<NFe xmlns', '</NFe>')+ '</NFe>'),

                            FMsg, Self.FConfiguracoes.Geral.PathSchemas, Self.FConfiguracoes.Geral.ModeloDF)) then

 

onde a libxml2 valida o conteúdo

 

Se alguém já passou por isso por favor me de uma Luz!

[Tercio Lins]

Boa terde KikoMeurer.

 

Estou com o mesmo problema usando o Lazarus.

 

Você já resolveu o problema?

 

 

Grato,

 

Tércio Lins.

[marciodc]

Eu também obtive o mesmo erro. Será que não dá para utilizar o Lazarus para assinar/validar a NFe?

[Juliomar Marchetti]

Bom dia

temos diversos colegas no fórum que usam a versão openssl para Lazarus e estão conseguindo validar!

Você mantem os fontes atualizado do svn e recompila todo o lazarus ou só faz de forma a compilar apenas o que não tem?

[marciodc]

Os fontes estão atualizados e o Lazarus recompilado. Mas, como você falou que tem outros usuários do forum conseguindo validar, vou apagar as dlls existentes e colocar outras para ver se funciona.

[KikoMeurer]

"Boa terde KikoMeurer.

 

Estou com o mesmo problema usando o Lazarus.

 

Você já resolveu o problema?

 

 

Grato,

 

Tércio Lins."

 

Na ainda apenas crio o xml no lazarus e mando para o ACBRNFeMonitor. fazer o resto.

 

Mas ainda espero conseguir.

 

Att;

[marciodc]

Ainda não e como estou com pouco tempo preferi criar uma dll no delphi para assinar, validar e enviar.

[KikoMeurer]

Que massa Marcio.

 

Po bem que podia disponibilizar esta dll e o fonte para gente também, pq to achando que não valida o xml com a libxml2

não pq nem o demo funciona.

 

Erro ocorre aqui.

 

if (xmlSchemaValidateDoc(valid_ctxt, doc) <> 0) then

begin

       schemError := xmlGetLastError();

       AMsg := IntToStr(schemError^.code)+' - '+schemError^.message;

       Result := False;

       exit;

end;

 

Att;

[marciodc]

Algumas coisas ainda devem ser melhoradas, mas emergencialmente funciona. Se fizer alguma alteração manda para mim.

 

 

Editado 21 Julho, 2014 por Juliomar Marchetti
ANEXE O ARQUIVO E NÃO COLE NO POST

[marciodc]

Nesse caso, aqui vai o arquivo correto.

nfe.dpr

nfe.dpr