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

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

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

Tweet

Взято с 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

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


Имя *:
Email:


Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.