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

HTML код в TWebBrowser   Найти похожие ветки 

← →
Lex_! ©   (2005-05-11 05:37) [0]

Искал но ничего не нашел, пара вопросов есть но оставлены без ответа.
Собственно сам вопрос: после загрузки страници в WebBrowser как получить HTML этой страници (со всеми тегами и прочим .

---

← →
Alecksey   (2005-08-11 14:09) [1]


uses MSHTML;
.......
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr("C:\test.htm"), True);
end;

А потом загружаеш в Мемо или куда хоч и читаеш код.

---

← →
Yegorchic ©   (2005-08-13 18:05) [2]

Alecksey, у Вас какой-то код длинный...
Вот, покороче:

var
code: string;
begin
code:=Variant(WebBrowser1.Document).Body.OuterHTML;
end;

---

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

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



Память: 0.45 MB
Время: 0.032 c