Сохраняю файл аттач с помощью TIdPOP3, TIdAttachment [D7]
Layner © (2004-03-17 10:06:00)
А в ответ на диске ничего нет.. Ещё пишет "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:00) [1]
Блин пароль не убрал :( Ладно сетка своя, не страшно :(
Наверх 
ЧАТ |
Орешник |
|
