Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Indy Pop3 / 3 сообщений из 3, страница 1 из 1
06.02.2003, 17:23
    #32102551
АМС
АМС
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Indy Pop3
Пишу такой код ( выкинул всё лишнее ):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TestIndyPop3;
var
  i,n,nn,j:  integer;
  IdMess:  TIdMessage;
begin
  IdPOP3.Connect;
  nn:=IdPOP3.CheckMessages;
  for j:= 1  to nn do
    begin
    IdMess:=TIdMessage.Create(nil); // Пробовал Create(Application)
    IdPOP3.Retrieve(J,IdMess);
    IdMess.Destroy; // пробовал Free 
    end;
  IdPOP3.Disconnect;
end;

Процедура нормально отрабатывает, но при завершении программы под средой Дельфи 6 вываливается в отладчик. Видимо что-то портится в памяти. Работаю под WIN2K.
Может кто-нибудь подскажет что-то умное?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2003, 17:40
    #32102562
АМС
АМС
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Indy Pop3
Вдогонку:

Такое происходит только на письмах с аттачментом. Без аттачменьов всё работает нормально.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2003, 19:30
    #32103570
maximF
maximF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Indy Pop3
Советы поверхностные, т.к. с этим компонентом не работал, но всё равно лучше чем никакие :) Звините, если что не так!

1) уверен что сообщения нумеруются не с нуля?
2) Destroy никогда не стоит использовать, только Free. Попробуй для начала вообще не освобождать память.
3) если запускать не из отладчика, то какое сообщение возникает?
4) апдейт на делфи стоит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Indy Pop3 / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]