TWebbrowser zeigt HTML-Source statt der fertigen Seite

[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;