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

Previous Top Next

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

В IE5, можно получить исходник используя свойство outerHTML тэгов

HTML. В IE4 или IE3, Вам понадобится записать документ в файл, а затем

загрузить файл в TMemo, TStrings, и т.д.

Code:

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;

Автор: Ron Loewy Обратите внимание: Вам понадобится импортировать библиотеку

MSHTML и добавить MSHTML_TLB как ActiveX, в секцию Uses.