| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

NMpop31.GetMailMessage(NMpop31.MailCount) выдает ERangeError [D6, WinXP]

CShooter ©   (2006-06-06 01:23:00) 

Есть такой код:

begin
NMPOP31.Port    :=     strtoint(Edit1.Text);
NMPop31.UserID  :=     Edit3.Text;
NMPop31.Host    :=     Edit2.Text;
NMPop31.Password:=     Edit4.Text;
NMpop31.Connect;
NMpop31.DeleteOnRead:=false;
MailCounter := NMpop31.MailCount;
 try
  NMpop31.GetMailMessage(MailCounter);
 except
  on E: ERangeError do
   begin
    NMPop31.Disconnect;
   end;
 end;
  with NMPop31.MailMessage.Body do
   begin
    MkDir(ExtractFilePath(Application.ExeName) + From);
    ChDir(ExtractFilePath(Application.ExeName) + From);
    SaveToFile(bodyname);
   end;

Выдает сей код ERangeError при GetMailMessage. Объясните тупому мне, в чем дело, а?

---

CShooter   (2006-06-06 15:48:00) [1]

> wal ©   (06.06.06 11:21) [2]


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

Что делать?

---

wal   (2006-06-06 11:21:00) [2]

> Объясните тупому мне, в чем дело
Всего у тебя сообщений MailCounter. Сообщения нумеруются с 0 (нуля). Ты пытаешся получить сообщение, которого нет.

С уважением.

---

Dmitrij_K   (2006-06-06 10:42:00) [3]

Переходи на Indy Ж)
Открытый код навсегда

---

Наверх