Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

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;



 
ga3 ©   (2002-07-30 03:07) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
3-35216
sergey32
2002-07-23 14:50
2002.08.12
Может ли MIDAS сервер


1-35377
BlackSun
2002-07-24 20:22
2002.08.12
PostData


3-35226
Crazy Joker
2002-07-19 11:29
2002.08.12
Помогите! Форма не отображается пока не выполнится запрос к БД .


4-35520
jonik pegas
2002-06-07 13:23
2002.08.12
Рисование на форме и скроллинг


14-35422
SPeller
2002-07-16 22:59
2002.08.12
Вот и досиделси ....