Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #21  
Antiguo 20-10-2010
casper_z casper_z is offline
Registrado
 
Registrado: jul 2010
Posts: 5
Poder: 0
casper_z Va por buen camino
He hablado muy rápido,....relamente me funciona, pero cada vez que abro de nuevo el programa para enviar un mail me lanza el error "Could not load SSL library". Y eso que las tengo en la carpeta del programa y en el system32 de windows. El tema es que si las reempleazo por las originales vuelve a funcionar, pero claro tengo que estar cada vez reeemplazando las librerias. ¿RAro no?
Responder Con Cita
  #22  
Antiguo 11-11-2010
javiergamboa10 javiergamboa10 is offline
Registrado
NULL
 
Registrado: nov 2010
Posts: 1
Poder: 0
javiergamboa10 Va por buen camino
Ayuda

Roman y amigos:

Ante todo gracias por los aportes.

Descargé el ejemplo para enviar correos desde cuentas de gmail, pero al ejecutarlo me sale el error:

Socket error # 10060
Connection timed out.

Actualmente uso Delphi 2007 e Indy 10.

Que estaré haciendo mal???
Responder Con Cita
  #23  
Antiguo 11-11-2010
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Miraste esto ?

http://www.clubdelphi.com/foros/show...140#post380140
__________________
Piensa siempre en positivo !
Responder Con Cita
  #24  
Antiguo 26-11-2010
elguille elguille is offline
Miembro
 
Registrado: ene 2005
Posts: 114
Poder: 20
elguille Va por buen camino
Una función sin componentes declarados resumiendo lo dicho para poner en cualquier lado
Código Delphi [-]
Uses
  Forms, db, dbTables, dbGrids, Classes, Messages, Buttons,
  StdCtrls, Controls, Dialogs, SysUtils, IniFiles, Wintypes,
  DBIProcs, DBITypes, DBIErrs, ComCtrls, ExtCtrls, Printers,
  Windows, ShlObj, Ole2, Registry, quickrpt, qrctrls, Grids, shellapi, comobj,
  Variants,
  dbctrls, IdHTTP, WinInet, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdSSL, IdSSLOpenSSL, IdExplicitTLSClientServerBase,
  IdBaseComponent, IdComponent, IdTCPServer, IdSMTPServer,
  IdMessage, IdEMailAddress, IdTCPConnection, IdTCPClient, IdMessageClient,
  IdSMTP, idexception, myaccess, IdAttachmentFile;

  procedure emailgmail(host: string; nombre: string; password: string;
    port: integer; desde: string; hasta: string; asunto: string;
    cuerpo: string; adjunto: string);
  var
    IDSMTP1: TIDSMTP; // Componente de envio de correo
    IdSSLIOHandlerSocketOpenSSL: tIdSSLIOHandlerSocketOpenSSL;
    mensaje: TIdMessage;
  begin
    // ejemplo emailgmail('smtp.gmail.com',*usuario*,*contraseña*,465,*emailorigen*,*emaildestino*,*asunto*,*cuerpo  *,*ficheroadjunto*);
    IdSSLIOHandlerSocketOpenSSL := tIdSSLIOHandlerSocketOpenSSL.Create(nil);
    IdSSLIOHandlerSocketOpenSSL.Destination := 'smtp.gmail.com:465';
    IdSSLIOHandlerSocketOpenSSL.host := 'smtp.gmail.com:465';
    IdSSLIOHandlerSocketOpenSSL.port := 465;
    IdSSLIOHandlerSocketOpenSSL.ssloptions.method := sslvSSLv3;
    IdSSLIOHandlerSocketOpenSSL.ssloptions.mode := sslmUnassigned;
    IDSMTP1 := TIDSMTP.Create(nil);
    IDSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL;
    IDSMTP1.UserNAME := nombre;
    IDSMTP1.password := password;
    IDSMTP1.host := host;
    IDSMTP1.port := port;
    IDSMTP1.UseTLS := utUseImplicitTLS;
    mensaje := TIdMessage.Create(nil);
    with mensaje do
    begin
      Body.Add(cuerpo);
      From.Text := desde;
      Recipients.EMailAddresses := hasta;
      Subject := asunto;
      Priority := TIdMessagePriority(mpHighest); // prioridad del mensaje
      CCList.EMailAddresses := '';
      BccList.EMailAddresses := '';
      if adjunto <> '' THEN
        TIdAttachmentfile.Create(mensaje.MessageParts, adjunto);
    end;
    with IDSMTP1 do
    begin
      try
        Connect;
        try
          // Envio el mensaje.
          Send(mensaje);
        finally
          Disconnect;
        end;
        // MessageDlg('Enviado Correctamente', mtInformation, [mbOK], 0);
      except
        // Capturo algunas excepciones que pueden ocurrir (alguien podria ampliarlo con los posibles errores)
        { ON E: EProtocolReplyError do begin
          MessageDlg('No se ha podido enviar el email.' + #13 +
          'Incorrecto el email o el usuario o la password.', mtError, [mbOK], 0);
          end; }
        on E: EFOpenError do
        begin
          MessageDlg('No se ha podido enviar el email.' + #13 +
              'Fichero Adjunto desconocido o erróneo.', mtError, [mbOK], 0);
        end;
        { on E: EIdSocketError do begin
          MessageDlg('No se ha podido enviar el email.'+ #13 +
          'Host desconocido o incorrecto.', mtError, [mbOK], 0);
          end }
        else
          begin
            MessageDlg('Fallo en el envio de email', mtError, [mbOK], 0);
          end;
        end;
      end;
      IDSMTP1.free;
      IdSSLIOHandlerSocketOpenSSL.free;
    ENd;
ejemplo sustituyendo lo encerrado en * por vuestras necesidades

emailgmail('smtp.gmail.com',*usuario*,*contraseña*,465,*emailorigen*,*emaildestino*,*asunto*,*cuerpo *,*ficheroadjunto*);

(no os olvideis de copiar las dll de OPENSSL mencionadas en el post accesibles al ejecutable)

Delphi 2010 y las Indy que vienen con el

Última edición por elguille fecha: 26-11-2010 a las 19:29:16.
Responder Con Cita
  #25  
Antiguo 25-04-2012
franciscoca franciscoca is offline
Miembro
 
Registrado: ago 2008
Ubicación: La Plata
Posts: 12
Poder: 0
franciscoca Va por buen camino
IdExplicitTLSClientServerBase

Cita:
Empezado por roman Ver Mensaje
Excelente aporte. Ya he comprobado que a mi tampoco me funciona ya el ejemplo de arriba y con el cambio propuesto todo vuelve a la normalidad. Muchas gracias.

He sustituido el ejemplo original con la nueva versión y he agregado en el zip el ejecutable (pero éste funcionará sólo si se tienen Delphi 7 y las bibliotecas SSL instaladas).

// Saludos
Hola tengo una consulta!! el gmailsend me anda perfectamente, pero cuando lo quiero compilar como para hacer unas pruebas o cambios

me tira el error:
[Fatal Error] Principal.pas(10): Unit IdIOHandlerStack was compiled with a different version of IdGlobal.TIdBytes

yo uso delphi 7 + indy 10

muchas gracias
Responder Con Cita
  #26  
Antiguo 25-04-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.
Responder Con Cita
  #27  
Antiguo 08-05-2012
franciscoca franciscoca is offline
Miembro
 
Registrado: ago 2008
Ubicación: La Plata
Posts: 12
Poder: 0
franciscoca Va por buen camino
Hola! estoy con el mismo problema q vos, uso delphi 7 + indy 10, y del ejemplo de gmailsend me envia correctamente desde una casilla de gmail a una de hotmail. El problema es cuando uso mi dominio como comentas vos soyyo@miempresa.com.ar me tira un error de authentication #5.7.1 y con la de soyyo@gmail.com lo envia correctamente...
El puerto q uso es el: 465
y el smtp es :

Código:
 IdSSLIOHandlerSocketOpenSSL.Destination := 'smtp.miempresa.com.ar:465';  
 IdSSLIOHandlerSocketOpenSSL.host := 'smtp.miempresa.com.ar:465';
Por favor si me podes dar una pista o una ayuda te lo agredeceria muchisimo
Responder Con Cita
  #28  
Antiguo 20-09-2013
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
hugobenitez, no repitas preguntas en distintos sitios, gracias.
Responder Con Cita
  #29  
Antiguo 24-06-2016
hugobenitez hugobenitez is offline
Miembro
 
Registrado: oct 2006
Posts: 24
Poder: 0
hugobenitez Va por buen camino
Consulta sobre tu experiencia

Cita:
Empezado por casper_z Ver Mensaje
Bueno despues de hacer unos cambios, quitar las Indy 10 y poner las 9, he conseguido que funcione. Decididamente Delphi 5 e Indy 10 no son nada compatibles para usar con SSL.
Hola que tal Casper_z, quisiera saber si pudiste resolver y todavia te funciona esto que hiciste para enviar por gmail los correos? Gracias!
Responder Con Cita
  #30  
Antiguo 24-06-2016
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
http://www.clubdelphi.com/foros/show...ail#post505372
Responder Con Cita
  #31  
Antiguo 12-04-2017
DenisDiaz DenisDiaz is offline
Miembro
 
Registrado: feb 2007
Posts: 55
Poder: 18
DenisDiaz Va por buen camino
Red face Error SSL

Cordial saludo

Estoy tratando de enviar un correo con Delphi 10, probé el ejemplo que está en este hilo pero da este error:

Error connecting with SSL
error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number

He intentado hacer un ejemplo nuevo y también obtengo error de conexión SSL. Incluso probé un ejemplo que tengo en delphi 7 que funcionaba perfectamente y ahora me da error.

Agradezco la ayuda que me puedan dar. Muchas gracias.
Responder Con Cita
  #32  
Antiguo 20-04-2017
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 18
Chris Va por buen camino
Cita:
Empezado por DenisDiaz Ver Mensaje
Cordial saludo

Estoy tratando de enviar un correo con Delphi 10, probé el ejemplo que está en este hilo pero da este error:

Error connecting with SSL
error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number

He intentado hacer un ejemplo nuevo y también obtengo error de conexión SSL. Incluso probé un ejemplo que tengo en delphi 7 que funcionaba perfectamente y ahora me da error.

Agradezco la ayuda que me puedan dar. Muchas gracias.
La versión 3 de SSL fue abandonada por la industria hace como tres años por ser vulnerable a ataques. La industria informática fue degradarse a las primeras versiones 2.x y 1.x. Esto debe estar causando el errr que mencionas.

Deberías de cambiar o eliminar la linea:
Código:
IdSSLIOHandlerSocketOpenSSL.ssloptions.method := sslvSSLv3;
Saludos!
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
  #33  
Antiguo 20-04-2017
DenisDiaz DenisDiaz is offline
Miembro
 
Registrado: feb 2007
Posts: 55
Poder: 18
DenisDiaz Va por buen camino
Thumbs up

Muchas gracias por la respuesta.

Usando esta línea se envían los correos:

IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23;
Responder Con Cita
  #34  
Antiguo 24-08-2017
Rc96 Rc96 is offline
Miembro
 
Registrado: ago 2017
Posts: 75
Poder: 7
Rc96 Va por buen camino
Smile Como se que dll debo usar

hola gente soy nuevo x aca, necesito que mi sistema envie un mail pero no logro hacer, me e bajado el ejm de roman pero al ejecutarlo me da error de soket #11001 host no found. el detalle es que veo que hay que seleccionar adecuadamente las dll segun la verision del delphi y la indy yo uso delphi10.2 indy 10.1.5 y la version de mi windows es 10 de 64 bits quesiera saber quien puede orientarme. desde ya muchas gracias
Responder Con Cita
  #35  
Antiguo 24-08-2017
DenisDiaz DenisDiaz is offline
Miembro
 
Registrado: feb 2007
Posts: 55
Poder: 18
DenisDiaz Va por buen camino
Te recomiendo que me escribas a xxxxxxxxxxxx y te mando lo que tengo que me funciona, porque seguro es eso que dices y cuando no se tiene algo eso salen errores y es un dolor de cabeza que ha he vivido.

Última edición por Casimiro Notevi fecha: 24-08-2017 a las 19:32:59. Razón: eliminar email
Responder Con Cita
  #36  
Antiguo 24-08-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por DenisDiaz Ver Mensaje
Te recomiendo que me escribas a xxxxxxxxxxxxxxxx y te mando lo que tengo que me funciona, porque seguro es eso que dices y cuando no se tiene algo eso salen errores y es un dolor de cabeza que ha he vivido.
Por favor, lee nuestra guía de estilo, no es correcto lo que dices.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Gmail reproduce MP3 vtdeleon Noticias 2 24-08-2006 02:24:52
Gmail or not Gmail this is this thread.... marcoszorrilla Noticias 0 23-10-2005 14:29:02
gmail en español Lepe Noticias 9 23-04-2005 14:19:55
...Gmail Filesystem... Jure Noticias 3 12-10-2004 11:43:47


La franja horaria es GMT +2. Ahora son las 18:33:05.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi