Скачать: CL | DM;

Почта....   Найти похожие ветки 

← →
ilka ©   (2003-09-24 17:05) [0]

этот код работает в Delphi7 но почемуто отказывается в Delphi6 вернее он работает а письмо не сохраняеется.
вопрос почему?

var
pop3:TIdPOP3;
mes:TIdMessage;
Attach:TIdAttachment;
...

begin

pop3:=TIdPOP3.Create(nil);
mes:=TIdMessage.Create(nil);
pop3.Username:="name";////в delphei7
//pop3.UserId:="name";//в delphei6

pop3.Password:="password";
pop3.Port:=***;
pop3.Host:="*.*.*.*";

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

//получение писем в цикле
for i:=1 to count do
begin
pop3.Retrieve(i,mes);
if mes.Subject="ErrorReporter" then
begin
Attach:=TidAttachment.Create(mes.MessageParts,"1.txt");

//в 6 делфе не сохраняется
Attach.SaveToFile("file.txt"+IntToStr(i));
Attach.Free;
pop3.Delete(i);
end;
end;

pop3.Disconnect;
application.Terminate;



---

← →
Е-Моё имя ©   (2003-09-24 17:19) [1]

не сохраняеца с какой ошипкай?

---

← →
Reindeer Moss Eater ©   (2003-09-24 17:20) [2]

Хочешь иметь одинаково работающий (одинаково неработающий) код - имей одинаковые версии используемых библиотек.

---

← →
ilka ©   (2003-09-24 17:24) [3]

он проходит вот эту строчку без ошибки
Attach.SaveToFile("file.txt"+IntToStr(i));
но файл не создается. скорее всего Attach просто пустой, а так ли это я не знаю способа как проверить.

---

← →
Е-Моё имя ©   (2003-09-24 17:27) [4]

скорее всего ты не там ищешь, куда он сохраняет =)

---

← →
ilka ©   (2003-09-24 17:35) [5]

>Reindeer Moss Eater © (24.09.03 17:20) [2]
>Хочешь иметь одинаково работающий (одинаково неработающий) код ->имей одинаковые версии используемых библиотек.

Понадобилось перенести проект с делфи6 на делфи7
а вообще ответ не потеме

>Е-Моё имя © (24.09.03 17:27) [4]
сохраняет в текущую директорию. по крайней мере нигде на диске файла все равно нет...

---

← →
Е-Моё имя ©   (2003-09-24 17:37) [6]

> [5] ilka © (24.09.03 17:35)

задай олный путь и проверь еще раз

---

← →
ilka ©   (2003-09-24 17:43) [7]

>Е-Моё имя © (24.09.03 17:37) [6]
не тоже самое делфи7 работает, делфи6 не работает

А можно как нибудь посмотреть содержимое прикрепленного файла не сохраняя его на диск?

---

← →
Е-Моё имя ©   (2003-09-24 17:46) [8]

используй отладчик

---

← →
ilka ©   (2003-09-24 17:51) [9]

>Е-Моё имя © (24.09.03 17:46) [8]
смотри <ilka © (24.09.03 17:24) [3]>

---

← →
Е-Моё имя ©   (2003-09-24 18:02) [10]

посмотрел
и чо?
проверь после сохранения fileexists например
посмотри может в stream можно сохранить
твори! все в твоих руках

---

← →
ilka ©   (2003-09-24 18:10) [11]

и так по пунктам
файл не создается,
в поток сохранить нельзя,

я и так пытаюсь творить только одна проблема оно не работает...

ЗЫ Е-Моё не знаеш как посмотреть содержимое письма?

---

← →
Е-Моё имя ©   (2003-09-24 18:18) [12]

блин мне лень лезть в код инди, посмотри сам чо там есть
залезь отладчиком в процедуру savetofile и проследи

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.015 c