Trocar em Run-Time OpenSSL ou Capicom

[joaoelson]

Olá amigos.

Procurei aqui no forum sobre isso mas não encontrei.

Vi o Tópico do Daniel, mas não tirou a dúvida.: http://www.projetoacbr.com.br/forum/topic/25032-opensslxmlsec-ou-capicom-dependencia-de-bibliotecas-externas/#comment-162480

 Seguinte...

Na minha aplicação, não consigo usar o OpenSSL. Na hora da configuração, passa direto para o capicom.

{$IFDEF ACBrNFeOpenSSL}
   //configura o openssl
{$ELSE} 
   //configura o capicom
{$ENDIF}   

Não alterei nada no ACBr.inc, porque vi que já vem configurado para usar os dois. 

No cabeçalho do demo tem o código.

{$I ACBr.inc}
{.$DEFINE ACBrNFeOpenSSL}

Mesmo assim não configura o openssl, passa direto para o {$ELSE}

Alguém sabe porque isso acontece, tenho que fazer alguma configuração?  

Editado 27 Outubro, 2015 por joaoelson

[windsoft]

Aparentemente voce ainda esta usando a trunk1, somente na trunk2 é possível alternar entre OpenSSL e Capcom em RunTime, na trunk1 você precisa alterar o ACBr.inc

 

[joaoelson]

Aparentemente voce ainda esta usando a trunk1, somente na trunk2 é possível alternar entre OpenSSL e Capcom em RunTime, na trunk1 você precisa alterar o ACBr.inc

 

Estou usando o trunk2

[Daniel Simoes]

[joaoelson]

Olá Daniel, como disse no começo, ja vi essa sua postagem.

Deixa eu explicar melhor o que estou tentando fazer.

Não é um erro que está ocorrendo, está tudo configurado perfeitamente, as DLL's copiadas para as pastas específicas e etc.

O que eu não estou conseguindo fazer, é verificar qual Lib estou usando, em run-time. Seja Openssl ou Capicom.

Se eu mudar para OpenSSL (ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;). O código abaixo não identifica se estou usando openssl, passa direto para o {$ELSE}, ou seja, capicom.

{$IFDEF ACBrNFeOpenSSL}
   //configura o openssl
{$ELSE} 
   //configura o capicom
{$ENDIF}   

No Demo acontece a mesma coisa, por isso perguntei se é preciso programar ou configurar outra coisa.

 

[Juliomar Marchetti]

Bom dia !

a primeira situação que deve ser feita é remover essas diretivas!

para saber em qual está usando basta fazer um simples if ou case

  case ACBrNFe.Configuracoes.Geral.SSLLib of
    libNone: ;
    libOpenSSL: ;
    libCapicom: ;
    libCapicomDelphiSoap: ;
  end;

 

[joaoelson]

Bom dia !

a primeira situação que deve ser feita é remover essas diretivas!

para saber em qual está usando basta fazer um simples if ou case

  case ACBrNFe.Configuracoes.Geral.SSLLib of
    libNone: ;
    libOpenSSL: ;
    libCapicom: ;
    libCapicomDelphiSoap: ;
  end;

 

olá Juliomar 

Ja tinha pensando em fazer isso, mas como vi que no demo estava assim, resolvi fazer o mesmo.

Demo

  {$IFDEF ACBrNFeOpenSSL}
         Label2.Top     := 56;
         edtSenha.Top   := 72;
         gbCertificado.Height := 144;
         edtCaminho.Text  := Ini.ReadString( 'Certificado','Caminho' ,'') ;
         edtSenha.Text    := Ini.ReadString( 'Certificado','Senha'   ,'') ;
         ACBrNFe1.Configuracoes.Certificados.ArquivoPFX  := edtCaminho.Text;
         ACBrNFe1.Configuracoes.Certificados.Senha       := edtSenha.Text;
         edtNumSerie.Visible := False;
         Label25.Visible := False;
         sbtnGetCert.Visible := False;
      {$ELSE}
         edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ;
         edtSenha.Text    := Ini.ReadString( 'Certificado','Senha'   ,'') ;
         ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text;
         edtNumSerie.Text := ACBrNFe1.Configuracoes.Certificados.NumeroSerie;
         Label1.Caption := 'Informe o número de série do certificado'#13+
                           'Disponível no Internet Explorer no menu'#13+
                           'Ferramentas - Opções da Internet - Conteúdo '#13+
                           'Certificados - Exibir - Detalhes - '#13+
                           'Número do certificado';
         Label2.Top     := 136;
         edtSenha.Top   := 152;
         gbCertificado.Height := 184;
         Label2.Visible := True;
         edtSenha.Visible   := True;
         edtCaminho.Visible := False;
         sbtnCaminhoCert.Visible := False;
      {$ENDIF}

 

[Juliomar Marchetti]

Prega fogo e remove!

Tenho aqui na empresa a 6 meses rodando onde  dependendo do cliente um ou outro ele usa !

[Daniel Simoes]

o IFDEF no Demo não é realmente necessário... e está lá apenas porque ainda não deu tempo de ajustar o Demo corretamente para o Trunk2

[Juliomar Marchetti]

Então.. apliquei mudanças nos demos para que se possa entender e usar essa mudança em runtime entre os tipos de emissão

Favor atualizar o svn e testar!