Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Отправка почты на indy - проблема с кодировкой

Автор: hawkins 12.3.2009, 08:41

В indy10 есть пример почтового клиента MailClient. Проблема с отправкой письма с помощью TIdSMTP с русскими буквами в теме.
Пробовал отправлять на разные почтовые сервисы, с содержимым на русском все нормально, а вот
тема везде нечитаемыми символами отображается. Попробовал посмотреть под снифером,
заголовок темы кодируется в KOI8, вот что в снифер показывает:

Subject: =?KOI8-R?B?z/Du4uXw6uA5?=\r\n

Как бы отучить инди кодировать тему, чтоб без KOI8 ?
Смотрел пример клиента из indy9 там тоже, только кодировка другая какая-то.

Автор: WaReZMEN 12.3.2009, 16:56

Вот глянь мож поможет smile

http://forum.vingrad.ru/forum/topic-250824.html

Автор: hawkins 12.3.2009, 22:48

не а, мне не помогло. Да я уже пытался выставлять кодировку Windows-1251 и в CharSet и в
ContentType и с UTF-8 то же пробовал - без результатно. Причем у меня с самим содержимым
проблем нет, тоько с заголовком темы. Вообще как-то странно что этот глюк у нас по разному проявляется, код приблизительно такой же. Видимо от версии индей зависит. А может и не глюк.

Слушай, а ты не мог бы свой исходник скинуть, а я проверю может правда дело в версии индей ?

Автор: Matematik 12.3.2009, 23:38

> Subject: =?KOI8-R?B?z/Du4uXw6uA5?=\r\n

Тема в кодировке KOI8-R и закодировано алгоритмом Base64 (см. буковка ?B?)
Нормальные почтовики отображают абракадабру, потому что "z/Du4uXw6uA5" текст закодированый base64 и в кодировке windows-1251

Поменяешь на "=?Windows-1251?B?z/Du4uXw6uA5?=" будет показывать по-русски

В Indy9 кодируется легко

Код


uses IdCoderHeader;
EncodeHeader('Проверка9',[],'B',bit8, 'windows-1251')
// можно и так
EncodeHeader(AnsiToUtf8('Проверка9'),[],'B',bit8, 'UTF-8')

Автор: hawkins 13.3.2009, 12:10

Matematik,

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

Код


 IdMessage.Subject :='';
 IdMessage.ExtraHeaders.Add('Subject: '+edtSubject.Text);

ExtraHeaders - пользовательские заголовки

Автор: hawkins 19.3.2009, 10:31

Покопался в методе TIdMessage.GenerateHeader , проблема действительно была в кодировке KOI8-R, а чтобы ее поменять на windows-1251, надо в событии TIdMessage.OnInitializeISO поменять кодировку:

Код


procedure TfrmMessageEditor.IdMsgSendInitializeISO(
  var VTransferHeader: TTransfer; var VHeaderEncoding: Char;
  var VCharSet: string);
begin
 VCharSet:='windows-1251';
end;

а чтоб вообще не кодировал заголовки в BASE64 вроде надо написать VHeaderEncoding:='8', но не проверял