Как получить полный исходник HTML
|
Hасколько проще была бы жизнь, если бы она была в исходниках.
|
В 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.
|
