Как загрузить в TWebBrowser HTML-код?

Delphi FAQ >> Интернет

Чтобы загрузить в delphi-компонент TWebBrowser нужный HTML-код, можно воспользоваться следующей функцией:

uses SHDocVw, ActiveX;
...
procedure LoadHtmlInWebbrowser(DestWB: TWebBrowser; HtmlString: String);
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  //загружаем пустую страницу в компонент WebBrowser
  DestWB.Navigate('about:blank');
  //ждем, пока WebBrowser не будет готов к работе
  while (DestWB.ReadyState < READYSTATE_INTERACTIVE) do
    Application.ProcessMessages;
  if Assigned(DestWB.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        //сохраняем html код в поток
        sl.Text := HtmlString;
        sl.SaveToStream(ms);
        //перемещаем указатель на начало
        ms.Seek(0, 0);
        //загружаем код в WebBrowser
        (DestWB.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        //уничтожаем объект ms
        ms.Free;
      end;
    finally
      //уничтожаем объект Стринг листа
      sl.Free;
    end;
  end;
end;


Таиланд — волшебнай страна, привлекающая отдыхающих со всех сторон света. Если вы хотите замечательно отдохнуть, ни о чем не думая, то отдых в Паттайа — ваш выбор. Если же нужно совместить работу и отдых, то отправляйтесь в Пхукет.