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.
Статья описывает способ получения полного исходника HTML в программе с помощью свойства outerHTML тэгов HTML в IE5 и других методов для старых версий браузера.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS