Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.05;
Скачать: CL | DM;

Вниз

Indy Pop3   Найти похожие ветки 

 
Dup   (2002-05-08 08:50) [0]

Что-то не получается вытащить вложенный файл из сообщения

var hd:TIdMessage;
att:TIdAttachment;
begin
hd:=TIdMessage.Create(nil);
if IdPOP31.Retrieve(1,hd);
att:=TIdAttachment.Create(hd.MessageParts);
att.SaveToFile("33.txt");

Может кто знает как это делается?


 
Rever   (2002-05-23 14:57) [1]

Я так делаю:

MsgRcv := TIdMessage.Create(self);
MsgRcv.NoDecode := false;
POP3Cl.Retrieve(1, MsgRcv)
for i := 0 to MsgRcv.MessageParts.Count-1 do begin
if MsgRcv.MessageParts.Items[i] is TIdAttachment then begin
fname := (AMsg.MessageParts.Items[i] as TIdAttachment).FileName;
TIdAttachment(AMsg.MessageParts.Items[i]).SaveToFile(tmpname);
end else
if AMsg.MessageParts.Items[i] is TIdText then begin
fst := TMemoryStream.Create;
TIdText(AMsg.MessageParts.Items[i]).Body.SaveToStream(fst);
fst.Position := 0;
//Далее загрушаешь из потока текст куда надо
edtMemo.LoadFromStream(fst);
fst.Free;
end
POP3Cl.Delete(1);
fname, tmpname - переменные из моей проги, edtMemo - MemoEdit.



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

Текущий архив: 2002.08.05;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
8-13722
F-Nick
2002-03-27 12:58
2002.08.05
Компоненты и графика


6-13750
petyun
2002-05-20 11:24
2002.08.05
отправка писем из локалки через прокси


3-13576
VAleksey
2002-07-16 14:06
2002.08.05
База данных из dll


14-13798
dnkSoftWare
2002-07-11 11:07
2002.08.05
Help&Manual лепит HTML Help и выводит его в нерусской кодировке??


1-13717
BJValentine
2002-07-24 13:41
2002.08.05
Потоки