Как из TStringStream загрузить Html код в WebBrowser?

[nikmay]

Из базы данных вытаскиваю Html код и помещаю его в TStringStream.
А вот как заставить загрузиться полученный код - вот проблема.
Пробовал некоторые из найденных на форуме методов, но в результате получаю чистый лист. Загрузка в TStringStream происходит 100-% успешно.
Может кто знает в чем дело?

uses ...,ActiveX;

var
  s:TStringStream;  // Сюда загружаю код

begin
....

  // Загрузка в TStringStream 

  WebBrowser.Navigate( 'about:blank' );
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;

  if Assigned( WebBrowser.Document ) then
  begin
    s.Seek( 0, 0 );
   ( WebBrowser.Document as IPersistStreamInit ).Load( TStreamAdapter.Create( s ) );
  end;
end;

[postal2]

Попробуй EmbeddedWB, там точно есть loadFromSteam

[nikmay]

Спасибо. Скачал. Но почему-то запоролась Delphi, больше не открывается. Буду переустанавливать =))
ТАк что если есть еще предложения, буду очень рад.

[Stilet]

попробуй сохранять ХТМЛ во временный файл, а в WebBrowser его открывать.
Есть способ передать непосредственно браузеру, но я не помню как он выглядит.
Впрочем рекомендую заглянуть на http://www.delphiworld.narod.ru/_all_articles_.html Там в разделе Браузер - [101] много про него интересного

В часности вот один пример должен тебе подойти
http://www.delphiworld.narod.ru/base...tml_forms.html