Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   coreo indy (https://www.clubdelphi.com/foros/showthread.php?t=53855)

yhoho 03-03-2008 11:16:37

coreo indy
 
Tengo el siguietne codigo:
Código Delphi [-]
smtp : TIdSMTP;
MMsg : TIdMessage;
begin
    Try
        SMTP := TIdSMTP.cReate(nil);
       // SMTP.ReadTimeout:=10000;
        MMsg:=TIdMessage.Create(nil);
    Except
      on E : Exception DO
        begin
          showmessage('Error seding message:'+ E.Message);
          exit;
         end;
    end;
    MMsg.Clear;
    MMsg.Sender.Address:='r@tal.es';
    MMsg.from.Address:='r@tal.es';
    MMsg.Recipients.EMailAddresses:='r@tal.es';
    MMsg.Subject:='Un titulo';
    MMsg.Body.Add('Algun texto');
    MMsg.Body.Add('Algun texto mas');
    SMTP.Host:='smtp.tal.es';
    SMTP.Username:='r';
    SMTP.Password:='pass';
    Try
      SMTP.Connect;
      SMTP.Send(MMsg);
      SMTP.Disconnect;
    Except
      On E : Exception Do
        begin
          showmessage('Error sending message:'+E.Message);
        end;
     end;
SMTP.free;
MMsg.Free;
En la linea en rojo me da un error y no se porque:

class eidsocketerror with message 'socket error'#1004 process stoping.

Ese codgio me lo dejaron para enviar correo, agradeceria mucho si alguien pudiera saber a que es debido ese error porque no tengo ni idea nadie nunca me ha esplicado los indy y no se....

iuqrul 03-03-2008 11:56:43

Las lineas:
SMTP.Host:='smtp.tal.es';
SMTP.Username:='r';
SMTP.Password:='pass';

No se pueden calzar de forma literal, aquí debes colocar la configuración de una cuenta SMTP válida, incluso el SMTP.Port := 25 podría ser distinto.

Los correos "r@tal.es" no tienen que existir (esto lo aprovechan los spammers), pero la cuenta SMTP debe existir y ser válida en un servidor SMTP real, recordemos que el TIdSMTP es un cliente SMTP no un servidor.

Ñuño Martínez 03-03-2008 12:00:35

Al parecer no tienes salida a Internet. Si sí la tienes, entonces algo está mal configurado (¿puertos?, ¿proxi?, ¿firewall?...). Al menos eso es lo que me ha dicho este...

[edito] Bueno, lo que ha dicho iuqrul de lo del usuario, el host y tal también :p

yhoho 03-03-2008 12:19:08

A ver ene sos sitios va un correo que existe no cualquier correo, lo que pasa es que he peusto eso para no dejar ver los datos autenticos.

iuqrul 03-03-2008 12:49:24

Cita:

Empezado por yhoho (Mensaje 270247)
A ver ene sos sitios va un correo que existe no cualquier correo, lo que pasa es que he peusto eso para no dejar ver los datos autenticos.

Perfecto, el error de socket 1004, suele dar porque el puerto configurado no es accesible (un firewall puede limitarlo) o está en uso(un spyware lo está usando para realizar spam).

yhoho 03-03-2008 13:04:39

Correcto cortafuegos de router ya esta quitado pero ahroa falla en otro sitio jajajajaj dios como peta este codigo....

Mensage del error:5.7.0 must issue a STARTTLS comand first m5sm12516584gve.11

Es que quedate con el error jajajajaja.

La cuenta es de gmail iaugla es porque no esta preparada esa cuenta por algun tema de ssl o algo asi pero si es por eso como lo podria solucioanar??

iuqrul 04-03-2008 17:36:50

Revisa esto:

http://mail.google.com/support/bin/a...er=12103&hl=es

Como ves, el puerto es el 587 (no el 25 estandar) y utiliza el protocolo TLS (encriptación) para la comunicación, eso lo puedes conseguir definiendo un interceptor SSL, pero además necesitarás las librerías openSSL (libeay32.dll y ssleay32.dll) accesibles por tu aplicación.

Utiliza una cuenta de otro servidor o preparate a aprender. ;)

yhoho 05-03-2008 09:09:02

Yo lo que queiro es aprender pero no se donde ni como basarme porque mis cursos no llegaban a tanto y no se ahroa por donde empezar....
Alguien m puede aconsejar???


La franja horaria es GMT +2. Ahora son las 21:18:34.

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