Hi Elena!
Примерно так-же будет выглядеть и код для ActiveX контрола (они по сути
функциональные аналоги - ActiveX контрол и выставленный в качестве COM
сервера собственно InternetExplorer) - только там не
нужно собственно "создавать" объект (он уже и так есть - создаётся при
загрузке формы), а для надёжности (и
чтобы избежать возможного конфликта свойств/методов самого ActiveX-а и
свойств/методов фоксовой "оболочки" - класса OleControl) при обращении
использовать ссылку на Object - т.е.
ThisForm.Olecontrol1.Object.Document.documentElement.outerHTML. Также не
забывай о том, что документ всегда "загружается" - т.е. требуется некоторое
время на то чтобы его прочитать и создать соответствующую внутреннюю
структуру объектов DOM - поэтому даже при открытии с локального диска,
необходимо подождать некоторое время, пока свойство контрола не покажет что
всё уже загрузилось и можно работать дальше. Вот для примера код кнопки на
форме загружающей документ, ожидающей завершения загрузки и выводящей HTML
(обычно отображается лишь небольшой кусок - то что помещается в Messagebox -
хотя переменная содержит весь код страницы).
1.
2.
3.
4.
5.
6.
7.
ThisForm.Olecontrol1.Object.Navigate(m.lcFileOrURL)
DO WHILE ThisForm.Olecontrol1.Object.Busy
DOEVENTS
INKEY(. 5 )
ENDDO
lcHTMLSource =
ThisForm.Olecontrol1.Object.Document.documentElement.outerHTML
MESSAGEBOX(m.lcHTMLSource)
И ещё один момент - для данного контрола есть небольшая проблема - его
внутренний метод Refresh конфликтует с одноименным методом фоксового
класса-обёртки - это может привести к зависанию программы или вылету её по
с005 - дабы избежать таких неприятностей надо в фоксовом коде этого метода
прописать директиву (команду) NODEFAULT. Ну а при необходимости рефрешить
страницу (именно рефрешить, а не переоткрывать) можно использовать метод
контрола Refresh2() ;)
Posted via ActualForum NNTP Server 1.3
