Sources
Delphi Russian Knowledge Base
DRKB - база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
Ron Loewy

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

В 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.

Previous page:
Сохранение страницы и её элементов
Top:
DRKB
Next page:
Как сохранить веб-страничку в Bitmap?