Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Вниз

Не так всё прсто TIdPOP3   Найти похожие ветки 

 
Ksenom   (2006-03-21 14:36) [0]

Великолепный indy... слов нету блин...
Кроче... Конеутюс по поп3
Получаю письмо... Смотрю body а там MIME... Ну да ладно...Берём IIIdText, делаем проверочку каждой части (Msg.MessageParts.Items[0] is TIdText) и пробуем так получит текст...
Оппа... И текст=текс и куча html хлама тоже как текст... Да ещё и глюки.. Пару писем просматривает а остальные извеняйте...

ПОМОГИТЕ... гадом буду Си займуся...

   Msg:=Tidmessage.Create(self);
   Form1.Memo1.Lines.Clear;
   Form1.Caption:=inttostr(Form1.POP3.CheckMessages);
   for i:=1 to Form1.POP3.CheckMessages do
   begin
     Msg.Clear;
     Form1.POP3.Retrieve(i,Msg);
     for j:=0 to Msg.MessageParts.Count-1 do
     begin
       if (Msg.MessageParts.Items[0] is TIdText) then Form1.Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[0]).Body);
     end;
   end;
   Msg.Free;
 end;


 
stone ©   (2006-03-21 15:31) [1]

if (Msg.MessageParts.Items[0] is TIdText) then
begin
  Form1.Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[0]).Body);
  Break;
end;


> ПОМОГИТЕ... гадом буду Си займуся...

Не поможет :) Формат MIME един для всех.


 
Ksenom   (2006-03-23 12:18) [2]

stone, и чем же моя реализация отличается от вашей... ??? Строчкой Break???
Я конечно не мастер делфей но и не идиот....
if (Msg.MessageParts.Items[0] is TIdText) then Form1.Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[0]).Body);

моя строка всё тоже самое тока без Break!!!!!!!!
Ещё идеи есть... Или тоже будут советовать искать другие компоненты... А ещё мастера )


 
Ksenom   (2006-03-23 16:55) [3]

Я так погляжу у мастеров идей кончились...
Кучу раз тут прикалывалися над моладнеком и кучу раз насмехались...
Везде только и слышу как у всех всё замечательно работает... Или как замечательно в демке в папке делфей описанно всё...
А тут вопрос по практике и тишина... Где ваша гордость любезные...


 
Джо ©   (2006-03-23 17:26) [4]

Интересно, а что можно ответить на кучу невнятных выкриков?

> Оппа... И текст=текс и куча html хлама тоже как текст...
> Да ещё и глюки..

Что такое "текст=текс"? Что такое "куча html хлама тоже как текст"? Html — это, собственно, и есть текст. Какие глюки? Где они? В чем выражаются? Одни вопросы...


 
stone ©   (2006-03-23 17:38) [5]


> Джо ©   (23.03.06 17:26) [4]

Не трудись. Сначала было желание ответить, объяснить, но после таких наездов передумал, пусть сам разбирается.


 
Ksenom   (2006-03-29 16:05) [6]

stone, наезды это когда на улице денег просят... Я констатировал факт. И ваши слова лишь подтверждение. Мои слова лишь сарказм и не более, но если вы это видите как наезд... увольте...

Джо, я в курсе, что html это "язык" гипертекстовой разметки (одно из объяснений), но я в простой и ироничной форме просто сказал что согласно MIME (я вопреки вашему мнению не слабоумный) есть такое понятие как text\plain. И в примере это поле находили проверкой, которая у меня возвращала вообще все поля... То есть и html и версию, и параметры и т.д. кроме вложения.

stone, мой пост давно валяется здесь, хотел бы помочь, помог бы... Когда мужчина говорит он ещё и делает...

Почитайте себя, я не только к stone обращаюсь, вдумайтесь... у половины манера письма попахивает маний величия... Люди за советом приходят, научится хотят... умнее стать...
По вашему любой кто спрашивает это всё, глупец... Глуп тот, кто думает, что всё знает...


 
palva ©   (2006-03-29 17:48) [7]

Ksenom   (29.03.06 16:05) [6]
Учитесь грамотно писать. Учитесь внятно выражать свои мысли. Заинтересуйте форум вашим вопросом. Отвечайте на наши дополнительные вопросы о ситуации. А до тех пор... Разбирайтесь по хэлпам и книжкам. Либо наймите себе учителя, который за деньги будет терпеть ваше остроумие.


 
Ksenom   (2006-03-30 10:37) [8]

palva...
Хотел ответить, но не стал, не вижу смысла продолжать МОНОЛОГ...



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.039 c
8-1131566457
[dvs]digiman
2005-11-09 23:00
2006.04.16
Aero Glass эффект


9-1117512796
XProger
2005-05-31 08:13
2006.04.16
Delphi 4k DEMO


4-1138178994
maxim161
2006-01-25 11:49
2006.04.16
Shutdown&DOS applications


8-1132159663
Neville
2005-11-16 19:47
2006.04.16
Как остановить звук (Wave)?


1-1141919888
TStas
2006-03-09 18:58
2006.04.16
КАк программно зазипить папку?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский