Как получить полный исходник HTML?

Материал из DRKB


В IE5, можно получить исходник используя свойство outerHTML тэгов HTML. В IE4 или IE3, Вам понадобится записать документ в файл, а затем загрузить файл в TMemo, TStrings, и т.д.

var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  PersistFile := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('test.htm'), True);
  while HTMLDocument.readyState <> 'complete' do
    Application.ProcessMessages;
end;
Обратите внимание
Вам понадобится импортировать библиотеку MSHTML и добавить MSHTML_TLB как ActiveX, в секцию Uses.


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

Author: Ron Loewy
Source: http://blackman.km.ru/myfaq/cont4.phtml
ID: 03487