Zitat von
shmia:
...
Ups, hatte ich vergessen.
VariantIsObject ist eine kleine, ...
@shmia : Besten Dank
Der Code von shmia funktioniert gut und liest alle Elemente aus dem Tag <FORMS> aus,
berücksichtigt aber keine Frames.
Damit kann die Zugriffsverweigerung des IE/Webbrowsers leider auch nicht umgangen werden.
Im Zusammenhang mit Frames habe ich festgestellt das
OleObject.document.frames.length auch den Tag <iframe> berücksichtigt
Also wären folgende Situationen abzufangen:
- Framesets
- verschachtelte Framesets
- Seite incl. IFrame
- Seite incl. IFrame in einem Frame
- IFrame innerhalb eines IFrame
also rekursiv
Bei der Seite
http://assun.de/ kann die Zugriffverweigerung umgangen werden:
1. Auslesen der Adresse der Seite die im Frame angezeigt wird
2. Laden der Seite im WebBrowser
3. auslesen der Images wie gehabt
Delphi-Quellcode:
...
sFrameName := WebBrowser1.OleObject.Document.all.tags('FRAME').Item(0).getattribute('src',0);
Webbrowser.Navigate(sFrameName);
...
ist aber keine Ideal-Lösung.