[dvvid]

Доброго времени суток,

Помогите пожалуйста разобраться в следующей проблеме выбираю вложения с email следующей структурой

Код:

POP3.Connect; // подключение по протоколу POP3, по настройкам в компоненте IdPOP3, с именем POP3

if POP3.Connected then begin // если подключение прошло успешно
for i := 1 to POP3.CheckMessages do begin // Перебор сообщений
MessagePop.Clear;

POP3.Retrieve(i, MessagePop); // получение одного сообщения POP3.CheckMessages

if MessagePop.MessageParts.Count <> 0 then
for j:=0 to MessagePop.MessageParts.Count - 1 do
if MessagePop.MessageParts.Items[j].DisplayName = 'TIdAttachmentFile' then begin

ShowMessage(MessagePop.MessageParts .Items[j].FileName);
TIdAttachmentFile(MessagePop.Messag eParts.Items[j]).SaveToFile('D:\DIMA\' + MessagePop.MessageParts.Items[j].FileName);
end;
end;
end;

Все вложения сохраняются нормально, но есть один отправитель от которого приходят zip архивы, после сохранения их открыть не удается пишет, что то вроде не верный конец архива. Хотя если скачиваю через веб интерфейс или любую почтовую программу то все good. И также если я сам пересылаю тот же файл (скачанный через почтовую программу), то delphi этот файл тоже качает нормально. Помогите разобраться в чем может быть проблема.

Разобрался, что те архивы которые не получается правильно скачать имеют тип кодировки x-uuencode
А вложения от остальных отправителей приходят в кодировке BASE64

Так вот почему письма в кодировке x-uuencode нормально не закачиваются при помощи TIdAttachmentFile. Как обойти данную проблему?