Главная страница
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.03 c
1-1082371273
Oleon
2004-04-19 14:41
2004.04.11
Ошибки при сохранении в Excel.


1-1080239012
tytus
2004-03-25 21:23
2004.04.11
Рисование из библиотеки - возможно-ли?


3-1081854163
Назаров Евгений
2004-04-13 15:02
2004.04.11
SQL


1-1082927765
Wi_Julia
2004-04-26 01:16
2004.04.11
StrToInt


1-1080113885
Maza_Faka
2004-03-24 10:38
2004.04.11
Dlephi8