Ver Mensaje Individual
  #1  
Antiguo 18-03-2009
Claucod Claucod is offline
Registrado
 
Registrado: mar 2009
Posts: 1
Reputación: 0
Claucod Va por buen camino
Ayuda con IdMessage al recibir correo con idPop3 (Indy 9)

Hola,

Estoy haciendo un programa para recibir correo desde cuentas pop3 y todo anda bien salvo que algunos mensajes me tiran el siguiente error al capturar el body o los adjuntos: "uneven size in DecodeToStream". Segun investigue es un error en algunos e-mails que deben ser decodificados, pero mas alla de eso no se nada y las paginas que encontre donde explicaban este error estan en ingles y mucho no entiendo el ingles y delphi apenas lo manejo como para interpretar todo.

Agradecere a quien me de una mano con esto y me explique que debo hacer, por ahi lei que debo utilizar el control "idmessagedecodemime" pero no se como se usa.

Les paso el codigo donde se produce el error:

Código Delphi [-]
  pop.Retrieve(n,msg);
  for I := 0 to Pred(Msg.MessageParts.Count) do
      begin
         if (Msg.MessageParts.Items[i] is TIdAttachment) then
            begin //general attachment
              //Aca aparecen los adjuntos
              Memo1.Lines.Add(TIdAttachment(Msg.MessageParts.Items[i]).FileName);
              Memo1.Lines.Add(TIdAttachment(Msg.MessageParts.Items[i]).ContentType);
            end
         else
            begin //body text
               if Msg.MessageParts.Items[i] is TIdText then
                  begin
                     //Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[i]).Body);
                  end
            end;
         application.ProcessMessages;
      end;


Muchas gracias de antemano.

Saludos!

Última edición por dec fecha: 18-03-2009 a las 05:08:34. Razón: Usar etiquetas DELPHI
Responder Con Cita