загрузка в TWEBBrowser внешнего js файла и выполнение функции.

[monrus]

Привет всем.
Подскажите пример, для компонента TWebBrowser чтобы в него загружался внешний js-файл и из него запускалась функция. Примеров и инете не нашел с внешними js-файлами. Спасибо.

[Dimka]

В браузере нужно открыть HTML-документ, в котором присутствует элемент script с установленным src. Запуск функции можно реализовать в том же документе скриптом на событие onload для элемента script.

[monrus]

Извиняюсь. Можно пример? Если я правильно понял :
Execscript('onload=хххххххххх', 'javascript')? Такой формат?

[Dimka]

monrus, а что такое execscript?

Я думаю, тебе нужно познакомиться со следующими вещами:
1) HTML вообще.
2) Объектная модель HTML в браузере (DOM).
3) COM-объекты браузера IE (как сам браузер, так и работа с DOM) - потому, что компонент TWebBrowser - это лишь оболочка над COM-объектами.
4) Определиться с JavaScript скриптом, который должен работать.
5) Как браузер взаимодействует с веб-сервером.

[zubr]

1. Получаем объект документа в броузере: HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
2. Создаем массив-вариант для загрузки в него строки: v := VarArrayCreate([0, 0], varVariant);
3. Загружаем в него html-строку, где будет, к примеру <script type="text/javascript" src="blablabla.js">
4. Запишем в документ: HTMLDocument.Write
Есть другой вариант загрузки данных в броузер, смотри в сторону IPersistStreamInit.
Если надо просто выполнить скрипт в окне броузера, то можно воспользоваться методом интерфейса IHTMLWindow2.ExecScript. Для этого надо получить объект документа, а из него IHTMLWindow2 = IHTMLDocument2.parentWindow

[monrus]

Спасибо. Попробуем.