Форум: "Сети";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
ВнизВложения Email Найти похожие ветки
← →
Anton (2003-01-21 13:53) [0]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 13:55) [1]я понял можете не отвечать
← →
Anatoly Podgoretsky (2003-01-21 14:03) [2]А как насчет того, что бы делать наоборот, сначала пытаться понять, разобраться и только потом просить помощи. Тебе же потребовалось на это всего две минуты.
← →
Anton (2003-01-21 14:07) [3]Я перед тем как выложить на форум сидел над этим минут 20
← →
Карелин Артем (2003-01-21 14:09) [4]for i := 0 to Pred(Msg.MessageParts.Count-1)
Ошибка на последнем проходе.
Около 15 секунд.
← →
Anton (2003-01-21 14:15) [5]Pred(Msg.MessageParts.Count) то же самое что и
(Msg.MessageParts.Count-1)
а вот это не работает
Pred(Msg.MessageParts.Count-1)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c