Hallo,
ich möchte den Seitenquelltext einer Webpage in einer Richedit-Komponente anzeigen.
Delphi-Quellcode:
webbrowser1.Navigate(
URL);
if Assigned(WebBrowser1.Document)
then
begin
PageBody := (WebBrowser1.Document
AS IHTMLDocument2).Body;
while PageBody.ParentElement <>
nil do
PageBody := PageBody.ParentElement;
richedit1.Text := PageBody.innerHTML;
end;
Nachdem webbrowser1.Navigate(link) ausgeführt wurde, ist Assigned(WebBrowser1.Document) aber false, sodass die Richedit1.Text-Zuweisung nicht ausgeführt wird. Was mach ich da falsch? Wenn ich den Code nochmal ausführe, ist Assigned(WebBrowser1.Document) true und die Zuweisung klappt.
Danke.