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

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

Вложения Email

Anton ©   (2003-01-21 13:53:00) 

if IdPOP3.Connected then
begin
IdPOP3.Disconnect;
end;
with IdPOP3 do
try
Password:="";
Username:="";
Host:="";
Port:=110;
try
Connect;
except
end;
if Connected then
begin
FMsgCount:=CheckMessages;
if FMsgCount > 0 then begin
for intIndex:=1 to FMsgCount do
begin
Msg.Clear;
idPOP3.Retrieve(intIndex, Msg);
for i := 0 to Pred(Msg.MessageParts.Count) do
begin
if (Msg.MessageParts.Items[i] is TIdAttachment) then
begin
здесь ошибка -> a:=TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename;
end;
end;
end;
end;
end;
finally
end;

---

Anton   (2003-01-21 14:15:00) [1]

Pred(Msg.MessageParts.Count) то же самое что и
(Msg.MessageParts.Count-1)
а вот это не работает
Pred(Msg.MessageParts.Count-1)

---

Карелин Артем   (2003-01-21 14:09:00) [2]

for i := 0 to Pred(Msg.MessageParts.Count-1)
Ошибка на последнем проходе.
Около 15 секунд.

---

Anton   (2003-01-21 14:07:00) [3]

Я перед тем как выложить на форум сидел над этим минут 20

---

Anatoly Podgoretsky   (2003-01-21 14:03:00) [4]

А как насчет того, что бы делать наоборот, сначала пытаться понять, разобраться и только потом просить помощи. Тебе же потребовалось на это всего две минуты.

---

Anton   (2003-01-21 13:55:00) [5]

я понял можете не отвечать

---

Наверх