Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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.55 MB
Время: 0.048 c
3-29728
Zhenka
2003-02-19 08:33
2003.03.10
Подскажите как проиграть звук из Blob поля


1-29860
MadGhost
2003-02-28 15:42
2003.03.10
Можно ли както узнать?


1-29889
apple11
2003-02-26 15:27
2003.03.10
Что такое Stream и для чего они нужны?


3-29773
sandrina
2003-02-19 12:35
2003.03.10
Oracle+Delphi


1-29852
Шишкин Илья
2003-02-20 20:49
2003.03.10
Помогите с автозапуском





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский