| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WebBrowser.Document.All.Tags [D6, WinXP]

asdqwer ©   (2003-12-29 18:19:00) 

На днях получил совет по автоматическому нажиманию кнопок, отмечанию чекбоксов и т.д. в броузере со следующим кодом:
---
var
Doc:Variant;
Inputs:Variant;
I:Integer;
begin
Doc := WebBrowser1.Document;
Inputs := Doc.all.tags("Input");
for i:=0 to Inputs.Length-1 do
begin
// здесь делаем что-то с полями формы, например:
Inputs[i].Value:="Это функциональный элемент № "+inttostr(i);
end;
end;
Всё отлично работает, но возникает вопрос: что делать, если страница фреймовая? Может кто знает? Заранее спасибо.

---

asdqwer   (2003-12-31 08:54:00) [1]

Огромное спасибо!

---

easy   (2003-12-30 15:39:00) [2]

var
Doc:Variant;
Inputs:Variant;
I:Integer;
begin
Doc := WebBrowser1.OleObject.document.frames.item(1).document;
Inputs := Doc.all.tags("Input");
for i:=0 to Inputs.Length-1 do
begin
// здесь делаем что-то с полями формы, например:
Inputs.item(i, varEmpty).Value:="Это функциональный элемент № "+inttostr(i);
end;
end;

---

Наверх