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

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

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

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

#   

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


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

Подробнее »



Вопрос # 6 673

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Пытаюсь получить письмо с mail.ru с помощью IdPOP3.
Не могу расшифровать IdMessage1.Subject
Вместо кириллицы вопросики.
По всему интернету решение проблем только отправки, а получения не нашел.

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

Вопрос задал: вел (статус: Посетитель)
Вопрос отправлен: 26 августа 2017, 21:10
Состояние вопроса: открыт, ответов: 0.


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

Всего сообщений: 19; последнее сообщение — 27 августа 2017, 17:58; участников в обсуждении: 2.
min@y™

min@y™ (статус: Доктор наук), 26 августа 2017, 21:14 [#1]:

Цитата (вел):

Не могу расшифровать IdMessage1.Subject

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

вел (статус: Посетитель), 26 августа 2017, 21:16 [#2]:

текст прекрасно расшифровывается с помощью utf8toansi()
вел

вел (статус: Посетитель), 26 августа 2017, 21:23 [#3]:

в тексте мне шлют html <META HTTP-EQUIV='Content-type' CONTENT='text/html; charset=UTF-8>
соответственно выдираю текст utf8toansi(IdMessage1.body.text)
а с темой чет вообще не пойму. тема приходит такой, какой её при отправке зашифровали? или с mail.ru все письма с темой в одинаковой кодировке приходят?
min@y™

min@y™ (статус: Доктор наук), 26 августа 2017, 21:26 [#4]:

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

вел (статус: Посетитель), 26 августа 2017, 21:32 [#5]:

да я это по нескольку раз читал.
нету в теме никаких "=?ISO-" и "=?+Windows-1251".
просто по одному вопросику на каждый символ кириллицы.
или я чет не догоняю
вел

вел (статус: Посетитель), 26 августа 2017, 21:36 [#6]:

IdDecoderMIME тоже не помогает.
причем вопросиками только кириллица. цифры и точки я вижу нормально
min@y™

min@y™ (статус: Доктор наук), 26 августа 2017, 21:41 [#7]:

Сохрани в файл методом SaveToFile() и дай сюда.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
вел

вел (статус: Посетитель), 26 августа 2017, 21:54 [#8]:

https://yadi.sk/d/Sujm0Ip73MMCMT
вел

вел (статус: Посетитель), 26 августа 2017, 21:57 [#9]:

блин там все вопросики "3f". причем это письмо почтовый клиент foxmail прекрасно скачал и показал тему
min@y™

min@y™ (статус: Доктор наук), 26 августа 2017, 21:58 [#10]:

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

вел (статус: Посетитель), 26 августа 2017, 22:07 [#11]:

чет я не понял где это
https://yadi.sk/i/qYWaHFZU3MMD26
min@y™

min@y™ (статус: Доктор наук), 26 августа 2017, 22:09 [#12]:

Ну и чего ты от меня хочешь?

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

min@y™ (статус: Доктор наук), 26 августа 2017, 22:10 [#13]:

Цитата (вел):

чет я не понял где это

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

вел (статус: Посетитель), 26 августа 2017, 22:12 [#14]:

извини, если напрягаю.
я сюда пришёл помощи искать.
это письмо почтовый клиент нормально скачал.
min@y™

min@y™ (статус: Доктор наук), 26 августа 2017, 22:19 [#15]:

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

вел (статус: Посетитель), 26 августа 2017, 22:19 [#16]:

вот так я его получаю:
IdPOP31:=tIdPOP3.Create;
IdSSHandler1:=TIdSSLIOHandlerSocketOpenSSL.Create;
IdPOP31.IOHandler:=IdSSHandler1;
IdPOP31.UseTLS:=utUseImplicitTLS;
IdMessage1:=tidmessage.Create;
IdPOP31.Host:='pop.yandex.ru';
IdPOP31.Port:=995;
IdPOP31.Username:='info@forummm.biz';
IdPOP31.Password:='123';
IdPOP31.Connect;
i1:=IdPOP31.CheckMessages;
showmessage(inttostr(i1));
IdPOP31.Retrieve(1,IdMessage1);
IdMessage1.SaveToFile('c:17.123');
вел

вел (статус: Посетитель), 26 августа 2017, 22:20 [#17]:

ок, спасибо
вел

вел (статус: Посетитель), 27 августа 2017, 14:58 [#18]:

Скомпилил indy maildemo, та же проблема. В теме писем "3F" вместо русских букв.
вел

вел (статус: Посетитель), 27 августа 2017, 17:58 [#19]:

решил вопрос через RetrieveRaw

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 ноября 2017, 08:31
Выполнено за 0.04 сек.
Рейтинг@Mail.ru