TWebbrowser aus Stream speisen

[Meflin]

Delphi-Quellcode:

procedure SetHTML(MemoryStream: TMemoryStream; WebBrowser: TWebBrowser);
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do begin
   Application.ProcessMessages;
  end;
  if Assigned(WebBrowser.Document) then begin
    try
      MemoryStream.Seek(0, 0);
      (WebBrowser.Document as IPersistStreamInit).Load
        (TStreamAdapter.Create(MemoryStream));
    finally
      MemoryStream.Free;
    end;
  end;
end;