Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
Ist es möglich aus der WebBRowser-Komponente den Quelltext der angezeigten Seite in einem Memo darstellen zu lassen? Oder gibts dafür andere bessere Komponenten?
ja das geht, wie das folgende Beispiel zeigt:
<pre>
procedure TForm1.ToolButtonGetHTMLClick(Sender: TObject);
var
aHTMLDoc : IHTMLDocument2;
aHTMLBody : IHTMLElement;
swHTMLText : WideString;
begin
if not VarIsEmpty(WebBrowser1.Document) then
begin
aHTMLDoc := WebBrowser1.Document as IHTMlDocument2;
aHTMLBody := aHTMLDoc.Get_body;
swHTMLText := aHTMLBody.outerHTML;
ShowMessage(swHTMLText);
end;
end;
</pre>
Comment