TWebBrowser получить текст без тегов

← →
stas © (2009-02-01 18:32) [0]

Делаю так:
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;
В одном проекте сохраняет без тегов, в другом с тегами ))
Подскажите пожалуйста в чем может быть проблема.

← →
stas © (2009-02-01 19:07) [1]

Проблема оказалась в расширении фалйла O_0

TWebBrowser получить текст без тегов Найти похожие ветки