TWebBrowser

← →
Leran2002 © (2002-07-29 08:05) [0]

Как программно можно поменять вид кодировки в компоненте TWebBrowser???

← →
int64 © (2002-07-29 13:54) [1]

WebBrowser1.OleObject.Document.charset:= "koi8-r";

← →
Leran2002 © (2002-07-29 16:54) [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;

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

TWebBrowser Найти похожие ветки