Программирование на Delphi и не только Как загрузить в TWebBrowser HTML-код? | Программирование на Delphi и не только

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;


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