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

Сохранить вложение из idMessage   Найти похожие ветки 

← →
Progh   (2005-01-24 16:57) [0]

Народ, оочень нужно, помогите сохранить приложеный файл из idMessage(idPOP3) под определенным именем, содержимое которого я скачал с ящика

---

← →
stone ©   (2005-01-24 17:09) [1]

FileName := Path + (idMessage.MessageParts.Items[j] as TIdAttachment).FileName;
CopyFile(pchar(idMessage.MessageParts.Items[j].StoredPathName), pchar(FileName), true);

---

← →
Progh   (2005-01-24 20:27) [2]

var
 mc, i, j: integer;
 idMessage: TidMessage;
 _Attach: TIdAttachment;
 fname: String;
begin

 idPop3.Username := User;
 idPop3.Password := Password;
 idPop3.Host := Host;
 idPop3.Port := 110;

   if idPOP3.Connected = true then
     idPOP3.Disconnect;
   idPOP3.Connect;
   mc := idPOP3.CheckMessages;
   Result := mc;
   idMessage := TidMessage.Create(nil);
   for i := 1 to mc do
   begin
     IdMessage.Clear;
     idPOP3.Retrieve(i, IdMessage);

     _Attach := TIdAttachment.Create(idMessage.MessageParts);

     for j := 0 to idMessage.MessageParts.Count-1 do
     begin
 // Вот тут у меня почемуто в fName возвращается пустота, хотя приложение в письме 100% есть
       fName := SaveToDir + (_Attach as TIdAttachment).FileName;
       CopyFile(pchar(_Attach.StoredPathName), pchar(fName), true);
     end;

Почему fName = "" ?

---

← →
stone ©   (2005-01-25 09:30) [3]

Выдержка из справки:
MessageParts can contain two TIdMessagePart descendants: TIdText and TIdAttachment.

Во-первых
> Attach := TIdAttachment.Create(idMessage.MessageParts);

Это вообще не понятно

Во вторых, в цикле for j := 0 to idMessage.MessageParts.Count-1 do следует перебирать MessageParts.Items[j] и проверять их на соответствия TIdText или TIdAttachment, а ззатем уже принимать решение по обработки соответствующей TIdMessagePart

---

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

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



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