Hallo!
Hab den Thread ja hier völlig vergessen.
Ja, das Problem bei der Range-Lösung war tatsächlich das nicht initialisierte Dokument. Bin dann später auch auf diese Lösung gestoßen ...
Delphi-Quellcode:
{ ************************************************************ }
procedure WB_InjectHTML (WebBrowser: TWebBrowser; HTMLCode: String);
{ ************************************************************ }
var
Range: IHTMLTxtRange;
begin
WebBrowser.Navigate ('about:blank');
while (WebBrowser.ReadyState <> READYSTATE_COMPLETE) do
ProcessMessages;
Range := ((WebBrowser.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
Range.pasteHTML(HTMLCode);
end;
... und die funktioniert auch auf den beiden betroffenen Systemen.
Grüße,
Mario