TWebbrowser zeigt HTML-Source statt der fertigen Seite

[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.)