Forum: Netzwerke
Delphi
by Lannes,
6. Sep 2005
Hallo,
@marabu
kann der WebBrowser nicht :(
Fehlermeldung:
Die Methode 'Window' wird vom Automationsobjekt nicht unterstützt.
Forum: Netzwerke
Delphi
by Lannes,
5. Aug 2005
@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 :wall:
Also wären folgende...
Forum: Netzwerke
Delphi
by Lannes,
4. Aug 2005
Hallo,
hab mal deinen Code überarbeitet.
Die falschen Zeilen sind auskommentiert, neue durch //neu gekennzeichnet.
In einem Post zuvor hatte ich geschrieben :
"Wenn frames.length = 0 ist hast Du keine Frames ",
deshalb der Bereich mit den neuen Zeilen.
var z,z2,count1,count2 : Integer;
begin
with WebBrowser1 do
Forum: Netzwerke
Delphi
by Lannes,
2. Aug 2005
Hallo,
Du musst zwei Schleifen verschachtelt ausführen,
dafür brauchst Du zwei Zählvariablen und zwei Countvariablen.
die Anzahl Frames hast Du ermittelt aber nicht Count zugewiesen.
Hab gerade nicht viel Zeit( :sharkylinchen: ), hier mal etwas Pseudocode:
Count_1 = Anzahl Frames im Document
Schleife_1 0 to Count_1
begin
Count_2 = Anzahl Images im Frame-Document
Forum: Netzwerke
Delphi
by Lannes,
2. Aug 2005
Hallo,
Du arbeitest auf deiner Seite mit Frames, darum musst Du erst mit Hilfe von
OleObject.document.frames.length und dann
OleObject.document.frames.items(z)alle Frames über eine Schleife durchgehen.
In dieser Schleife dann die Images auslesen.
In dem Fall dann:
OleObject.document.frames.item(z).document.images.item(z).Src
Wenn frames.length = 0 ist hast Du keine Frames und kannst den...
Forum: Netzwerke
Delphi
by Lannes,
2. Aug 2005
Hallo,
ja, Document Object Model ist das Stichwort.
Hier mal ein kleines Beispiel:
var z,count : Integer;
begin
with WebBrowser1 do
begin
count := OleObject.document.images.Length;
for z := 0 to Count-1 do
