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