Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Траблы в работе с компонентами Indy, Хочу нормально получить почту))) 
:(
    Опции темы
AlexLogos
Дата 24.9.2009, 12:02 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
Товарисчи!!! Прошу совета гуру Делфей. Есть код, который по идее должен принимать почту (ладно не код, а комп, выполняя команды), но есть несколько приколов. Так вот код:
Код

procedure TForm1.Button1Click(Sender: TObject);
var text:TIdText;
intIndex,i:cardinal;
begin
    IdPOP31.Host:='pop.mail.ru'; // адрес почтового сервера
    IdPOP31.Port:=110; // порт по которому будет осуществляться подключение
    IdPOP31.Username:='******@mail.ru'; // Логин пользователя
    IdPOP31.Password:='*******'; // пароль пользователя
    IdMessage1.Clear; // очистка буфера для сообщения
    try
     Memo1.Clear; // очистка компонента memo для отображения текста письма.
     Memo1.Lines.Add('Connecting...');
     IdPOP31.Connect(60000); // подключение по протоколу POP3, по настройкам в компоненте IdPOP3, с именем POP3
     Memo1.Lines.Add('Connected.');
     IdPOP31.Retrieve(1,IdMessage1); // получение одного сообщения
     for intIndex := 0 to IdMessage1.MessageParts.Count-1 do
      begin
       if (IdMessage1.MessageParts.Items[intIndex] is TIdText) then
         Memo1.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body)
       else
        begin //body text
         if IdMessage1.MessageParts.Items[intIndex] is TIdAttachment then
          begin
           TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).SaveToFile(TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).Filename);
           TIdAttachment.Create(IdMessage1.MessageParts,TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).Filename);
          end
        end;        
       end;
     Memo1.Lines.AddStrings(text.Body);
     IdPOP31.Disconnect; // разрыв связи
    except ShowMessage('Не вдалося підключитися до сервера...')
    end;
end;


При получении письма все его содержимое не смотря на его тип - текст или аттачмент - распознается как текстовая инфа и вместо сохранения приложений я в мемо получаю аттач в текстовом виде. Как это лечить?  smile 

Это сообщение отредактировал(а) AlexLogos - 25.9.2009, 12:35
PM MAIL   Вверх
AlexLogos
Дата 26.9.2009, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
Народ, мне нужен ответ на интересующий меня вопрос!!! Есть что сказать по теме - пожалуйса подскажите  smile 

Это сообщение отредактировал(а) AlexLogos - 26.9.2009, 00:27
PM MAIL   Вверх
Snowy
Дата 28.9.2009, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 53
Всего: 484
Возможно дело в письме.
Попробуй отправить письмо из другой программы или через web интерфейс.
В 9-й инди есть ошибка в коде распознавания частей.
Вот тут я писал про обход ошибки:
PM MAIL   Вверх
AlexLogos
Дата 6.10.2009, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
Подскажите, поставил себе CodeGear 2009, пишу в обработчике события нажатия на кнопку все тот же код (смотри выше), а выбивает ошибку "[DCC Error] Unit1.pas(31): E2003 Undeclared identifier: 'TIdText'". Откуда ей взяться если используються те же компоненты, или их изменяли в новой версии Делфы? Эта проблема с почтой меня доконала. Большой прожект с кучей прибамбасов невозможно закончить только потому что фишка в том что обрабатываю файлы полученные по почте, а получить их не могу... 
PM MAIL   Вверх
Snowy
Дата 6.10.2009, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 53
Всего: 484
Добавь в uses 'IdText'

Модератор: Пожалуйста, один топик - один вопрос.
PM MAIL   Вверх
AlexLogos
Дата 6.10.2009, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
это помогло. теперь попробую заставить код работать в Delphi 7.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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