Как получить прикрепленный файл используя Indy компоненты

← →
ilka (2003-08-28 14:40) [0]

Мастера подскажите как можно получить прикрепленный файл используя Indy компоненты

← →
ilka (2003-08-28 15:07) [1]

немного расширю проблему
получить файл можно вот так
var pop3:TIdPOP3; mes:TIdMessage; Attach:TIdAttachment; ...... pop3.Retrieve(1,mes); Attach:=TidAttachment.Create(mes.MessageParts,"name"); Attach.SaveToFile("file.file");
проблема в том что если мы не знаем "name" то ничего не получится

← →
rem_multiskin (2003-09-25 09:19) [2]

в тоем примере по сохранению приатаченных файлов через INDY компоненту

var
pop3:TIdPOP3;
mes:TIdMessage;
Attach:TIdAttachment;
......
pop3.Retrieve(1,mes);
Attach:=TidAttachment.Create(mes.MessageParts,"name");
Attach.SaveToFile("file.file");

на последней строчке вылетает ошибка "Error saving atachment.."

что не так делаю - или секреты какие-то есть?
Помогите - очень надо

ЗЫ Атачментов не один - может вэтом грабли

← →
vadfe (2003-09-25 14:12) [3]

for intIndex := 0 to Pred(Msgemail.MessageParts.Count) do
begin
if (Msgemail.MessageParts.Items[intIndex] is TIdAttachment) then
begin //general attachment
TIdAttachment(Msgemail.MessageParts.Items[intIndex]).SaveToFile(TIdAttachment(Msgemail.MessageParts.Items[intIndex]).Fil eName);
end
else
begin //body text
if Msgemail.MessageParts.Items[intIndex] is TIdText then
begin
Memo1.Lines.AddStrings(TIdText(Msgemail.MessageParts.Items[intIndex]).Body);
end ;
end;

Как получить прикрепленный файл используя Indy компоненты Найти похожие ветки