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

Вниз

Сохраняю файл аттач с помощью TIdPOP3, TIdAttachment   Найти похожие ветки 

 
Layner ©   (2004-03-17 10:06) [0]

А в ответ на диске ничего нет.. Ещё пишет "Invalid argument to date encode"

procedure Tmf.Button3Click(Sender: TObject);
var
pop3:TIdPOP3;
mes:TIdMessage;
Attach:TIdAttachment;
count, i: integer;
begin

pop3:=TIdPOP3.Create(nil);
mes:=TIdMessage.Create(nil);
pop3.Username:="xml@rdu.kirov.ru";

pop3.Password:="u7aS_1bZ";
pop3.Port:=110;
pop3.Host:="192.168.1.1";

if not pop3.Connected then pop3.Connect;
 count:=pop3.CheckMessages;

//ïîëó÷åíèå ïèñåì â öèêëå
for i:=1 to count do
begin
 pop3.Retrieve(1,mes);
 if mes.Subject="xml" then
   begin
   Attach:=TidAttachment.Create(mes.MessageParts,"1.xml");
    if SaveDialog1.Execute then
     Attach.SaveToFile(SaveDialog1.FileName);
   Attach.Free;
   //pop3.Delete(i);
   end;
end;
end;

подскажите, есть пример от INDY, но он ругается на ту же ошибку! Почтовый сервер у нас свой в вн сети. Кол-во писем получаю нормально. Т.е. коннектюсь нормально.


 
Layner ©   (2004-03-17 10:07) [1]

Блин пароль не убрал :( Ладно сетка своя, не страшно :(



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

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

Наверх




Память: 0.46 MB
Время: 0.029 c
11-1060589171
vitalmoya
2003-08-11 12:06
2004.04.11
StGrd


6-1079674456
Itsme
2004-03-19 08:34
2004.04.11
Сообщение по MSOutLook с вложенными файлами


6-1079116891
KyRo
2004-03-12 21:41
2004.04.11
В чем ошибка конекта в WinSock


14-1080143655
Piter
2004-03-24 18:54
2004.04.11
FAQ: Добавление иконки в SysTray


1-1079697470
Mazer
2004-03-19 14:57
2004.04.11
А как сделать полноцветную иконку в трее (RxTrayIcon)?