1

Подключаюсь к почте, помещаю содержимое письма в Memo1, а там краказябли. Может кто подсказать как избежать это?

IdPOP31.Host:='pop3.хостинг.ru';
IdPOP31.Port:=110;
IdPOP31.Username:='логин';
IdPOP31.Password:='пароль';
IdPOP31.Connect;
IdMessage1.Clear;
if IdPOP31.CheckMessages<1 then Break;
IdPOP31.Retrieve(1,IdMessage1);
Memo1.Clear;
Memo1.Lines:=(IdMessage1.MessageParts.Items[0] as TIdText).Body;
7
  • 4
    вот разберись что за [кракозябры][1] [1]: img0.joyreactor.cc/pics/post/full/…
    – NMD
    22 апр 2014 в 12:58
  • Вот текст, если не ошибаюсь - под скрипт он не попадает( { Forum Notification: New Post in ьЛПОПНЙЛБ, ВЙЪОЕУ, РТЕДРТЙОЙНБФЕМШУФЧП : нБТЛПЧУЛЙЕ жПТХНЩ Hello, бЧФПЛПОФТБЛФ has just replied to the topic entitled - йЭЕН ЙОЧЕУФПТБ-ВЙЪОЕУ РБТФОЕТБ - in the ьЛПОПНЙЛБ, ВЙЪОЕУ, РТЕДРТЙОЙНБФЕМШУФЧП forum of нБТЛПЧУЛЙЕ жПТХНЩ. This topic is located at izhevsk.ru/forummessage/71/4287775-0.html#m3264463 Here is what the user posted: quote:Originally posted by Vall: НЩ ОЕ УПВЙТБЕНУС ОБ ЖПТХНЕ ЮФП МЙВП РЙУБФШ Б ЧПФ ЬФП РТБЧЙМШОП!!! МХЮЫЕ ВЩ ЧППВЭЕ ОЕЮЕЗП ОЕ РЙУБМЙ!)} 23 апр 2014 в 4:44
  • Это KOI8-R выведенная в Win-1251 23 апр 2014 в 6:10
  • Есть ли какой-нибудь метод перевода текстовой информации в необходимую кодировку? @kot-da-vinci Вы не однократно помогали мне на данном форуме, указывали на мои ошибки, за что я Вам благодарен. Мне очень интересно, какой у Вас опыт программирования? 23 апр 2014 в 6:45
  • @АлександрЪ Скажем так, программированием "для себя" я занимался еще лет 10 назад. А работаю программистом уже почти 3 года. Похоже в Delphi7 нет средств для перевода кодировок, придется изобретать велосипед :) Вот здесь обсуждение твоей проблемы: delphimaster.net/view/2-1288068191 CharSet может быть пустым если кодировка в заголовках не указана или указана не в том месте. Например, в теме письма или в поле "кому". 23 апр 2014 в 8:01

2 ответа 2

4

IdMessage1 наверняка должен содержать поле/метод которое скажет в какой кодировке текст письма, кодировка обычно указывается в служебных заголовках писем. Ну а дальше останется только преобразовать текст в нужную кодировку.

UPD: CharSet может быть пустым если кодировка в заголовках не указана или указана не в том месте. Она может быть указана в теме письма или в поле "кому". Например, так:

Subject: =?koi8-r?B?6c7Gz9LNwcPJ0Q==?=

Обсуждение этой проблемы здесь.

3
  • Совершенно верно! - IdMessage1.CharSet Возвращает строку (string) Поместил его в ShowMessage, но в сообщении ничего не отобразилось( 23 апр 2014 в 5:48
  • У класса TIdMessage есть метод ProcessHeaders. ProcessHeaders is a procedure that updates message properties based on header values in the message. Попробуйте перед проверкой поля CharSet выполнить ProcessHeaders. 23 апр 2014 в 6:21
  • IdMessage1.ProcessHeaders; ShowMessage(IdMessage1.CharSet); К сожалению, результат тот же( 23 апр 2014 в 6:41
0

Я помнится просто в Uses нечто похожее на StrUtils или Windows (точно не скажу) писал и появлялись разные интересные функции, типа OemToChar и наоборот - помогало в похожих ситуациях. StringList на лету весь конвертировался в нужную кодировку.

http://www.programmersforum.ru/showthread.php?t=66815 - посмотри еще здесь, может и поможет.

2
  • На XE3 таких функций встроенных достаточно сейчас, подзабылась семерочка )))
    – IvanCoFox
    4 апр 2016 в 12:18
  • Точно !!! StrUtils !!! Внутри этой библиотеки много строковых утилит и для кодировок, и для сравнения строк и для прочих со строками операций.
    – IvanCoFox
    4 апр 2016 в 13:34

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.