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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ?с помошью Pop3 Скачать прекрепленный к мылу фаил? 
V
    Опции темы
Skinner
Дата 13.9.2007, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Вобшем при реализации E-mail на основе IdPOP3 клиента я столкнулся с пробле как мне получить прикрепленный к песьму фаил smile ???  smile    Вобшем я немного про анализировал почти все входяшие данные и пришол к выводу что это и есть мой прекрепленный фаил : 

-----BEGIN BLOCK-----

%09%F1p%8A%00%00%04%94%D6%E0%2
3o%D6%83%D2D%8Ehl%D9%89%C0f%BA
_N%BE%B6%ADZ%E0%09k%EF%AC%CBM%
AB5J%E7%85%D4%7E%96V%01%D5%DD%
AFj%CF%0A6%EA%D9%BDL%DA%1E%1F%
B2%8F%9DP%82k%0A%E1%C6%C7%11%B
D%01%0A%90%E5%E5o%DB%0Eh%96%8E
%88%3A%D8%22C%F3%A5%A1e%A5Mq%F
C6Hw%FD%C7%84%0A%DA%20%26%BF%F
8%E3%60%B9%20%7C%D9%8F%85%23%F
EH%20%B9%EB%C3%09%8A%03%5B%C6%
CA%91%0D%BE%3Ee%B3%AC%A8%3E%E0
6y%B7%82%C90%A5%0A%60%8E%A9%84
%09%D8%21%7D%E6%FC%A5o%C8AV%F3
%ED%EE5%A0e%3F%93%D4%BDS%B4f6%
EB%CF%B7%14%CC%00%1B%B7%CD%8B%
10%F9Ps%DA%BC%DAA%ABv%0D%BE%A4
%825%B1mY%93%D6%E4%22%D4m%5D%F
0%C0%9A%11%D4%5Dt%FE%85%C3c%93
hW%E0%FB%E2R%E2v%11%C9%87%F7e%
C8og%B1%DE%A6h%CEx

-----END BLOCK-----


Так ли это??? если да то как мне его вытошить из IdMessage ???
PM MAIL   Вверх
Snowy
Дата 13.9.2007, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



PM MAIL   Вверх
Skinner
Дата 13.9.2007, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Отлично!!!!!! ОГРОМНОЕ спасибо все получилось!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Код

for i:=0 to IdMessage1.MessageParts.Count-1 do
 with IdMessage1.MessageParts do
        begin
          if items[i].ClassType=TIdAttachment then
            with TIdAttachment(items[i]) do
            begin

            if FileExists(FileName) then DeleteFile(FileName);
                SaveToFile(FileName);
                sendMsg.Add(FileName);
            end;
        Label2.Caption:=sendMsg.Text;
        end;



Это сообщение отредактировал(а) Skinner - 13.9.2007, 20:07
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




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


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

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