TWebBrouser не воспринимает скрипт в локальном файле

arev · #1 30.05.2013, 15:43

Просто мольба о помощи, уже на недели счет пошел, как бьюсь с одной задачей.
Свел кратко вот к чему: через DOM-модель нужно запустить в компоненте TWebBrouser html-код, включающий вызов скрипта из файла *.js, лежащего на диске, в той-же папке.
Зачем именно так - вопрос отдельный, для работы оффлайн с картами через OpenLayers, если кому интересно.

Пример:

Код:

var
 HTMLStr: AnsiString; 
 OL_Val: OleVariant;
 HTMLWindow_Main: IHTMLWindow2;
 v: Variant;
 HTMLDocument: IHTMLDocument2;
 
HTMLStr:= '<html>' + #13#10 +
' <head> ' + #13#10 +
'  <body>' +   #13#10 +
'   <img src="e:\COOP\FOR_OFFER_WEBMAP\ex_openlayers\marker-green.png" alt="HTML" width="50" height="50" />' + #13#10 +
'   <script type="text/javascript" charset="UTF-8"  src="file:///e:\COOP\FOR_OFFER_WEBMAP\ex_openlayers\OL.js">   
</script>' + #13#10 +
'   <script type="text/javascript">' + #13#10 +
'     var x; ' + #13#10 +
'     x = MyInit(); ' +  #13#10 +
'    document.writeln(x);' + #13#10 +
'   </script>' + #13#10 +
'   <p>  ---  </p> ' +  #13#10 +
'  </body>  ' + #13#10 +
' </head> ' +  #13#10 +
'</html>';
 HTMLDocument:=EmbeddedWB1.Document as IHTMLDocument2;
 v:=VarArrayCreate([0, 0], varVariant);
 v[0]:=HTMLStr;
 HTMLDocument.charset:= 'UTF-8';
 HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
 HTMLDocument.Close;
 OL_Val:=EmbeddedWB1.Document; 
 OL_Val:=OL_Val.parentWindow;
 edZoom.Text:=OL_Val.x;

Текст OL.js:

var myVar;
function MyInit () {
myVar=55;
return myVar;
};

Так вот не читает он этот файл OL.js вообще:
"символ 1, строка 1, ошибка - недопустимый знак, код 0, URL: file:///e:\.../OL.js". При этом картинку и текст через теги показывает.
А IE, как и другие браузеры выполняет нормально! И методом Navigate тот же TWebBrouser показывает нормально! Только вот, это бесполезно, т.к. нужно далее обмениваться переменными со страничкой, т.с.
Специально ввел сохранение строки с html-кодом в файл, открываю его браузером - все норм. Да и д.б. норм., стандартнейшая операция.

Пробовал:
- TWebBrouser и ТEmbeddedWebBrouser;
- разные кодировки файла и задание их в коде, создание ".htaccess.txt";
- Win7 и WinХР, IE9..6.

Pyro · #2 30.05.2013, 16:26

не знаю, но можно сохранить html в файл, и поставить относительный путь к js файлу (должно работать),
или можно попробовать считать js файл, и вставить внутрь html целиком

arev · #3 31.05.2013, 07:15

Цитата:

сохранить html в файл, и поставить относительный путь к js файлу

как я писал -

Цитата:

Специально ввел сохранение строки с html-кодом в файл... И методом Navigate тот же TWebBrouser показывает нормально! Только вот, это бесполезно, т.к. нужно далее обмениваться переменными со страничкой

Цитата:

считать js файл, и вставить внутрь html целиком

это единственное, что сработает наверняка, только криво до жути, и не отладить потом такую громадину. я пробовал и просто текст скрипта включить в проект отдельным модулем, но реальный скрипт под мегабайт, не лезет никаким боком...

Pyro · #4 02.06.2013, 09:33

Цитата:

Только вот, это бесполезно, т.к. нужно далее обмениваться переменными со страничкой

мегабайтный файл - как я понял не свой, то и не трогать его, html тоже просто сохранить в файл,
а для обмена можно написать на дельфи функции/классы, которые отправлют короткие js в webbrowser
(тут что-то подобное делал)

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты