Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.06.2008, 14:57   #1
Черничный
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 293
Смущение Проблемы с кодировкой писем

Ребята, на WinAPI настряпал pop3-клиент, подключается, авторизуется, получает список новых писем, запрашиваю письмо с таким то номером, которе в memo грузится, в memo всякая белибирда грузится (понятная ), а сам текст письма вообще не понято чем пишется. Текст письма на русском. Что делать? Это кодировка?
Черничный вне форума Ответить с цитированием
Старый 10.06.2008, 18:02   #2
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Что-то вроде этого?

Цитата:
Content-Type: multipart/mixed; boundary="_----------=_1211994122777391"
Message-Id: <1135369642.1211994122.172741564.77 739@mcgi19.rambler.ru>
X-Mailer: Ramail 3u, (untone)
This is a multi-part message in MIME format.
--_----------=_1211994122777391
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset="windows-1251"; format="flowed"
--
--_----------=_1211994122777391
Content-Disposition: attachment; filename="TMP11.TIF"
Content-Transfer-Encoding: base64
Content-Type: image/tiff; name="TMP11.TIF"

SUkqAAgAAAAYAP4ABAABAAAAAAAAAAABBAA BAAAA6AkAAAEBBAABAAAAhA0A
AAIBAwABAAAAAQAAAAMBAwABAAAAAQAAAAY BAwABAAAAAQAAABUBAwABAAAA
AQAAABYBBAABAAAAhA0AABcBBAABAAAAdLw QABoBBQABAAAALgEAABsBBQAB
AAAANgEAABwBAwABAAAAAQAAACgBAwABAAA AAgAAAD0BAwABAAAAAQAAADEB
AgAPAAAAPgEAADIBAgAUAAAATQEAAEABAwA GAAAAYQEAAA4BAgAwAAAAbQEA
ABABAgAwAAAAnQEAAFKSAQACAAAAzQEAAFO SAQACAAAAFKwAAFSSAQACAAAA
W1YBAFWSAQACAAAAogACABEBBAABAAAA6ao CAAAAAAAsAQAAAQAAACwBAAAB
AAAAVU1BWCBNYWdpY1NjYW4AMjAwODogNTo yOCAxNjo0NTogMAAAAAD/AAAA
Ну так всё правильно, просто письмо в MIME-формате.
Посмотри компонент IdMessage или IdMessageDecoderMIME на вкладке Indy Misc
------
А, WinAPI, пардон )) Тада не знаю
пыщь

Последний раз редактировалось JTG; 10.06.2008 в 18:07.
JTG вне форума Ответить с цитированием
Старый 10.06.2008, 21:25   #3
Черничный
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 293
По умолчанию

посмотреть посмотрю, а что с ним дальше делать?
Черничный вне форума Ответить с цитированием
Старый 10.06.2008, 22:03   #4
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

посмотришь как эти компоненты расшифровывают и у себя так же сделаешь
rpy3uH вне форума Ответить с цитированием
Старый 10.06.2008, 22:54   #5
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Цитата:
Сообщение от rpy3uH Посмотреть сообщение
посмотришь как эти компоненты расшифровывают и у себя так же сделаешь
Шифр создаётся с целью сокрытия информации от посторонних, а это кодирование.
Somebody вне форума Ответить с цитированием
Старый 14.06.2008, 20:39   #6
Черничный
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 293
По умолчанию

Не нашел я ничего убедительного про эти компоненты. Как с ними работать? Передавать им текст и получать расшифрованный?
Черничный вне форума Ответить с цитированием
Старый 16.06.2008, 03:48   #7
Черничный
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 293
По умолчанию

Ребята! Вообще что ли никто не в курсе. нашел куски кода:

Код:
for i:=1 to mc do
begin
pop.RetrieveHeader(i,m);
if m.MsgId=id.Items.Strings[k] then
  begin
  pop.Retrieve(i,m);
  IdMessageDecoderMime1.Create(m);
  IddecoderMime1.Create(m);
  for j:=0 to m.MessageParts.Count-1 do
  if M.MessageParts.Items[j] is TIdText then
  begin
    Memo1.Lines.AddStrings(TIdText(m.MessageParts.Items[j]).Body);
    memo1.Lines.Add(IdDecoderMIME1.DecodeString(m.Body.Strings[?])); // что здесь надо?
    end;
  end;
  m.Clear;
end;
Но тут с TPop3 и то это не рабоатет, а у меня через WinSock. Манула по IdDecoderMIME1 нет нигде.
Черничный вне форума Ответить с цитированием
Старый 16.06.2008, 12:19   #8
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Про Base64 кодирование: http://www.delphihelp.org/base64.html.
Somebody вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кодировка писем NoName_emaNoN Работа с сетью в Delphi 46 10.02.2009 12:36
Проблема с кодировкой и mail.ru! dada PHP 2 08.07.2008 03:08
Дельфи 8. Проблема с кодировкой. Venor Общие вопросы Delphi 1 10.06.2008 20:44
MS Excel и MS Outlook (2003) отсылка писем IceB Microsoft Office Excel 1 02.07.2007 13:32
Microsoft Office Outlook : отправка писем gaybiza Софт 1 18.11.2006 00:14