В IE5, можно получить исходник используя свойство outerHTML тэгов HTML. В IE4 или IE3, Вам понадобится записать документ в файл, а затем загрузить файл в TMemo, TStrings, и т.д.
varHTMLDocument: 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.