Probleme mit TWebBrowser und HTML-Inject

[Nuclear-Ping]

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