| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ilka ©   (2003-08-28 14:40:00) 

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

---

vadfe   (2003-09-25 14:12:00) [1]

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;

---

rem_multiskin   (2003-09-25 09:19:00) [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.."

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

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

---

ilka   (2003-08-28 15:07:00) [3]

немного расширю проблему
получить файл можно вот так

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

проблема в том что если мы не знаем "name" то ничего не получится

---

Наверх