ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с IE
10 сообщений из 10, страница 1 из 1
Помогите с IE
    #38409478
rikitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rikitiki
Гость
код
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
loIEPage=CREATEOBJECT("InternetExplorer.Application")
IF TYPE('loIEPage') = "O" AND TYPE('lcUktZed') = "C"
	loIEPage.Navigate2("http://www.qdpro.com.ua/goodinfo/" + ALLTRIM(lcUktZed))
	loTables=loIEPage.DOCUMENT.getElementsByTagName('table')

**Вылетает ошибка - Member DOCUMENT does not eval to an obj

	IF TYPE('loTables') = "O"
		FOR EACH loTable IN loTables
			FOR EACH loRow IN loTable.ROWS
				IF UPPER("Обов'язкова сертифікація")$UPPER(loRow.innertext);
						OR UPPER("Оцінка відповідністі")$UPPER(loRow.innertext)
					loRow.innertext
					loNextRow = loTable.ROWS(lorow.rowIndex +1)
					loNextRows = loNextRow.getElementsByTagName('li')
					FOR EACH loNextRow IN loNextRows
						?loNextRow.innertext
					ENDFOR
				ENDIF
			ENDFOR
		ENDFOR
	ELSE
		MESSAGEBOX("Не вдалося прочитати сторінку для товару" + CHR(13) + "з кодом УКТ ЗЕД " + ALLTRIM(lcUktZed), 48, "Застереження")
	ENDIF
ELSE
	MESSAGEBOX("Не вдалося з'єднатися з сайтом", 48, "Застереження")
ENDIF



если проганять в дебагере - все ок
как поставить задежку
пробовал DOEVENTS FORCE - ничего не получается
...
Рейтинг: 0 / 0
27.09.2013, 11:30
| Ответить | Цитировать | Написать  
Помогите с IE
    #38409501
ЛДПР
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЛДПР
Гость
rikitiki,
Код: c#
1.
2.
3.
4.
5.
6.
7.
loIEPage.Navigate2("http://www.qdpro.com.ua/goodinfo/" + ALLTRIM(lcUktZed))
lnLoadTimeout  = 4
lnStartSeconds = Seconds()
Do While loIEPage.Object.ReadyState # 4 And (Seconds() - m.lnStartSeconds <= lnLoadTimeout )
DoEvents
Enddo
...



если ограничения по времени не существенно его можно исключить
т.е. останется
Код: c#
1.
Do While loIEPage.Object.ReadyState # 4
...
Рейтинг: 0 / 0
27.09.2013, 11:40
| Ответить | Цитировать | Написать  
Помогите с IE
    #38409543
rikitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rikitiki
Гость
ЛДПРrikitiki,
Код: c#
1.
2.
3.
4.
5.
6.
7.
loIEPage.Navigate2("http://www.qdpro.com.ua/goodinfo/" + ALLTRIM(lcUktZed))
lnLoadTimeout  = 4
lnStartSeconds = Seconds()
Do While loIEPage.Object.ReadyState # 4 And (Seconds() - m.lnStartSeconds <= lnLoadTimeout )
DoEvents
Enddo
...



если ограничения по времени не существенно его можно исключить
т.е. останется
Код: c#
1.
Do While loIEPage.Object.ReadyState # 4


сделал без ограничения по времени
вылетает ошибка - Member Object does not eval
...
Рейтинг: 0 / 0
27.09.2013, 11:56
| Ответить | Цитировать | Написать  
Помогите с IE
    #38409595
ЛДПР
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЛДПР
Гость
rikitiki,

Я исходил из того что loIEPage это oleclass shell.explorer.2 :)

тогда скажи что это за объект ?
...
Рейтинг: 0 / 0
27.09.2013, 12:18
| Ответить | Цитировать | Написать  
Помогите с IE
    #38409643
rikitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rikitiki
Гость
ЛДПРrikitiki,

Я исходил из того что loIEPage это oleclass shell.explorer.2 :)

тогда скажи что это за объект ?

Просто создаю объект (нашел на этом форуме)
Код: sql
1.
loIEPage=CREATEOBJECT("InternetExplorer.Application")



никогда раньше не работал с IE через VFP
...
Рейтинг: 0 / 0
27.09.2013, 12:33
| Ответить | Цитировать | Написать  
Помогите с IE
    #38409651
ЛДПР
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЛДПР
Гость
rikitiki,

убери Object

loIEPage.ReadyState # 4
...
Рейтинг: 0 / 0
27.09.2013, 12:38
| Ответить | Цитировать | Написать  
Помогите с IE
    #38409673
rikitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rikitiki
Гость
ЛДПРrikitiki,

убери Object

loIEPage.ReadyState # 4
Спасибо
Заработало!!!!!!!!!
...
Рейтинг: 0 / 0
27.09.2013, 12:50
| Ответить | Цитировать | Написать  
Помогите с IE
    #38410080
rikitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rikitiki
Гость
а как завершить работу IE?
а то у меня висит кучу процесов IE
...
Рейтинг: 0 / 0
27.09.2013, 15:52
| Ответить | Цитировать | Написать  
Помогите с IE
    #38410251
Rostislav D. Kudryashov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rostislav D. Kudryashov
Участник
rikitiki, если б ты не гнушался залезть в командное окно, то Фокс тебе показал бы после набора точки за именем объекта всю его подноготную. В том числе и метод Quit().
...
Рейтинг: 0 / 0
27.09.2013, 17:34
| Ответить | Цитировать | Написать  
Помогите с IE
    #38411026
rikitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rikitiki
Гость
Rostislav D. Kudryashovrikitiki, если б ты не гнушался залезть в командное окно, то Фокс тебе показал бы после набора точки за именем объекта всю его подноготную. В том числе и метод Quit().
Спасибо
Исправлюсь
...
Рейтинг: 0 / 0
29.09.2013, 14:16
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с IE
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=38409501&tid=1582900]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 153ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 13ms
total:  248ms
созд. / загр.: 248ms
x
x
Закрыть


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