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 (нуля). Ты пытаешся получить сообщение, которого нет.

С уважением.

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

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

Что делать?

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