VPF::Прием почты - Форум программистов

Lativ

Дата 20.1.2004, 01:00 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 20.1.2004

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

Поскажите пожалуйста как проверить почтовый ящик на наличие непрочитанных сообщения. Мой вариант:

Код

 
for i := 1 to idPOP3.CheckMessages do begin
  idPOP3.SendCmd('UIDL '+IntToStr(i), AResponse);// запрос ID текущего письма
   id := idPOP31.CmdResult;//полученный от сервера ответ
   ID_array.Sort;//здесь хранятся IDs прочитанных ранее сообщений
   if not (ID_array.Find(id, Index)) then 
     ID_array.Add(id);//добавляю ID(помечаю как прочитанное)
   ...

Но этот вариант очень неоптимален, так как приходится каждый раз вытаскивать по одному ID с сервера и проверять на наличие в моей базе, а полный лист получить не удается, т.к. CmdResult возвращает строку. Может быть есть другие варианты, подскажите. Есть утилита fetchmail, в которой существует нужная мне команда, но как использовать её средствами делфи не знаю
Заранее благодарен

Это сообщение отредактировал(а) Lativ - 20.1.2004, 01:02

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