Probleme mit TWebBrowser und HTML-Inject

Hallo,

ich nutze folgenden Code, um in einen TWebBrowser HTML direkt zu "injizieren":

Delphi-Quellcode:

			{ ************************************************************ }

procedure WB_InjectHTML (WebBrowser: TWebBrowser; HTMLCode: String);

{ ************************************************************ }

var

  sl: TStringList;

  ms: TMemoryStream;

begin

  WebBrowser.Navigate('about:blank');

  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do

   Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then

  begin

    sl := TStringList.Create;

    try

      ms := TMemoryStream.Create;

      try

        sl.Text := HTMLCode;

        sl.SaveToStream(ms);

        ms.Seek (0, 0);

        (WebBrowser.Document as IPersistStreamInit).InitNew;

        (WebBrowser.Document as IPersistStreamInit).Load (TStreamAdapter.Create (ms));

      finally

        ms.Free;

      end;

    finally

      sl.Free;

    end;

  end;

end;

Das funktioniert auch soweit, nur auf manchen Systemen (bisher 2 von ca. 60) interpretiert er den HTML-Code nicht, sondern zeigt diesen an.

Ich habe Windows XP Professional, SP 1 und alle akt. Updates, IE-Version 6.0.2800. Die anderen Kunden verstreut Windows 98, 2000, XP, ME.

Ein betroffenes System ist z.B. Windows XP Home, IE v.6.0.2000. Ich denke aber nicht, dass es an der IE-Version liegt, da die anderen Kunden zum Teil ziemlich alte Systeme haben und da streikts auch nicht. Auf einem Notebook mit Windows 98, selbst auf unserem Windows 98 PC, funktioniert das.

Hat jemand eine Idee, warum das dort nicht funktioniert?

Ein alternativer Code, der allerdings eine Zugriffsverletzung bei Range := ((WebBrowser...) verursacht, wäre:

markieren

Delphi-Quellcode:

			{ ************************************************************ }

procedure WB_InjectHTML (WebBrowser: TWebBrowser; HTMLCode: String);

{ ************************************************************ }

var

  Range: IHTMLTxtRange;

begin

  Range := ((WebBrowser.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;

  Range.Collapse (FALSE);

  Range.PasteHTML (HTMLCode);

end;

Was ist der Unterschied zu dem anderen? Könnte vielleicht jemand so freundlichen sein, und mir das erklären?

Vielen Dank und viele Grüße,
Mario

Probleme mit TWebBrowser und HTML-Inject

Probleme mit TWebBrowser und HTML-Inject

Forumregeln