Falha na validação OpenSSL

[BigWings]

Boa tarde,

Ao fazer alguns testes após atualização dos fontes contemplando as implementações do tópico

Tive o seguinte erro ao rodar a opção "Validar XML" do demo, configurado com SSLib = libOpenSSL, Delphi XE5, compilado com MinGW ativado.

Citar

Project ACBrNFe_demo.exe raised exception class EACBrDFeException with message 'Falha ao carregar biblioteca de Criptografia do XMLSec [openssl]'.

O erro acontece na unit ACBrDFeXsXmlSec, no trecho:

  if (xmlSecCryptoDLLoadLibrary(PAnsiChar(XMLSecCryptoLib)) < 0) then
    raise EACBrDFeException.CreateFmt( cErrXmlSecLoadCriptoLib, [XMLSecCryptoLib] );

Alterei para:

  if (xmlSecCryptoDLLoadLibrary(PAnsiChar(AnsiString(XMLSecCryptoLib))) < 0) then
    raise EACBrDFeException.CreateFmt( cErrXmlSecLoadCriptoLib, [XMLSecCryptoLib] );

Resolveu o problema, não sei se é a melhor forma, em todo caso, segue a unit alterada.

ACBrDFeXsXmlSec.pas

[Daniel Simoes]

Obrigado BigWings... já no SVN...

[@Mauricio]

@BigWings como voce utiliza seus Schemas na aplicação? Exemplo: se voce tem o servidor e mais 2 terminais, voce coloca o Schemas em todas as maquinas ou somente no servidor? pois estava com esse mesmo erro que voce ajustou, apos esse ajuste ainda continuo com esse erro "the schema itself is not valid", utilizando OpenSSL.