Hola a todos. Mi problema es el siguiente. Me he configurado un gestor de correo para recibir correos de una cuenta determinada. Al principio lo hice con D6 y el componente TNMPOP3. Con este control recibo bien todos los ficheros salvo si vienen los datos (en mi caso son imágenes) en base64. Es decir, que las imágenes que vengan en el body incrustadas se graban sin decodificar(letras y numeros en Base64).
Luego probé con el tIdPop3, y parece que este control lo podia solucionar, pero cuando llegas a descargarte el attachment no lo decodifica bien y se graba igual que con el TNMPOP3. Llevo dos dias dandole vueltas y vueltas, y me estoy empezando a dar por vencido
.
Se os ocurre algo? Os envio el código donde grabo los attach, que estan sacados de la demo de Indy.
if (Msg.MessageParts.Items[j] is TIdAttachment) then
begin // si es attchamente lo guardo
edit4.text := TIdAttachment( Msg.MessageParts.Items[j]).Filename;
TIdAttachment(Msg.MessageParts.Items[j]).SaveToFile(TIdAttachment(Msg.MessageParts.Items[j]).Filename);
end
else
begin //si es texto pal body
if Msg.MessageParts.Items[j] is TIdText then
begin
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[j]).Body);
end;
end;
Por favor , ayuda!!!!!
Muchas Gracias