На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

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

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> Помогиет с IdIMAP41.Retrieve
    Проблема такая, когда получаю письма с сервера в цикле (см кусок программы), получаю одно и то же письмо (первое и без аттачей или бывает вообще нифига не возвращает), а когда меняю в IdIMAP41.Retrieve(k,Msg) к на любую цифру например 2, то все нормально пашет, и аттачи сохраняет. Есть там такая штука как IdIMAP41.RetrieveAllMsgs но я че-то с ней не могу разобраться, может кто пользовался, буду благодарен за помощь.

    ...
    k:=1;
    while IdIMAP41.Retrieve(k,Msg) do
    begin
    for i:=0 to msg.MessageParts.Count-1 do
    begin
    if (Msg.MessageParts.Items[i] is TIdAttachment) then
    begin
    TIdAttachment(Msg.MessageParts.Items[i]).SaveToFile('c:\temp\'+TIdAttachment(Msg.MessageParts.Items[i]).Filename);
    end
    else
    begin
    if Msg.MessageParts.Items[i] is TIdText then
    begin
    Memo1.Lines.Clear;
    Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[i]).Body);
    end
    end;
    end;
    k:=k+1;
    end;
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0.0860 ]   [ 16 queries used ]   [ Generated: 23.10.26, 23:01 GMT ]