Форум: "Сети";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Внизкак скатывать с емайла письма с прекреплённыйм файлом ? Найти похожие ветки
← →
hex_for_delph (2002-10-10 12:21) [0]на сколько я знаю Fast lib такого не умеет есть ли другие компаненты
← →
Rouse_ (2002-10-10 13:11) [1]Rever (23.05.02 14:57)
Я так делаю:
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.12.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c