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

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

Извлечение данных с веб-страниц

Barman ©   (2004-02-05 16:26:00) 

Господа программисты, помогите!
Есть веб-страница, в ней есть hidden-ы. Возможно ли как-нибудь значение этих hidden-ов изъять программно?
Заранее спасибо.

---

Archvi!le   (2004-02-09 22:26:00) [1]

WebBrowser.OleObject.Document.all.tags('hidden').item(0).value

любой тэг, любое свойство...

---

easy   (2004-02-06 11:58:00) [2]

usesmshtml;

---

easy   (2004-02-06 11:57:00) [3]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
var
 oHTML_Doc: IHTMLDocument2;
 rad: IHTMLElementCollection;
 i: integer;
 value,name:string;
begin
 WebBrowser1.Document.QueryInterface(IHTMLDocument2, oHTML_Doc);
 rad := oHTML_Doc.all.tags('input') as IHTMLElementCollection;
 for i := 0 to rad.length - 1 do
  if ((rad.item(i, varEmpty) as IHTMLInputElement).type_ = 'hidden') then begin
   value:= (rad.item(i, varEmpty) as IHTMLInputElement).value;
   name:= (rad.item(i, varEmpty) as IHTMLInputElement).name;
  showmessage('Я нашёл скрытый элемент!'#10#13#10#13+'Value - '+ value+#10#13+'Name - '+name);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate(' http://www.delphimaster.ru/cgi-bin/forum.pl?id=1075987592&n=4');
end;

---

Palladin   (2004-02-06 10:30:00) [4]

Зачем?

---

Наверх