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

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

Форум программистов > Delphi: Общие вопросы > Разные кодировки в одном письме

Автор: TP@MB@Y 11.10.2005, 16:22

Вы наверно тоже встречали такие письма, в которых для удобства содержание пишется в двух кодировках(лосовская и виндовая). Или это я что-то путаю? Если нет, то подскажите как реализовать такое.

Код


//Заполняем форму
 msg:=TIdMessage.Create(smtp);
 try
 Smtp.Connect(10000);
 msg.CharSet:='Windows';
 msg.ContentType:='text/plain';
 smtp.AuthenticationType:=atLogin;
 msg.From.Address:=smtp.Username;
 msg.From.Name:=leNik.Text;
 msg.Body.Add(...);

 .......... То же самое только с другой кодировкой

 //Отправка письма

PS Сорри что не в ту ветку (не по моей вине) smile

Автор: Quadr0 11.10.2005, 18:25

...

Автор: Lence 1.9.2006, 14:41

как лечить то когда письма приходят в каракулях ??? когда написано на русском - отправляю - то приходят каракули ? что надо изменить при отправке ?

Автор: Snowy 1.9.2006, 15:03

кодировку правильную указывать нужно.

Автор: Yanis 1.9.2006, 17:05

Цитата(TP@MB@Y @ 11.10.2005, 17:22

)

лосовская

Первый раз протакую слышу.

Quadr0
IMHO тоже да. Но если подумать, то все файлы состоят из банально из байт, то можно в один файл записать "в нескольких кодировках". Другое дело, что верно отобразить этот файл будет сложнее. И с разметкой где какой текст начинается тоже будет запарка smile

Добавлено @ 17:11

Цитата(Quadr0 @ 11.10.2005, 19:25

)

Столько, что хватает даже на уже умершие древние языки.

Всего свободно кажется 29000 + 6000 на нужды программистов. Конечно для всех умерших языков не хватит, но экзотики можно всякой много понапихать smile

Автор: Lence 1.9.2006, 18:36

Цитата(Snowy @ 1.9.2006, 15:03

)

кодировку правильную указывать нужно.

где ее ставить ????

Автор: Savek 2.9.2006, 17:05

Мне вот так удалось избавиться от "крякозябликов":

Код


IdMessage.Subject:=EncodeHeader(eTema.Text,C,'Q',h,'windows-1251');
for i:=1 to mText.Lines.Count do
   IdMessage.Body.Add(EncodeHeader(mText.Lines.Strings[i],C,'Q',h,'windows-1251'));

Забыл сразу вставить

Код


var
    h:TTransfer;
    C:CSET;