Форум: "Сети";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

Извлечение данных с веб-страниц   Найти похожие ветки 

← →
Barman ©   (2004-02-05 16:26) [0]

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

---

← →
Palladin ©   (2004-02-06 10:30) [1]

Зачем?

---

← →
easy ©   (2004-02-06 11:57) [2]

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://delphimaster.net/view/6-1075987592/");
end;

---

← →
easy ©   (2004-02-06 11:58) [3]

uses mshtml;

---

← →
Archvi!le   (2004-02-09 22:26) [4]

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

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.032 c