VPF::Новое письмо - Форум программистов

Silmarion

Дата 21.11.2005, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет

Всем привет!
Как при помощи Indy компонентов и каких узнать что письмо новое?
P.S.: Огромная просьба с примером...
smile

Silmarion

Дата 21.11.2005, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет

НЕВЕРЮ что никто не знает...

Snowy

Дата 21.11.2005, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Чтобы узнать, что письмо новое, программа должна запоминать ID писем, которые уже закачены.
При новой проверке ящика, просто заново сканишь все ID и находишь те, которых еще нет в базе.

Snowy

Дата 21.11.2005, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Получить ID из TIdMessage:

Код


var
  pop: TIdPOP3;
  i,k: LongInt;
  id: string;
  msg: TIdMessage;
begin
  pop:=TIdPOP3.Create(nil);
  k:=TIdPOP3.CheckMessages;
  for i:=0 to k-1 do begin
    msg:=TIdMessage.Create(nil);
    IdPOP3.RetrieveHeader(i, msg); // получить заголовки письма
    id:=msg.Headers[msg.Headers.IndexOfName('Message-ID')]; // взять ID
    // тут мы проверяем, а нет ли письма с таким ID
    // реализация на свой цвет и вкус.
    msg.Free;
  end;
  pop.Free;
end;

Добавлено @ 14:23
Код грубый. Только сама суть.
Нужно добавить обработку исключений и разбить код получения ID на 2 строки (на случай отсутствия такогого. Маловероятно, но могет быть).
Но общая суть такая.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »