Erro carregado o arquivo libeay32.dll na copilação do ECFTeste

[elixandre]

Hoje fiz a atualização do fontes do acbr do trunk2 como sempre faço, desinstalei minha versão instalada que já é também os fontes do trunk2, fui fazer a compilação do ECFDemo, ele até copila mas ao carregar ele dá um erro e fala que não conseguiu carregar o arquivo libeay32.dll, que na minha máquina por ser windows 7 64 bits está na pasta C:\Windows\SysWOW64.

Já apaguei desta pasta, coloquei na pasta do demo, mas o erro persiste. O que pode ser feito para resolver este problema ?

 Quando faço um break no código é na linha vermelha que o problema ocorre :

procedure OpenSSL_add_all_algorithms;
var
  hLibeayDLL: THandle;
  Add_all_algorithms_procedure: TOpenSSL_InitFunction;
  LibPointer : Pointer ;
begin
{$IFDEF FPC}
 hLibeayDLL := dynlibs.LoadLibrary(LIBEAY_DLL_NAME) ;
{$ELSE}
 hLibeayDLL := GetModuleHandle(LIBEAY_DLL_NAME); //o erro ocorre aqui !!!!
{$IFEND}
if hLibeayDLL = 0 then
  raise Exception.Create('libeay32.dll not loaded');
// Try to load new version
LibPointer := GetProcAddress(hLibeayDLL, 'OPENSSL_add_all_algorithms_noconf');
// Fallback to old version
if LibPointer = nil then
  LibPointer := GetProcAddress(hLibeayDLL, 'OpenSSL_add_all_algorithms');
if LibPointer <> nil then
  begin
  Add_all_algorithms_procedure := TOpenSSL_InitFunction(LibPointer) ;
  Add_all_algorithms_procedure;
  end
else
  raise Exception.Create('OpenSSL_add_all_algorithms procedure not defined in libeay32.dll');
end;

 

[Fernando Amado]

Qual versão do Delphi você está usando?

Qui tive problemas na Unit libeay32.pas depois do Commit do dia 08/09/2015 devido a troca dos {$ENDIF} para {$IFEND}, no meu Delphi7 não funcionou, voltei tudo para {$ENDIF} e estou usando normalmente.

[elixandre]

Estou usando o Rad Studio XE7

Qual versão do Delphi você está usando?

Qui tive problemas na Unit libeay32.pas depois do Commit do dia 08/09/2015 devido a troca dos {$ENDIF} para {$IFEND}, no meu Delphi7 não funcionou, voltei tudo para {$ENDIF} e estou usando normalmente.

 

Editado 9 Setembro, 2015 por elixandre

[Fernando Amado]

Realmente teve uma falha, da uma olhada nesse tópico: http://www.projetoacbr.com.br/forum/topic/24208-acerto-em-libeay32pas/#comment-156260