Скачать: CL | DM;

Как получить прикрепленный файл используя 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c