acerto em libeay32.pas

JoaoPauloRicardo · 9 Setembro, 2015

segue acerto, para analise, em libeay32.pas, segundo diretiva IFEND directive (Delphi), conforme abaixo descrito.
"When hiding $IF inside $IFDEF/$ENDIF, do not use $ELSE with the $IF. Previous version compilers will interpret the $ELSE as part of the $IFDEF, producing a compiler error. You can use an {$ELSEIF True} as a substitute for {$ELSE} in this situation, since the $ELSEIF won't be taken if the $IF is taken first, and the older compilers will not interpret the $ELSEIF."

troquei tambem as terminações da diretiva ifdef pois não estava a compilar nas versoes delphi mais antigas (mesmo mais antiga)

por favor testem em versoes novas pois a minha é antiga (a tal mais antiga), só para informar que estou a usar delphi2006

libeay32.pas

Editado 9 Setembro, 2015 por 3Soft Sistemas
informar versao delphi

Isaque Pinheiro · 9 Setembro, 2015

Que versão do delphi vc usa ? Pois o ACBr só da suporte do D7...XE9

JoaoPauloRicardo · 9 Setembro, 2015

uso delphi2006

a correção que enviei deve cobrir todos os compiladores

Daniel Simoes · 9 Setembro, 2015

Ontem notei falha de compilação no D7 nessa Unit... mas já notifiquei o REgys

JoaoPauloRicardo · 9 Setembro, 2015

valeu.

conforme disse no delphi2006 já compila ok, fico no aguardo para o restante pois tambem vamos efetuar o ugrade para XE9 (um ugrade muito lento)

Régys Silveira · 9 Setembro, 2015

Estas alterações que você enviou na verdade eram a primeira versão do arquivo, muita gente reclamou que não compilava, dai acertamos, vou ter que montar uma VM com várias versões do delphi para testar antes de liberar outra versão, para não ficarmos refazendo.

JoaoPauloRicardo · 9 Setembro, 2015

ja comparaste a correção que enviei com a versao 9911?

eu alterei todas as terminações endif só para manter o código segundos as diretivas, contudo creio que para reslover o problema de compilação basta resolver os pontos relacionados com o else, esse é onde o compilador barra realmente, conforme podes constatar comparando as 2 versoes.

compilei com essa versao alterada e funcionou bem na minha versao.

libeay32.pas

Editado 9 Setembro, 2015 por 3Soft Sistemas

Régys Silveira · 9 Setembro, 2015

Enviei o acerto para o repositório, peço que testem nas várias versões do delphi para termos certeza que está tudo 100%.

Breno007 · 9 Setembro, 2015

Enviei o acerto para o repositório, peço que testem nas várias versões do delphi para termos certeza que está tudo 100%.

Régis, boa tarde.

Parceiro continuo tentando copilar o acbr e esta dando erro justamente no libeay32.pas já colei as dll's openssl para todas as pastas necessárias mas mesmo assim não tenho exito. Você poderia me orientar!? para constar uso o delphi 2010.

Editado 9 Setembro, 2015 por Breno007

Daniel Simoes · 9 Setembro, 2015

Regys,

Tudo certo com D7... No Lazarus essa Unit não é utilizada...

JoaoPauloRicardo · 9 Setembro, 2015

breno pah ja atualizaste as sources?

Valdecir Luciano Carvalho · 9 Setembro, 2015

@Breno007

Qual versão de Delphi esta utilizando ?

O problema que esta tendo é na compilação ou execução do aplicativo compilado com o novo source ? Se possível tire uma foto ou copie o log de compilação (se for o caso) e poste aqui.

elixandre · 10 Setembro, 2015

Enviei o acerto para o repositório, peço que testem nas várias versões do delphi para termos certeza que está tudo 100%.

Régys estou usando o delphi XE7 e esta ocorrendo o mesmo erro, por exemplo o demo ECFTeste1 copila , mas na hora que executa a função :

hLibeayDLL := GetModuleHandle(LIBEAY_DLL_NAME); na linha 1318, retorna "0" e é executado a exceção programada, utilizo o acbr com o delphi xe8 no windows 7 64 bits.

Régys Silveira · 10 Setembro, 2015

Aqui eu testei com XE7 e XE8 e está tudo normal, utilizando a última versão do repositório.

elixandre · 10 Setembro, 2015

Enviei o acerto para o repositório, peço que testem nas várias versões do delphi para termos certeza que está tudo 100%.

Régys estou usando o delphi XE7 e esta ocorrendo o mesmo erro, por exemplo o demo ECFTeste1 copila , mas na hora que executa a função :

hLibeayDLL := GetModuleHandle(LIBEAY_DLL_NAME); na linha 1318, retorna "0" e é executado a exceção programada, utilizo o acbr com o delphi xe8 no windows 7 64 bits.

Valdecir Luciano Carvalho · 10 Setembro, 2015

Enviei o acerto para o repositório, peço que testem nas várias versões do delphi para termos certeza que está tudo 100%.

Régys estou usando o delphi XE7 e esta ocorrendo o mesmo erro, por exemplo o demo ECFTeste1 copila , mas na hora que executa a função :

hLibeayDLL := GetModuleHandle(LIBEAY_DLL_NAME); na linha 1318, retorna "0" e é executado a exceção programada, utilizo o acbr com o delphi xe8 no windows 7 64 bits.

Tente colocar os arquivos libeay32.dll, ssleay32.ddl no mesmo diretório do executável e tente novamente.

Se ainda tiver com o erro baixe o arquivo dependency walker ( http://www.dependencywalker.com/ ) e verifique cada uma das dlls se não falta alguma dependencia.

Apesar de não ser muito óbvio, uma dll pode carregar outras dlls as quais ela pode depender que exista na maquina, visível pelo path de execução,e ainda, no escopo de acesso do usuário que esta executando o aplicativo / dll.

E pior, é importante que as dependencias sejam de versões compatíveis pois senão qualquer problema de versionamento pode quebrar a assinatura de métodos ou mesmo a funcionalidade esperada. Por exemplo, a versão 1.0.2d (1.0.2.4) do OpenSSL (libeay32 e ssleay32) depende da msvcr120.dll (12.0.21005.1) que não necessariamente vem no windows.

Editado 10 Setembro, 2015 por Valdecir Luciano Carvalho

Daniel Carus · 10 Setembro, 2015

Uso o DELPHI XE8 e deu o mesmo problema de não encontrar a dll, após tentar colocar a dll junto com o exe e na syswow64 e nao funcionar, testei com o TRUNK1 e compilou, então peguei o libeay32.pas do TRUNK1 e coloquei no TRUNK2, ai funcionou , não deu mais o erro de não encontrar a dll.

Editado 10 Setembro, 2015 por Daniel Carus

Valdecir Luciano Carvalho · 10 Setembro, 2015

Enviei o acerto para o repositório, peço que testem nas várias versões do delphi para termos certeza que está tudo 100%.

Régys estou usando o delphi XE7 e esta ocorrendo o mesmo erro, por exemplo o demo ECFTeste1 copila , mas na hora que executa a função :

hLibeayDLL := GetModuleHandle(LIBEAY_DLL_NAME); na linha 1318, retorna "0" e é executado a exceção programada, utilizo o acbr com o delphi xe8 no windows 7 64 bits.

Tente colocar os arquivos libeay32.dll, ssleay32.ddl no mesmo diretório do executável e tente novamente.

Se ainda tiver com o erro baixe o arquivo dependency walker ( http://www.dependencywalker.com/ ) e verifique cada uma das dlls se não falta alguma dependencia.

Apesar de não ser muito óbvio, uma dll pode carregar outras dlls as quais ela pode depender que exista na maquina, visível pelo path de execução,e ainda, no escopo de acesso do usuário que esta executando o aplicativo / dll.

E pior, é importante que as dependencias sejam de versões compatíveis pois senão qualquer problema de versionamento pode quebrar a assinatura de métodos ou mesmo a funcionalidade esperada. Por exemplo, a versão 1.0.2d (1.0.2.4) do OpenSSL (libeay32 e ssleay32) depende da msvcr120.dll (12.0.21005.1) que não necessariamente vem no windows.

Uso o DELPHI XE8 e deu o mesmo problema de não encontrar a dll, após tentar colocar a dll junto com o exe e na syswow64 e nao funcionar, testei com o TRUNK1 e compilou, então peguei o libeay32.pas do TRUNK1 e coloquei no TRUNK2, ai funcionou , não deu mais o erro de não encontrar a dll.

Experimentem fazer essa pequena modificação no código e vejam se resolve o problema:

procedure OpenSSL_add_all_algorithms;
var
  hLibeayDLL: THandle;
  Add_all_algorithms_procedure: TOpenSSL_InitFunction;
  LibPointer : Pointer;
  {$IFNDEF FPC}sTmp :string;{$ENDIF}
begin
{$IFDEF FPC}
 hLibeayDLL := dynlibs.LoadLibrary(LIBEAY_DLL_NAME) ;
{$ELSE}
 sTmp := String(SSLeay_version( 0 ));
 hLibeayDLL := GetModuleHandle(LIBEAY_DLL_NAME);
{$ENDIF}
....

Editado 10 Setembro, 2015 por Valdecir Luciano Carvalho
Correção de texto duplicado.

Daniel Carus · 10 Setembro, 2015

Valdecir, peguei a unit do svn e alterei para o solicitado e funcionou!

Se eu remover a linha

sTmp := String(SSLeay_version( 0 ));

o erro ocorre;

Então no meu caso ta resolvido, parabéns.

Henrique · 10 Setembro, 2015

Esse libeay ta doido, acabei de atualizar , e veio com algumas "sujeiras no codigo"

uses
{$IFDEF FPC} dynlibs, {$ELSE} Windows, {$ENDIF} SysUtils;

const
{$IFDEF MSWINDOWS}
   LIBEAY_DLL_NAME = 'libeay32.dll';
//<<<<<<< .mine <-------------------- tive que remover
{$IFNDEF FPC}{$IF CompilerVersion >= 21}{$DEFINE USE_DELAYED}{$IFEND}{$ENDIF}
//=======   <-------------------- tive que remover
{$IFNDEF FPC}{$IF CompilerVersion >= 21}{$DEFINE USE_DELAYED}{$IFEND}{$ENDIF}
//>>>>>>> .r9926  <-------------------- tive que remover
{$ELSE}
   LIBEAY_DLL_NAME = 'libcrypto';
{$ENDIF}

Valdecir Luciano Carvalho · 10 Setembro, 2015

Valdecir, peguei a unit do svn e alterei para o solicitado e funcionou!

Se eu remover a linha
sTmp := String(SSLeay_version( 0 ));
o erro ocorre;

Então no meu caso ta resolvido, parabéns.

Então, o problema era que a utilidade do GetModuleHandle é de retornar o handle da dll supostamente ja em memoria pela referencia estática das externals.

No entanto, com o "delayed" a carga não aconteceu ainda no momento da chamada desse procedimento pq não existiu até o momento nenhuma chamada que fizesse a aplicação carrega-la (por demanda). O que fiz ali foi só garantir que existe pelo menos uma chamada simples de uma função da dll pra assegurar que existe o carregamento da antes de tentar pegar o handle.

Esse libeay ta doido, acabei de atualizar , e veio com algumas "sujeiras no codigo"

uses
{$IFDEF FPC} dynlibs, {$ELSE} Windows, {$ENDIF} SysUtils;

const
{$IFDEF MSWINDOWS}
   LIBEAY_DLL_NAME = 'libeay32.dll';
//<<<<<<< .mine <-------------------- tive que remover
{$IFNDEF FPC}{$IF CompilerVersion >= 21}{$DEFINE USE_DELAYED}{$IFEND}{$ENDIF}
//=======   <-------------------- tive que remover
{$IFNDEF FPC}{$IF CompilerVersion >= 21}{$DEFINE USE_DELAYED}{$IFEND}{$ENDIF}
//>>>>>>> .r9926  <-------------------- tive que remover
{$ELSE}
   LIBEAY_DLL_NAME = 'libcrypto';
{$ENDIF}

Não esta doido, isso ai é um resultado esperado de uma resolução de conflito no svn.

Sugiro vc fazer um svn "revert" desse arquivo, assim vc vai ter ele limpo como esta no servidor. Aí só depois vc aplica suas edições se achar necessário.

Editado 10 Setembro, 2015 por Valdecir Luciano Carvalho
merge de posts.

MSOFT · 11 Setembro, 2015

Valdecir estava dando o mesmo problema comigo com o delphi xe. Fiz a modificação que você falou e ficou blz! Muito obrigado!

Roney Melo · 17 Setembro, 2015

Olá, alguém teve problemas com Delphi XE5 ? efetuei a instalação do trunk2 hoje (17/09/2015) conforme orientação do Regys no link : https://regys.com.br/como-instalar-o-trunk2-do-acbr/

porém ao compilar erro da libeay32.dll persiste, ao tentar carregar o executável apresenta:

Exception Exception in module PDV.exe at 00552817.

libeay32.dll not loaded.

versão do meu Delphi é o XE5.

Roney Melo · 17 Setembro, 2015

Pessoal no arquivo libeay32.pas da linha 1291 a linha 1297 tem a declaração de uma constante:

const
{$IFDEF MSWINDOWS}
LIBEAY_DLL_NAME = 'libeay32.dll';
// {$IFNDEF FPC}{$IF CompilerVersion >= 21}{$DEFINE USE_DELAYED}{$IFEND}{$ENDIF}
{$ELSE}
LIBEAY_DLL_NAME = 'libcrypto';
{$ENDIF}

exatamente a parte em negrito ai comentei, ai funcionou perfeitamente, quais problemas posso ter ao comentar essa linha de código ? alguém pode me dizer por favor....

Juliomar Marchetti · 17 Setembro, 2015

Sim irei aplicar uma alteração para que quem quiser usar isso que faça no ACBr.inc e não fique validando versão do compilador

Entrar

Sobre nós...

acerto em libeay32.pas

Recommended Posts

JoaoPauloRicardo

Isaque Pinheiro

JoaoPauloRicardo

Daniel Simoes

JoaoPauloRicardo

Régys Silveira

JoaoPauloRicardo

Régys Silveira

Breno007

Daniel Simoes

JoaoPauloRicardo

Valdecir Luciano Carvalho

elixandre

Régys Silveira

elixandre

Valdecir Luciano Carvalho

Daniel Carus

Valdecir Luciano Carvalho

Daniel Carus

Henrique

Valdecir Luciano Carvalho

MSOFT

Roney Melo

Roney Melo

Juliomar Marchetti

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br