Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: IdPOP3, Как с ним работать  (Прочитано 9361 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Dimyan
Гость
« : 03-03-2005 10:17 » new

кто-нибудь с ним работал? Помогите разобраться
Мне нужно получить файл с почты, сохранить его в установленное место и вытащить из него приаттаченный файл
Записан
Dimyan
Гость
« Ответ #1 : 04-03-2005 05:21 » 

Код:
procedure TMainForm.ReceiveMail();
var
  i, MesCnt :Integer;
  Attach :TIdAttachment;
begin
 try
 MessageBase.Clear;
 
  ReceiveBase.Connect(50000);
  if ReceiveBase.Connected then
  begin
    MesCnt := ReceiveBase.CheckMessages;
    while MesCnt > 0 do
    begin
      if ReceiveBase.Retrieve(MesCnt, MessageBase) then
      begin
        for i:=0 to MessageBase.MessageParts.Count do
        begin
          if MessageBase.MessageParts.Items[i].ClassType = TIdAttachment then
          begin
            Attach := MessageBase.MessageParts.Items[i] as TIdAttachment;
            Attach.SaveToFile(Attach.FileName);
          end;
        end;
      end;
      dec(MesCnt);
    end;
   end;
 finally
  if ReceiveBase.Connected then ReceiveBase.Disconnect;
  Attach.Free;
 end;
end;

где: MessageBase - TIdMessage
ReceiveBase - TIdPOP3

Пишет что ошибка сохранения аттача smile(
Подскажте пожалуйста где ошибка, уже второй день с этим РОР3 бьюсь, нифига не выходит smile(
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines