Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как в TWebBrowser изменить кодировку на КИРИЛЛИЦУ?! [D6, WinXP]


Volf_555 ©   (2006-04-17 21:34:00) 

Написал прогу, котороая в TWebBrowser выводит текст полученных сообщений (аналог почтовика). Но эти сообщения отображаются крэказябдами!!! Так как не правильная кодировка...
Как изменить кодировку в TWebBrowser на КИРИЛЛИЦУ (Windows)?


Volf_555   (2006-04-17 21:58:00) [1]


> palva ©   (17.04.06 21:41) [1]
> Укажите кодировку в тексте, который выводите, т. е. начните
> вывод примерно так:
>
> <HTML><HEAD>
> <META  http-equiv=Content-Type content="text/html; charset=windows-
> 1251">
> </HEAD>
> <BODY>

Я пробывал делать так:

 NMPOP31.Connect;
 NMPOP31.GetMailMessage(listview4.ItemIndex+1);
 a:=TStringList.Create;
 a.Text:=NMPop31.MailMessage.Body.Text;
 a.Insert(0,'<BODY>');
 a.Insert(0,'</HEAD>');
 a.Insert(0,'<META  http-equiv=Content-Type content="text/html; charset=windows-1251">');
 a.Insert(0,'<HTML><HEAD>');

 a.SaveToFile(EFP(ParamStr(0))+'body.html');

 WebBrowser1.Navigate('file://'+EFP(ParamStr(0))+'body.html');
 NMPOP31.Disconnect;

Никаких изменений не произошло... Скорее всего, что эти строки не обрабатываются. Так как NMPop31.MailMessage.Body.Textуже содержит html-код с тегами....


palva   (2006-04-17 21:41:00) [2]

Укажите кодировку в тексте, который выводите, т. е. начните вывод примерно так:

<HTML><HEAD>
<META  http-equiv=Content-Type content="text/html; charset=windows-1251">
</HEAD>
<BODY>


Наверх

Титульная страница Поиск, карта сайта Написать письмо