|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблемы с сохранением вложений delphi
Доброго времени суток,
Помогите пожалуйста разобраться в следующей проблеме выбираю вложения с 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; Разобрался, что те архивы которые не получается правильно скачать имеют тип кодировки x-uuencode А вложения от остальных отправителей приходят в кодировке BASE64 Так вот почему письма в кодировке x-uuencode нормально не закачиваются при помощи TIdAttachmentFile. Как обойти данную проблему? Последний раз редактировалось Aristarh Dark, 21.07.2011 в 12:29. |