|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.08.2015, 11:08 | #11 | |
Пользователь
Регистрация: 20.08.2015
Сообщений: 11
|
Цитата:
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; tbls: IHTMLElementCollection; c: IHTMLElement; d: IHTMLDocument2; all: IHTMLElementCollection; begin WebBrowser1.Navigate('http://localhost/'); d := IHTMLDocument2(WebBrowser1.Document ); all := d.all; tbls := IHTMLElementCollection(all.tags('DI V')); for i := 0 to tbls.length - 1 do begin c := tbls.item(i, 0) as IHTMLElement; if c.id = 'error' then begin showmessage(c.innerHTML); end; end; end; Делал так: Поставил курсор на строке WebBrowser1.Navigate('http://localhost/'); и нажал F5 Дальше на F9 запустил Нажал на форме на Button1 и в delphi начал нажимать Step Over До строки for i := 0 to tbls.length - 1 do дошел опять нажал Step Over и вылезла ошибка: http://2.firepic.org/2/images/2015-0...4kyosw5r5t.png |
|
21.08.2015, 11:57 | #12 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
сделай трассировку еще раз. После того, как пройдет строку с tbls := IHTMLElementCollection(all.tags('DI V')); наведи курсор мышки на tbls и посмотри чему он равен.
I'm learning to live...
|
21.08.2015, 12:08 | #13 | |
Пользователь
Регистрация: 20.08.2015
Сообщений: 11
|
Цитата:
|
|
21.08.2015, 13:32 | #14 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну. Ты понимаешь что там в переменных за значения и что они говорят?
У тебя судя по всему ошибка не в этой строке возникает.
I'm learning to live...
|
21.08.2015, 13:41 | #15 |
Пользователь
Регистрация: 20.08.2015
Сообщений: 11
|
|
21.08.2015, 13:57 | #16 |
Пользователь
Регистрация: 09.10.2014
Сообщений: 62
|
keholem, Попробуйте вот так.
Код:
|
21.08.2015, 14:02 | #17 | |
Пользователь
Регистрация: 20.08.2015
Сообщений: 11
|
Цитата:
|
|
21.08.2015, 14:07 | #18 | |
Пользователь
Регистрация: 09.10.2014
Сообщений: 62
|
Цитата:
Код:
|
|
21.08.2015, 14:17 | #19 |
Пользователь
Регистрация: 20.08.2015
Сообщений: 11
|
Если просто WB.navigate делать то помогает, а если вот так:
Код:
|
21.08.2015, 14:53 | #20 |
Пользователь
Регистрация: 09.10.2014
Сообщений: 62
|
Код:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверка текста в WebBrowser | nibufep | Общие вопросы Delphi | 2 | 17.08.2015 15:22 |
Проверка наличия поля в webbrowser | Dima170792 | Работа с сетью в Delphi | 4 | 01.12.2013 18:48 |
Проверка окончания загрузки страницы в WebBrowser | Vladimir K. | Работа с сетью в Delphi | 8 | 31.10.2010 19:20 |
Проверка текста в webbrowser | nenoob1 | Работа с сетью в Delphi | 3 | 07.08.2010 02:17 |
Проверка наличия элемента в Webbrowser | Verst | Общие вопросы Delphi | 6 | 29.11.2009 16:56 |