Indy 10 y sslvTLSv1_2

[Casimiro Noteví]

Con esa versión tiene que funcionar.

Empezado por cervexa

Si pongo un IdSSLIOHandlerSocketOpenSSL en el formulario y voy a las opciones de SSL en el parametro de SSLVersions me ofrece solamente: sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1. Mi impresión es que debería ofrecerme tambien sslvTLSv11 y sslvTLSv12.

Puedes probar con la sslvTLSv1, de todas formas me parece raro que hoy en día estén usando una versión tan antigua.

[cervexa]

Gracias por responder.
No consigo que funcione, me da "Cold not load SSL library" al intentar conectar.
He copiado las DLL que posteaste arriba en el directorio del ejecutable, en c:\windows, en c:\windows\system, en c:\windows\system32... y no consige cargarlas.

El código que utilizo, en el que he ido cambiando las opciones en todas las combinaciones posibles, es este

var
  IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL;
  IdSMTP: TIdSMTP;
  IdMessage: TIdMessage;
  IdText: TIdText;
  sAnexo: string;
begin
  IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(Self);
  IdSMTP := TIdSMTP.Create(Self);
  IdMessage := TIdMessage.Create(Self);

  try
    with IdSSLIOHandlerSocket do begin
      SSLOptions.Method := sslvTLSv1;
      SSLOptions.Mode := sslmClient;
      SSLOptions.SSLVersions := [ sslvTLSv1 ];
    end;

    with IdSMTP do begin
      IOHandler := IdSSLIOHandlerSocket;
      UseTLS := utUseImplicitTLS;
      AuthType := satDefault;
      Port := 465;
      Host := 'smtp.micuenta.com';
      Username := '[email protected]';
      Password := '7f6a8907sdfas';
    end;

    with IdMessage do begin
      From.Address := '[email protected]';
      From.Name := 'Nome do Remetente';
      ReplyTo.EMailAddresses := IdMessage.From.Address;
      Recipients.Add.Text := [email protected]';
      Recipients.Add.Text := '[email protected]';
      Recipients.Add.Text := '[email protected]';
      Subject := 'Prueba de e-mail';
      Encoding := meMIME;
    end;

    IdText := TIdText.Create(IdMessage.MessageParts);
    with IdText do begin
      Body.Add('Corpo do e-mail');
      ContentType := 'text/plain; charset=iso-8859-1';
    end;

// ====================================================
// AQUI DA EL ERROR DE CONEXION--> Could not load SSL library
// ====================================================
    try
      IdSMTP.Connect;
      IdSMTP.Authenticate;
    except
      on E:Exception do
      begin
        MessageDlg('Error en la conexión o autentificación: ' +
          E.Message, mtWarning, [mbOK], 0);
        Exit;
      end;
    end;

    try
      IdSMTP.Send(IdMessage);
      MessageDlg('Mensaje enviado', mtInformation, [mbOK], 0);
    except
      On E:Exception do
      begin
        MessageDlg('Error al enviar el mensaje: ' +
          E.Message, mtWarning, [mbOK], 0);
      end;
    end;
  finally
    IdSMTP.Disconnect;
    UnLoadOpenSSLLibrary;
    FreeAndNil(IdMessage);
    FreeAndNil(IdSSLIOHandlerSocket);
    FreeAndNil(IdSMTP);
  end;
end;

Creo que pasan estas cosas:
-- No tengo la última version de las Indy: 10.6, que son las que ofrecen TLS1.2 aunque creo que el error es antes de llegar a utilizar el TLS, está en la carga de las DLL.
-- Mis indy y las DLL no deben de ser compatibles
Por esto estoy tratando de conseguir las Indy 10.6 y la última versión de openSSH ya compilada, por que no sabría hacerlo con los fuentes

No sé si me puedes ayudar en esto.
Un saludo

[Casimiro Noteví]

Empezado por cervexa

Gracias por responder.
No consigo que funcione, me da "Cold not load SSL library" al intentar conectar.
He copiado las DLL que posteaste arriba en el directorio del ejecutable, en c:\windows, en c:\windows\system, en c:\windows\system32... y no consige cargarlas.

Si es 32 bits entonces lo mismo tendrás que ponerlas en windows\wow64

Empezado por cervexa

El código que utilizo, en el que he ido cambiando las opciones en todas las combinaciones posibles, es este

Creo que pasan estas cosas:
-- No tengo la última version de las Indy: 10.6, que son las que ofrecen TLS1.2 aunque creo que el error es antes de llegar a utilizar el TLS, está en la carga de las DLL.
-- Mis indy y las DLL no deben de ser compatibles
Por esto estoy tratando de conseguir las Indy 10.6 y la última versión de openSSH ya compilada, por que no sabría hacerlo con los fuentes
No sé si me puedes ayudar en esto.
Un saludo

TLS1.2 es más antigua, no tiene sentido que busques una indy más moderna salvo que necesites una TLS más nueva.

[Casimiro Noteví]

¿Y a qué sitio quieres conectar/enviar email?

[cervexa]

Empezado por Casimiro Notevi

¿Y a qué sitio quieres conectar/enviar email?

A través un servidor que tengo contratado junto con el dominio.
Desde las aplicaciones de correo funciona correctamente

[Casimiro Noteví]

Empezado por cervexa

A través un servidor que tengo contratado junto con el dominio.
Desde las aplicaciones de correo funciona correctamente

Te pregunté por si alguno tenemos cuenta en ese sitio y probar.

[cervexa]

Empezado por Casimiro Notevi

Te pregunté por si alguno tenemos cuenta en ese sitio y probar.

Es un dominio mio.

De todas formas, gracías por toda la ayuda que sigues prestando desde este foro. Siempre dispuesto a ayudar.

Un saludo.

[cervexa]

Empezado por Casimiro Notevi

Si es 32 bits entonces lo mismo tendrás que ponerlas en windows\wow64

Copié las DLL a SySWOW64 y sigue sin cargarlas.

Abandono. Voy a rehacer la aplicación con Angular. Si los tres días que he perdido con esto lo hubiese dedicado a hacer la aplicación ya tendría al problema solucionado. Además, así puedo ponerla en linea y con acceso desde cualquier sitio.

Gracias por el tiempo que me habeis dedicado.

Tengo buenos de recuerdos de Delphi pero ...

Un saludo.