| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Tugui Master


Registrado: 09 Nov 2002Mensajes: 663
|
Publicado: Mar 22 Jun, 2004 11:06 am Asunto: Comprobar correo con TIdPOP3 |
|
|
Siguiendo los consejos de este foro estoy intentando comprobar el correo en un servidor POP3 con la ayuda del componente TIdPOP3 de la paleta IndyClients del Builder 6, todo ello para dejar de usar el TNMPOP3 de FastNet ya me han dicho que tienes muchos fallos. Agradecería que alguien informara de donde encontrar ejemplos sobre TIdPOP3, he buscado en la red y lo poco que he encontrado es para Delphi.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
correo->Port = 110;
correo->Host = "pop3.terra.es";
correo->UserId = "minombre.terra.es";
correo->Password = "???????????????";
correo->Connect();
long int mensajes = correo->CheckMessages();
StatusBar1->SimpleText = "Conectado. "+IntToStr(mensajes);
TIdMessage *mensa;
correo->Retrieve(1,mensa);
Memo1->Text = mensa->Body->Text; //Aquí da el fallo
delete mensa;
}
/*El código anterior me falla y no soy capaz de arreglarlo, mi intención es tomar toda la información posible acerda del mensaje, cuerpo, remitente, fecha, archivos adjuntos, tamaño, etc...*/ _________________ ¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
 |
_Leo Site Admin

Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
Publicado: Mar 22 Jun, 2004 9:05 pm Asunto: |
|
|
En la línea que has puesto:
TIdMessage *mensa;
tendrías que poner:
TIdMessage* mensa = new TIdMessage(0);
y luego liberarlo con "delete" cuando ya no lo necesites.
O bien puedes arrastrar sobre el Form el componente del mismo nombre que encontraras en la paleta "Indy Misc".
En la Web de los autores tienes varias ejemplos, entre ellos, mira uno que se llama "MailClient":
http://www.nevrona.com/indy/downloads/CBDemos20010311.zip |
|
| Volver arriba |
|
 |
Tugui Master


Registrado: 09 Nov 2002Mensajes: 663
|
Publicado: Jue 24 Jun, 2004 1:37 pm Asunto: |
|
|
Acabo de probar la aplicación habiendo sustituido el TNMPOP3 por un TIdPOP3 y curiosamente ahora SI se cierra completamente la aplicación y permite también que windows se pueda apagar o reiniciar (nunca hubiera imaginado que el fallo fuese de ahí ). En los ejemplos que trae el builder por defecto no pude encontrar ninguno que se refiriese al TIdPOP3 y en los que me descargué del enlace que pusiste _Leo si lo hay y además me ha venido "de fábula". Y la librería del TryIcon que me has pasado es kojonuda . G.R.A.C.I.A.S _________________ ¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
 |
|