Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 3 999

Раздел: Delphi » Работа с сетями и протоколами
/ вопрос открыт /

Доброго времени суток, уважаемые эксперты! прогоняя этот код: (приложение)

Т.е. этот код грузит письма со всеми нужными параметрами... дело вот в чём - когда идёт проверка на UTF-8 (if Pos('=?', IdMessage1.From.Text)<>0 then) первое письмо как и нужно обрабатывается а вот все остальные нефига... в чём моя ошибка? подскажите! Заранее спасибо!

Приложение:
  1. procedure TForm1.btn1Click(Sender: TObject);
  2. var i, Mail_Count, MsgSize: Integer;
  3. frome, subj: string;
  4. begin
  5. idp.Connect(30000);
  6. Mail_Count:=IdP.CheckMessages;
  7. for i:=1 to Mail_Count do
  8. begin
  9. idMessage1.Clear;
  10. idp.Retrieve(i, IdMessage1);
  11. with lv1.Items.Add do
  12. begin
  13. if Pos('=?', IdMessage1.From.Text)<>0 then
  14. begin
  15. frome:=IdMessage1.From.Text;
  16. frome:=Copy(frome, 11, MaxInt);
  17. frome:=Copy(frome, 0, LastDelimiter('?', Frome)-1);
  18. Caption:=frome;
  19. end
  20. else Caption:= IdMessage1.Subject;
  21. SubItems.Add(IdMessage1.Subject);
  22. SubItems.Add(DateToStr(IdMessage1.Date));
  23. MsgSize:= idp.RetrieveMsgSize(i);
  24. SubItems.Add(IntToStr(MsgSize));
  25. case IdMessage1.Priority of
  26. mpHighest: SubItems.Add('Very High');
  27. mpHigh: SubItems.Add('High');
  28. mpNormal: SubItems.Add('Normal');
  29. mpLow: SubItems.Add('Low');
  30. mpLowest: SubItems.Add('Very Low');
  31. end;
  32. end;
  33. Application.ProcessMessages;
  34. end;
  35. idp.Disconnect;
  36. end;


eclipse Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: eclipse (статус: Посетитель)
Вопрос отправлен: 8 апреля 2010, 20:00
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 8 апреля 2010, 21:43; участников в обсуждении: 2.
min@y™

min@y™ (статус: Доктор наук), 8 апреля 2010, 21:37 [#1]:

Я не буду это читать. Здоровье дороже.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
eclipse

eclipse (статус: Посетитель), 8 апреля 2010, 21:43 [#2]:

Да я уже разобрался... просто нужно было обрабатывать в отдельной переменной нужную нам строку.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 19:11
Выполнено за 0.02 сек.