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

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

Как в TWebBrowser переключать кодировку на Кириллица Windows

массив ©   (2004-09-10 05:12:00) 

и Кириллица Koi-8 ?

---

массив   (2004-09-16 10:50:00) [1]

Нет никакой ошибки. Все нормально работает.

---

массив   (2004-09-16 06:10:00) [2]

А где хотя бы описан полный список всех возможных кодировок ? В исходниках Дельфи чего-то не наблюдается.

---

массив   (2004-09-12 01:31:00) [3]

easy ©   (10.09.04 09:59) [1]
Проверь ! Ошибка возникает.

---

массив   (2004-09-11 01:32:00) [4]

> easy ©   (10.09.04 09:59) [1]

Пишет "Неопределённая ошибка".

var
 Doc1 : Variant;

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('about:blank');
 Doc1 := WebBrowser1.DefaultInterface.Document;
 Doc1.write('<html><HEAD></HEAD><body bgcolor=#FFFFCF> Проверка </body></html>');
end;

C чем это может быть связано ?

---

easy   (2004-09-10 09:59:00) [5]

uses
 ...., mshtml;

procedure SetEncoding(browser:TWebBrowser;enc:string);
var
 Doc2 : IHTMLDocument2;
 level:Olevariant;
begin
 browser.Document.QueryInterface(IHTMLDocument2,Doc2);
 Doc2.charset:= enc;
 level:=REFRESH_IFEXPIRED;
 browser.Refresh2(level);
end;

//**********************
...
SetEncoding(WebBrowser1,'KOI8-R');
...
SetEncoding(WebBrowser1,'windows-1251');

---

Наверх