Поиск:

Ответ в темуСоздание новой темы Создание опроса
> POP3 download Attach, Нужна помощь (мужики срочно надо :( ) 
V
    Опции темы
Meltic
Дата 9.4.2011, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Мужики спасайте, перерыл уже не знаю сколько инфы и тут на форуме и в нете, тут во всех темах по поп3 прочитал что угодно, но только не как правильно скачать аттач. Реализую задачу на Borland c++ builder 6 сделал все что хотел, прикрутил к проге получение писем(инди ПОП3 юзал), получает, все показывает, один бок , НИКАК не могу сохранить аттач в папку  smile  smile  smile  в хелпе у меня екзампла по аттачу чето нету, тут советовали там почитать... нашел как отправить этот аттач, но подсмотрев там и в других примерах неполучается пля...  в самом лучшем случае просто не принимает письмо если в нем есть аттач...   жму получить и ниче не происходит...   если на ящике письмо без аттача, все отрабатывает красиво....
вот код который писал, подскажите где туплю,  понимаю что дело в этом непосредственно, но нормального хелпа не нашел и примера по сохранению тоже :(  помогите, советом, примером, ссылкой на хелп хоть как нибудь!!!   завтра к 19,00 должен быть готовый проект   smile  smile  smile 
на кучу коментов не обращайте внимания просто мучаюсь уже долго сильно, пробовал только не через жопу разве...

Код


   try {
    IdPOP31->Connect();
    MsgCount=0;
    MsgCount=IdPOP31->CheckMessages();
    i=1;
    AnsiString FilePatch = "C:\XimReserv\Post\Zakaz1.xls";
    if (MsgCount>0)
    {
       for (i=1;i<=MsgCount;i++)
       {
       IdMessage1->Clear();
       ShowMessage("Отработало! IdMessage1->Clear();");
       IdPOP31->Retrieve(i,IdMessage1);
       Label1->Caption=IdMessage1->Subject;
       Label2->Caption=IdMessage1->From->Address;
       Label4->Caption=IdMessage1->Body->Text;
       Memo1->Lines->Add(IdMessage1->Body->Text);//  Text = IdMessage1->Body->Text;
       Label3->Caption=DateToStr(IdMessage1->Date);
       if (IdMessage1->MessageParts->Items == TIdAttachment) {
       TIdAttachment  *attach = dynamic_cast<TIdAttachment*>(IdMessage1->MessageParts);//->Items[i]);//= IdMessage1->MessageParts->
       ShowMessage("Îòðàáîòàëî!  attach = dynamic_cast<TIdAttachment*>(IdMessage1->MessageParts->Items[i]);");
       Attach = IdMessage1->MessageParts->Items[i] as TIdAttachment;
       ShowMessage(attach->Headers->Text);
       attach->SaveToFile(FilePatch);
        }
       }
       IdPOP31->Disconnect();
    } else {
    ShowMessage("Ïèñåì íåò!!!");
    IdPOP31->Disconnect();
    }
    } catch(Exception &Err) {
    ShowMessage("Error: "+Err.Message);
  }



тут что коментил для наглядности, вдруг у меня гдето правильная мысль мелькала, тыкните носом пожалуйста добрые люди...

Код


   try {
    IdPOP31->Connect();
    MsgCount=0;
    MsgCount=IdPOP31->CheckMessages();
    i=1;
    AnsiString FilePatch = "C:\XimReserv\Post\Zakaz1.xls";
    if (MsgCount>0)
    {
//    while(i<=MsgCount)
       for (i=1;i<=MsgCount;i++)
       {
       IdMessage1->Clear();
       ShowMessage("Îòðàáîòàëî! IdMessage1->Clear();");
       IdPOP31->Retrieve(i,IdMessage1);
       Label1->Caption=IdMessage1->Subject;
       Label2->Caption=IdMessage1->From->Address;
       Label4->Caption=IdMessage1->Body->Text;
       Memo1->Lines->Add(IdMessage1->Body->Text);//  Text = IdMessage1->Body->Text;
       Label3->Caption=DateToStr(IdMessage1->Date);
//       if (IdMessage1->MessageParts->Items == TIdAttachment) {
       TIdAttachment  *attach = dynamic_cast<TIdAttachment*>(IdMessage1->MessageParts);//->Items[i]);//= IdMessage1->MessageParts->
       ShowMessage("Îòðàáîòàëî!  attach = dynamic_cast<TIdAttachment*>(IdMessage1->MessageParts->Items[i]);");
//       Attach = IdMessage1->MessageParts->Items[i];// as TIdAttachment;
       ShowMessage(attach->Headers->Text);
       attach->SaveToFile(FilePatch);
//       ShowMessage("Îòðàáîòàëî!  SaveToFile(attach->FileName");
 //      ShowMessage("Zakaz1.xls");
        }



       //
//       IdMessage1->MessageParts->ItemClass
//   if (i==) {
    //RichEdit1->Lines->Add(Msg->From->Address);
   //   RichEdit1->Lines->Add(Msg->Headers->Text);
//    int ind = 0;
//    while (ind<IdMessage1->MessageParts->Count){
//       TIdAttachment *Attach = dynamic_cast<TIdAttachment*>(IdMessage1->MessageParts->Items[i]);
/*       TIdAttachment *Attach(IdMessage1->MessageParts->Items[i]);
         if(Attach)
          {
          RichEdit1->Lines->Add(Attach->Headers->Text);
          Attach->SaveToFile(Attach->FileName); // .SaveToFile(Attach.FileName);;
          }*/
//    ind++;
       }
       IdPOP31->Disconnect();
//       i++;
//     }
    } else {
    ShowMessage("Ïèñåì íåò!!!");
    IdPOP31->Disconnect();
    }
    } catch(Exception &Err) {
    ShowMessage("Error: "+Err.Message);
  }



Это сообщение отредактировал(а) Meltic - 9.4.2011, 13:38
PM MAIL   Вверх
maint
Дата 9.4.2011, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

AnsiString FilePatch = "C:\XimReserv\Post\Zakaz1.xls";

здесь точно ошибка
надо
Код

AnsiString FilePatch = "C:\\XimReserv\\Post\\Zakaz1.xls";
PM   Вверх
Meltic
Дата 9.4.2011, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
исправил, попробовал еще убрать проверку есть ли аттач или нету(в ящике одно письмо с аттачем)
вот что получил :


Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  __________.JPG 182,00 Kb
PM MAIL   Вверх
Meltic
Дата 9.4.2011, 14:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
а можно хелпом поделится как это делается правильно? или пример с синтаксисом....  ? я уже просто запутался в том что за чем должно быть и и как написано...  а прочитать где ненайду никак :( от как отправить навалом, а пля сохранить, никто не делал такое чтоли? не поверю!

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  __________.JPG 182,00 Kb
PM MAIL   Вверх
Meltic
Дата 9.4.2011, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
вопрос снимается, нашел таки что искал на просторах форумов, вот ссылка, вдруг кому пригодится...

http://borland.xportal.ru/forum/viewtopic....ghlight=tidpop3

Это сообщение отредактировал(а) Meltic - 9.4.2011, 18:46
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0686 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.