Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с IE / 10 сообщений из 10, страница 1 из 1
27.09.2013, 11:30
    #38409478
rikitiki
rikitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с IE
код
Код: 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:40
    #38409501
ЛДПР
ЛДПР
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с IE
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:56
    #38409543
rikitiki
rikitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с IE
ЛДПР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, 12:18
    #38409595
ЛДПР
ЛДПР
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с IE
rikitiki,

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

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

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

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

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



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

убери Object

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

убери Object

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


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