ERROR CORREO - not load ssl library

[pruz]

Buenas tardes amigo:

estoy haciendo un pequeña aplicacion de envio de correo por gmail.
pero me da el siguiente error "Could not load SSL library".

1.- Tengo las librerias libeay32.dll y ssleay32.dll en el mismo directorio del proyecto. (luego las cambie al windows\system32, pero dio el mismo erro). Baje las ultimas versiones del sitio https://indy.fulgan.com/SSL/, y probe con varias pero siempre el mismo error.

2.- Estoy usando Delphi 6 e Indy 10.0.

3.- Ya configure el gmail, para aceptar correo desde otras aplicacion.

4.- aqui va el codigo, si alguien me puede ayudar.



procedure TForm1.SendCorreo(Sender: TObject);
begin

//indySMTP es de tipo TIdSMTP (el icono es un buzon azul)
//mailMensaje es de tipo TIdMessage (el icono es un sobre)
//IdSSLIOHandlerSocket1 es un componente TIdSSLIOHandlerSocket (el icono es un candadito)


mailMensaje.Clear;
mailMensaje.From.Address := Trim(sUsuarioCorreo); //'tu_email@gmail.com';
mailMensaje.Subject := Trim(EdtAsunto.Text); //'Asunto';
mailMensaje.Body.SetText(MCuerpoCorreo.Lines.GetText); //cuerpo del mensaje
mailMensaje.From.Name := Trim(EdtQuien.Text); // 'Tu Nombre';

mailMensaje.Recipients.EMailAddresses := Trim(edtPara.Text) ; //'email_destino';

// TIdAttachment.Create(mailMensaje.MessageParts, Trim(edtAnexo.Text)) ;



//Configuracion parametros SSL
IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(self);
IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23;
IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient;

IndySMTP.IOHandler := IdSSLIOHandlerSocket;
IndySMTP.UseTLS := utUseImplicitTLS;
IndySMTP.AuthType := atDefault;

IndySMTP.Host := sServidorCorreo; //servidor de envio smtp.gmail.com
IndySMTP.Port := StrToInt(sPuertoCorreo); //puerta 465
IndySMTP.Username := sUsuarioCorreo; //usuario xxxxx@gmail.com
IndySMTP.Password := sClaveCorreo; //password

indySMTP.Connect;

try
indySMTP.Authenticate;

if indySmtp.Connected then begin
indySMTP.Send(mailMensaje);
try
showmessage('El mensaje se envió correctamente');
except
showmessage('Error al enviar correo');

serror := 1;

end;
end else begin
showmessage('Error en la Conexion o el Servicio.');
serror := 2;
end;
except
showmessage('Se produjo un fallo durante el envío del mensaje');
serror := 3;

end;
if indySMTP.Connected then
indySMTP.Disconnect;

end;


Gracias,
Patricio

[Casimiro Notevi]

Por favor, recuerda usar las etiquetas para código:

[PepCat]

Tengo las librerias libeay32.dll y ssleay32.dll en el mismo directorio del proyecto

Las libreriras tienen que estar en la misma carpeta del "ejecutable".

En github tienes esta clase para enviar correos desde gmail por si la quieres probar: https://github.com/JosepPages7/Delphi-GEmail

[Garada]

¿Estás usando las de 32 bits? Las DLL deben de ser de la misma arquitectura que el programa, si es Delphi 6 pues será una aplicación de 32 bits.

Hace tiempo que no uso las DLL pero también puedes probar a descargar versiones más viejas de la carpeta "Archive" y si funciona ir subiendo de versión hasta que encuentres la última que casa con tu versión de las Indy.

[Neftali [Germán.Estévez]]

Empezado por pruz

pero me da el siguiente error "Could not load SSL library".

La mayoría de veces este error es debido:
1) A que las librerías no están en la misma carpeta del ejecutable o donde están no las encuentra porque no está en el path.
2) Si están bien ubicadas, porque no son la versión correcta para el programa.

[pruz]

Muchas gracias a la comunidad, segui sus consejos y solucionado