Erro no SSLType com OpenSSL

[icozeira]

Estou tentando configurar meu sistema para gerar NFe/NFCe com OpenSSL.

Estou usando uma maquina virtual c/Windows 7 Ultimate 32 bits.

Uso DelphiXE e o sistema faz build e compila normalmente.

Mas, quando tento consultar o Status do Serviço, me retorna o seguinte erro:

OpenSSL 1.0.2e 3Dec 2015, não suporta.

Isto ocorre na linha 218 da Unit ACBrDFeHttpOpenSSL.

O Componente está configurado da seguinte forma:
SSLLib = libOpenSSL
CryptLib = cryOpenSSL
HttpLib = httpOpenSSL
XMLSignLib = sxLibXml2

a SSLType já tentei tanto o LT_all como LT_TLSv1_2 e os dois retornam erro.

o Arquivo ACBR.inc está assim configurado:
{.$DEFINE DFE_SEM_OPENSSL}
{.$DEFINE DFE_SEM_XMLSEC}
{.$DEFINE DFE_SEM_LIBXML2}
{$DEFINE DFE_SEM_CAPICOM}
{$DEFINE DFE_SEM_MSXML}
{.$DEFINE DFE_SEM_INDY}

{$DEFINE USE_MINGW}

Já copiei todas as DLLs das pastas:

\acbr\DLLs\XMLSec\MinGW\32 e \acbr\DLLs\OpenSSL\1.0.2.13 tanto para a pasta do Executável como para
System32.

Já re instalei o ACBR com o Instalador como Administrador várias vezes, inclusive apagando todos os arquivos anteriores. Inclusive, usando o apagarACBr.bat como administrador também.

Lí esses links no fórum:
https://www.projetoacbr.com.br/forum/topic/25032-opensslxmlsec-ou-capicom-dependencia-de-bibliotecas-externas/
https://www.projetoacbr.com.br/forum/topic/34177-acbrdfe-openssl-e-tls12/

Assisti os Vídeos
https://www.projetoacbr.com.br/forum/video/view/11-conheça-a-acbrdfessl/
https://www.projetoacbr.com.br/forum/video/view/7-como-simular-o-erro-de-timeout-de-conexão-no-acbr/

Mas, não consegui resolver o problema.

Na verdade, não sou um bom conhecedor do assunto e só consegui chegar até aqui, graças à leitura que fiz nos posts e assistindo os vídeos.

Só para subsidiar, com SSLLib = libWinCrypt consigo fazer funcionar, evidentemente alterando as demais configurações.

 

 

[icozeira]

Boa tarde,

Acho que descobri o problema.
Estou usando a rotina abaixo para alimentar o componente:

    pStrLst.Clear;
    for Y := Low(TSSLType) to High(TSSLType) do
      begin
        pStrLst.Add(trim(GetEnumName(TypeInfo(TSSLLib), Integer(Y))));
      end;
    pACBR.SSL.SSLType            := TSSLType(pStrLst.IndexOf(pObjCfg55.certificadoSsltype));

Não sei o que ocorre que o meu objeto  pObjCfg55.certificadoSsltype vem carregado corretamente com LT_TLSv1_2, mas, o Componente não preenche fica armazenado (out of bound) -1 (vazio).

Quando atribuo valor manualmente sem a rotina, consigo fazer a consulta do Status.

De toda maneira, creio que o problema é na minha aplicação.

Portanto, até nenhum novo problema, considere post encerrado.

 

[José M. S. Junior]

Obrigado por reportar.