Конференция "Сети" » Проблемы с сохранением вложений delphi
 
  • dvvid (21.07.11 08:57) [0]
    Доброго времени суток,

    Помогите пожалуйста разобраться в следующей проблеме выбираю вложения с 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 этот файл тоже качает нормально. Помогите разобраться в чем может быть проблема. У меня подозрение на кодирование файла?

  • dvvid (21.07.11 08:58) [1]
    Разобрался, что те архивы которые не получается правильно скачать имеют тип кодировки x-uuencode
    А вложения от остальных отправителей приходят в кодировке BASE64

    Так вот почему письма в кодировке x-uuencode нормально не закачиваются при помощи TIdAttachmentFile. Как обойти данную проблему?
 
Конференция "Сети" » Проблемы с сохранением вложений delphi
Есть новые Нет новых   [134435   +18][b:0][p:0.001]