Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Браузер » Как получить текст HTML документа из TWebBrowser без тегов

Как получить текст HTML документа из TWebBrowser без тегов

Автор: Акулов Николай

Взято с http://delphiworld.narod.ru/

uses mshtml, activex;
...
procedure GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
   htmlDoc: IHtmlDocument2;
   PersistFile: IPersistFile;
begin
   htmlDoc := WebBrowser.document as IHtmlDocument2;
   PersistFile := HTMLDoc as IPersistFile;
   PersistFile.save(StringToOleStr(FileName), true);
end;

Естественно на форме должен быть TWebBrowser.

FileName - путь, по которому будет создан файл с текстом HTML документа.

Просмотров: 6223

Обсудить на форуме