Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Как получить полный исходник HTML?

Автор: Alex 9.11.2004, 01:42

В 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.