Скачать: CL | DM;

NMpop31.GetMailMessage(NMpop31.MailCount) выдает ERangeError   Найти похожие ветки 

← →
CShooter ©   (2006-06-06 01:23) [0]

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

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. Объясните тупому мне, в чем дело, а?

---

← →
Dmitrij_K   (2006-06-06 10:42) [1]

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

---

← →
wal ©   (2006-06-06 11:21) [2]

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

С уважением.

---

← →
CShooter ©   (2006-06-06 15:48) [3]

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


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

Что делать?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c