TWebbrowser zeigt HTML-Source statt der fertigen Seite

[BlueStarHH]

Hallo,

ich nutze einen TWebbrowser unter Win10. Dieser zeigt nun *immer* den HTML-Quelltext an und nicht mehr die fertige Seite. Ich lade den Inhalt wie folgt:

Delphi-Quellcode:

procedure WB_LoadDocFromString(WB: TWebBrowser; const HTMLString: string);
var
  V: OleVariant;
  HTMLDocument: IHTMLDocument2;
begin
  WaitForBrowser(WB);
  HTMLDocument := WB.Document as IHTMLDocument2;
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := HTMLString;
  HTMLDocument.Write(PSafeArray(TVarData(V).VArray));
  HTMLDocument.Close;
end;

Diese Prozedur kommt aus der WBFuncs.pas und wurde so jahrelang benutzt. Was ist zu tun?

[API]

Ungetestet:

Delphi-Quellcode:

procedure WB_LoadDocFromString(WB: TWebBrowser; const HTMLString: string);
var
  HTMLStream: TMemoryStream;
begin
  WaitForBrowser(WB);
  if Assigned(WB.Document) then
  begin
    HTMLStream := TMemoryStream.Create;
    try
      HTMLStream.WriteBuffer(Pointer(HTMLString)^, Length(HTMLString));
      HTMLStream.Seek(0, soFromBeginning);
      (WB.Document as IPersistStreamInit).Load(TStreamAdapter.Create(HTMLStream));
    finally
      HTMLStream.Free;
    end;
  end;
end;

[BlueStarHH]

Zitat von API:

Ungetestet:

Delphi-Quellcode:

procedure WB_LoadDocFromString(WB: TWebBrowser; const HTMLString: string);
var
  HTMLStream: TMemoryStream;
begin
  WaitForBrowser(WB);
  if Assigned(WB.Document) then
  begin
    HTMLStream := TMemoryStream.Create;
    try
      HTMLStream.WriteBuffer(Pointer(HTMLString)^, Length(HTMLString));
      HTMLStream.Seek(0, soFromBeginning);
      (WB.Document as IPersistStreamInit).Load(TStreamAdapter.Create(HTMLStream));
    finally
      HTMLStream.Free;
    end;
  end;
end;

Danke, aber damit besteht das selbe Problem: Es wird nur der HTML-Sourcecode angezeigt.

Außerdem wird mit dieser Lösung nur etwa die Hälfe des Textes dargestellt. (Was wohl am zu kleinen Buffer liegt, aber das ist ein anderes Problem, was mit dem ursprünglichen nichts zu tun hat.)

[hoika]

Hallo,
hast Du mal einen anderen Rechner ausprobiert.

[BlueStarHH]

Zitat von hoika:

Hallo,
hast Du mal einen anderen Rechner ausprobiert.

Ja das selbe Problem. Hier ein Bildschimfoto. Auffällig ist, das in diesem Test nur Teile des HTML-Codes angezeigt werden (DOCTYPE usw), andere Teile werden richtig dargestellt ("TEST fett") und andere Teile nur als unformatierter Text.

[peterbelow]

Zitat von BlueStarHH:

Hallo,

ich nutze einen TWebbrowser unter Win10. Dieser zeigt nun *immer* den HTML-Quelltext an und nicht mehr die fertige Seite. Ich lade den Inhalt wie folgt:

Du bist sicher, dass der verwendete HTML-String keine Syntaxfehler enthält? Wenn Du den gleichen Text in einen html-Datei schreibst und diese per Navigate lädtst, hat das das gleiche Problem?

Standardmäßig emuliert TWebBrowser eine sehr alte Version des Internet Explorers, vielleicht liegt es daran.

[HolgerX]

Hmm...

Kannst Du einmal eine solche HTML Datei als Muster bereitstellen?
Diese sollte ja beim (normalen) öffnen im Browser auch so defekt angezeigt werden.

[BlueStarHH]

Zitat von peterbelow:

Du bist sicher, dass der verwendete HTML-String keine Syntaxfehler enthält?

Danke, das wars! Ich hab mir den Quelltext immer über das Kontextmenü vom Webbrowser angeschaut. Da sah er OK aus. Das aber nur, weil der IE den Code vor der Darstellung "korrigiert" hat. Der Originalstring, der an den Webbrowser übergeben wurde, enthielt statt der Tag-Klammern < > die HTML-Entitäten &lt; und &gt;