Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

пятница, 12 марта 2010 г.

Получить весь HTML из TWebBrowser

Нашел на просторах интернета функцию с использованием DOM которая позволяет получить исходный текст страницы из  WebBrowser'а не используя особых ухищрений


//получить весь html
function THTMLEditor.html_GetFullHTML:string;
var
  wbEll : IHTMLElement;
begin
   Result:='';
   if Assigned(WebBrowser1.Document) then
   begin
     wbEll := (WebBrowser1.Document AS IHTMLDocument2).body;
     while wbEll.parentElement <> nil do
     begin
       wbEll := wbEll.parentElement;
     end;
     Result := wbEll.outerHTML;
   end;
end;

функция рабочая только необходимо добавить в uses ...... MSHTML;

Комментариев нет:

Отправить комментарий