Delphi - база знаний

         

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


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



Взято из FAQ:
Перевод материала с сайта 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;

Автор: Ron Loewy Обратите внимание: Вам понадобится импортировать библиотеку
MSHTML и добавить MSHTML_TLB как ActiveX, в секцию Uses.




Содержание раздела