VPF::Получение почты через SSL протокол

killerbean

Дата 30.11.2006, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 18.5.2006

Репутация: нет
Всего: нет

Привел функцию ReseiveMail к виду:

Код


begin
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect;
    mc:=pop.CheckMessages;
    while mc>0 do begin
      m:=TIdMessage.Create(pop);
      pop.Retrieve(mc,m);
      for i:=0 to m.MessageParts.Count-1 do
        ProcessMessage(m);
      m.Free; dec(mc);
    end;
    ShowMessage('Все в порядке');
  except
    ShowMessage('Не удалось подключиться к серверу');
  end;
  pop.Free;
end;

в папке "Messages" сохраняеться текстовый файл с телом письма, а аттача как небыло так и нет.
Условие "m.MessageParts.items[i].ClassType=TIdAttachment" не выполняеться smile

Я понимаю что дело в кривых руках, но я даже не знаю в каком направлении двигаться

Snowy

Дата 30.11.2006, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

После
pop.Retrieve(mc,m);
Поставь
m.SaveToFile('test.msg');
И этот файл вышли мне.

Добавлено @ 13:38
Блин. [Посыпаю пеплом голову].
Я только при переходе на следующую страницу заметил, что Indy у тебя 10!
А в 10-ке вместо TIdAttachment нужно по коду везде прописать TIdAttachmentFile.
И где были мои глаза...
Потому и не проходило проверку - TIdAttachmentFile наследний TIdAttachment и это уже другой класс.
Вобщем замени в коде везде на TIdAttachmentFile и всё заработает.

killerbean

Дата 30.11.2006, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 18.5.2006

Репутация: нет
Всего: нет

Ну наконец-то всё нормально. Огромное спасибо Snowy за терпение

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »