Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Исползование ActiveXl - обозреватель веб страниц(Microsoft). / 5 сообщений из 5, страница 1 из 1
07.02.2006, 16:49
    #33529258
Elena Hrustaleva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Исползование ActiveXl - обозреватель веб страниц(Microsoft).
Подскажите пожалуйста! Как скачивать файлы с Интернет страниц по их адресу из VFP?. Я использую в форме ActiveX-control - обозреватель веб страниц(Microsoft). Работает нормально - метод Navigate. А вот как скачать страницу и записать в таблицу?

Елена
...
Рейтинг: 0 / 0
07.02.2006, 18:13
    #33529552
Jurisfox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Исползование ActiveXl - обозреватель веб страниц(Microsoft).
oIE=CREATEOBJECT("InternetExplorer.Application")
oIE.Navigate("http://www.hot.ee/jurisfox/index.htm")
oPage=oIE.Document
loContent=oPage.documentElement
? loContent.outerHTML
lcString=loContent.outerHTML
? lcString


Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
09.02.2006, 17:23
    #33535067
Elena Hrustaleva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Исползование ActiveXl - обозреватель веб страниц(Microsoft).
Jurisfox, Спасибо огромное!!! Тем более приятно, что это первый случай,когда мне помогли в форуме.
...
Рейтинг: 0 / 0
09.02.2006, 20:16
    #33535472
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Исползование ActiveXl - обозреватель веб страниц(Microsoft).
Elena Hrustaleva... это первый случай,когда мне помогли в форуме. Welcome to our club!
...
Рейтинг: 0 / 0
12.02.2006, 02:30
    #33539237
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Исползование ActiveXl - обозреватель веб страниц(Microsoft).
Hi Elena!

Примерно так-же будет выглядеть и код для ActiveX контрола (они по сути
функциональные аналоги - ActiveX контрол и выставленный в качестве COM
сервера собственно InternetExplorer) - только там не
нужно собственно "создавать" объект (он уже и так есть - создаётся при
загрузке формы), а для надёжности (и
чтобы избежать возможного конфликта свойств/методов самого ActiveX-а и
свойств/методов фоксовой "оболочки" - класса OleControl) при обращении
использовать ссылку на Object - т.е.
ThisForm.Olecontrol1.Object.Document.documentElement.outerHTML. Также не
забывай о том, что документ всегда "загружается" - т.е. требуется некоторое
время на то чтобы его прочитать и создать соответствующую внутреннюю
структуру объектов DOM - поэтому даже при открытии с локального диска,
необходимо подождать некоторое время, пока свойство контрола не покажет что
всё уже загрузилось и можно работать дальше. Вот для примера код кнопки на
форме загружающей документ, ожидающей завершения загрузки и выводящей HTML
(обычно отображается лишь небольшой кусок - то что помещается в Messagebox -
хотя переменная содержит весь код страницы).

Код: plaintext
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
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Исползование ActiveXl - обозреватель веб страниц(Microsoft). / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]