Как загрузить потоковые (stream) данные в TWebBrowser, не прибегая к открытию файла?

Взято из FAQ:https://blackman.km.ru/myfaq/cont4.phtml

Перевод материала с сайта members.home.com/hfournier/webbrowser.htm

function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

Автор: Per Larsen

Примечание от Vit

1. В Uses добавить ActiveX

2. Если в TWebBrowser ничего не загружено то код выдаёт Access Violation

Исправляется следующим образом:

function TForm1.LoadFromStream(const AStream: TStream): HRESULT;

begin
  AStream.seek(0, soFromBeginning);
  WebBrowser1.Navigate('about:blank');
  Result := (WebBrowser1.Document as      IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

Автор: Vit