Скачать: CL | DM;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.008 c