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



Автор: Ron Loewy

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.





Похожие по теме исходники

Image to HTML

HTML Parser (парсер)

Delphi to HTML Converter

Image2Html

 

Txt to HTML

Конвертер Word - HTML

Mini HTML Editor

MSHTML Editor

 

HTML Test Creator




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте