Форум: "Сети";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Сохраняю файл аттач с помощью 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: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]

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

---

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

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

---

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

Форум: "Сети";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

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