Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TWebBrowser [D5]

Leran2002 © (2002-07-29 08:05:00)
Как программно можно поменять вид кодировки в компоненте TWebBrowser???

ga3 (2002-07-30 03:07:00) [1]
а как бы научить прогу заполнять поля в формах по типу гатора? есть у когонить исходнички или там мысли какие?

Leran2002 (2002-07-29 16:54:00) [2]
Сам же и отвечаю на собственный вопросик ;-))… Вот может кому ни будь пригодиться (да посмотрел я на первый ответ: "Блин как все просто")… А я эту проблему решил таким длинным способом ;-))…

Для того чтобы программно сменить кодировку у документа загруженного в TWebBrowser необходимо подключить модуль:

uses mshtml;

В обработчике OnNavigateComplete2 пишем примерно так:

// это событие происходит когда браузер полностью загрузил документ
// пока документ полностью не загружен, кодировку менять нельзя
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
doc:IHTMLDocument2;
begin
doc := WebBrowser1.Document as IHtmlDocument2;
doc.charset:="x-user-defined"; { определённый пользователем }
{ можно подставить вместо этой любую другую кодировку, например: windows-1251, koi8-r и т.д. }
end;

Текущую кодировку загруженного документа можно определить так (документ обязательно должен быть загружен в браузер):

procedure TForm1.Button1Click(Sender: TObject);
var
doc:IHTMLDocument2;
begin
doc := WebBrowser1.Document as IHtmlDocument2;
Edit1.Text:=doc.Get_charset; { название кодировки }
end;

int64 (2002-07-29 13:54:00) [3]
WebBrowser1.OleObject.Document.charset:= "koi8-r";

Наверх

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