Hi,

ich zeige eine Webseite im TWebbrowser an und lasse mittels

zusammenfalten · markieren

Delphi-Quellcode:

function xyz(Webbrowser: TWebBrowser): String;

var

  aHTMLDoc : IHTMLDocument2;

  aHTMLBody : IHTMLElement;

  swHTMLText : WideString;

begin

  if not VarIsEmpty(WebBrowser.Document) then

    begin

      aHTMLDoc := WebBrowser.Document as IHTMlDocument2;

      aHTMLBody := aHTMLDoc.Get_body;

      swHTMLText := aHTMLBody.outerHTML;

      result := swHTMLText;

    end;

end;

mir den Webseitenquelltext anzeigen. Klappt auch alles wunderbar, bis auf den Fall wenn in der Webseite ein iframe mittels:

markieren

Delphi-Quellcode:

<iframe src="quelle.php" width="200" height="200" frameborder="0">
    <p><code>iframe</code>-Element wird nicht unterst&uuml;tzt bzw. die <a href="quelle.htm">Quelle</a> ist nicht verf&uuml;gbar.</p>
</iframe>

eingebaut wird. Dann bekomme ich logischerweise nur diesen Code und nicht den Quelltext des iFrames zu sehen, genau den bräuchte ich aber.

Wie kann ich den Quelltext eines iFrames anzeigen lassen ohne den Frame separat zu laden? Der Webbrowser zeigt ihn ja auch an (den Frame), also muss er ja schon geladen sein, wie komme ich an den Quelltext? Vielen Dank schonmal.

Vielleich kannst Du hier mit etwas anfangen:

markieren

Delphi-Quellcode:

formcount:=form1.WebBrowser1.OleObject.document.forms.length;
framecount:=form1.WebBrowser1.OleObject.document.FRAMES.length;
if framecount<1 then showmessage(' keine Frames empfangen, Fehler bei Datenextraktion!');
if framecount>0 then begin ..... {frames}

Gruß
K-H

Danke dir, dass war schonmal ein guter Ansatz.

Ich war nur zu blöd zum suchen, marabu hat hier schon die Antwort geposted:
http://www.delphipraxis.net/557172-post5.html

Vielen Dank

Hi,
Ich veruchte diese lösung wie oben im link.
doch bekomme ich einen error: (BILD wo der Pfeil ist)
Habe WIN 10 und Delphi Berlin.
Was kann ich da machen?
WIlle aus einem iframe die innerhtml auslesen.
DANKE

walter