Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.027 c
1-1110489114
Кодер
2005-03-11 00:11
2005.03.27
RSA и проблемы с большими числами


3-1109669846
syte_ser78
2005-03-01 12:37
2005.03.27
вычисляемое поле в дбгриде


1-1110889072
Гость
2005-03-15 15:17
2005.03.27
Кто подскажет, где найти описание компонент JEDI?


6-1106571984
Zloy
2005-01-24 16:06
2005.03.27
как создать подлючение к интернету через прокси


11-1093868976
ecm
2004-08-30 16:29
2005.03.27
xHelpGen ?