| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почта.... [D6, D7, WinXP]
ilka © (2003-09-24 17:05:00)
этот код работает в 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 18:18:00) [1]
блин мне лень лезть в код инди, посмотри сам чо там есть
залезь отладчиком в процедуру savetofile и проследи
ilka (2003-09-24 18:10:00) [2]
и так по пунктам
файл не создается,
в поток сохранить нельзя,
я и так пытаюсь творить только одна проблема оно не работает...
ЗЫ Е-Моё не знаеш как посмотреть содержимое письма?
Е-Моё имя (2003-09-24 18:02:00) [3]
посмотрел
и чо?
проверь после сохранения fileexists например
посмотри может в stream можно сохранить
твори! все в твоих руках
ilka (2003-09-24 17:51:00) [4]
>Е-Моё имя © (24.09.03 17:46) [8]
смотри <ilka © (24.09.03 17:24) [3]>
Е-Моё имя (2003-09-24 17:46:00) [5]
используй отладчик
ilka (2003-09-24 17:43:00) [6]
>Е-Моё имя © (24.09.03 17:37) [6]
не тоже самое делфи7 работает, делфи6 не работает
А можно как нибудь посмотреть содержимое прикрепленного файла не сохраняя его на диск?
Е-Моё имя (2003-09-24 17:37:00) [7]
> [5] ilka © (24.09.03 17:35)
задай олный путь и проверь еще раз
ilka (2003-09-24 17:35:00) [8]
>Reindeer Moss Eater © (24.09.03 17:20) [2]
>Хочешь иметь одинаково работающий (одинаково неработающий) код ->имей одинаковые версии используемых библиотек.
Понадобилось перенести проект с делфи6 на делфи7
а вообще ответ не потеме
>Е-Моё имя © (24.09.03 17:27) [4]
сохраняет в текущую директорию. по крайней мере нигде на диске файла все равно нет...
Е-Моё имя (2003-09-24 17:27:00) [9]
скорее всего ты не там ищешь, куда он сохраняет =)
ilka (2003-09-24 17:24:00) [10]
он проходит вот эту строчку без ошибки
Attach.SaveToFile("file.txt"+IntToStr(i));
но файл не создается. скорее всего Attach просто пустой, а так ли это я не знаю способа как проверить.
Reindeer Moss Eater (2003-09-24 17:20:00) [11]
Хочешь иметь одинаково работающий (одинаково неработающий) код - имей одинаковые версии используемых библиотек.
Е-Моё имя (2003-09-24 17:19:00) [12]
не сохраняеца с какой ошипкай?
| |
