|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с DOM-моделью
День добрый! Есть форма:
Код HTML:
|
#2
|
|||
|
|||
Друзья! Я прошу хотя бы пнуть в нужную сторону, конечно если нет другого выхода.
|
#3
|
||||
|
||||
Пинаю: соседняя тема, автор scroyler.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#4
|
||||
|
||||
Цитата:
|
#5
|
|||
|
|||
PHP код:
Честно говоря я немного не понимаю что там нужно заменить что бы это подошло к моему случаю. Потому что у моей кнопки очень запутанный код. |
#6
|
||||
|
||||
Цитата:
Что именно тебе в коде непонятно? |
#7
|
|||
|
|||
Я закончил колледж, и там мне такие вещи не объясняли. В общем некоторые моменты мне не ясны. Например вот это
Код HTML:
это такая кнопка? |
#8
|
|||
|
|||
Код:
Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection; тут он на all ругается. |
#9
|
|||
|
|||
а вообще вот моя кнопка:
Код:
procedure TForm1.Button1Click(Sender: TObject); var Doc: IHTMLDocument2; Buttons: IHTMLElementCollection; Button: IHTMLElement; i: Integer; begin Doc := WebBrowser1.Document as IHTMLDocument2; Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection; for i := 0 to Buttons.length - 1 do begin Button := Buttons.item(i, EmptyParam) as IHTMLElement; if AnsiSameText(Trim(Button.innerText), 'Заполнено') then begin Button.click; Break; end; end; end; ну и соответственно подключаю MSHTML Последний раз редактировалось udachnik2, 08.11.2012 в 10:47. |
#10
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var Doc: IHTMLDocument2; Buttons: IHTMLElementCollection; Button: IHTMLElement; i: Integer; begin Doc := WebBrowser1.Document as IHTMLDocument2; Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection; for i := 0 to Buttons.length - 1 do begin Button := Buttons.item(i, EmptyParam) as IHTMLElement; if AnsiSameText(Trim(Button.innerText), 'Çàïîëíåíî') then begin Button.click; Break; end; end; end; Я нажал на первую кнопку. Но там есть еще продолжение: Код:
<input data-disable-with="Ждите..." disabled="disabled" name="commit" type="submit" value="Далее" /> |
#11
|
|||
|
|||
Померли все что ли?
Последний раз редактировалось udachnik2, 08.11.2012 в 11:19. |
#12
|
|||
|
|||
Ребятки, ну не чурайтесь помочь человеку. Я ведь не от хорошей жизни к вам обращаюсь за помощью.
|
#13
|
||||
|
||||
через:
Код HTML:
основная страница для справки http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 08.11.2012 в 11:38. |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
udachnik2 (08.11.2012)
|
#14
|
|||
|
|||
Чего то не пашет. я сделал так:
Код:
procedure TForm1.Button3Click(Sender: TObject); var Doc: IHTMLDocument2; Buttons: IHTMLElementCollection; Button: IHTMLElement; i: Integer; begin Doc := WebBrowser1.Document as IHTMLDocument2; Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection; for i := 0 to Buttons.length - 1 do begin Button := Buttons.item(i, EmptyParam) as IHTMLElement; if Button.getAttribute('value', 2)= 'Далее' then begin Button.click; Break; end; end; end; |
#15
|
|||
|
|||
Значит не видать мне нажатия
|