FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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 Código:
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 := 'rrhh@micuenta.com'; Password := '7f6a8907sdfas'; end; with IdMessage do begin From.Address := 'rrhh@micuenta.com'; From.Name := 'Nome do Remetente'; ReplyTo.EMailAddresses := IdMessage.From.Address; Recipients.Add.Text := unacuaneta@gmail.com'; Recipients.Add.Text := 'otra@cuenta.com'; Recipients.Add.Text := 'otra@distinta.com'; 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; -- 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 |
#2
|
||||
|
||||
Cita:
Cita:
|
#3
|
||||
|
||||
¿Y a qué sitio quieres conectar/enviar email?
|
#4
|
|||
|
|||
A través un servidor que tengo contratado junto con el dominio.
Desde las aplicaciones de correo funciona correctamente |
#5
|
||||
|
||||
Te pregunté por si alguno tenemos cuenta en ese sitio y probar.
|
#6
|
|||
|
|||
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. |
#7
|
|||
|
|||
Cita:
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. Última edición por cervexa fecha: 02-03-2024 a las 19:59:01. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Migrando de Indy 9 a Indy 10 | edgwin | Internet | 2 | 05-07-2010 17:53:58 |
Ayuda con incompatibilidad del Post de TIdHTTP de Indy 8 con Indy 10 | rolandoj | Internet | 13 | 24-12-2008 13:19:01 |
Como reemplazar Indy 10 por Indy 9 en Delphi 2007 ? | rolandoj | Internet | 0 | 13-02-2008 18:44:31 |
Indy 10.1.6 | JXJ | Varios | 2 | 15-11-2007 06:21:06 |
Indy | mauricio | Internet | 5 | 17-07-2003 23:25:38 |
|