Почта....

← →
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]

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

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

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

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

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

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

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

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

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