Как сохранить HTML загруженную с помощью TWebBrowser ?

← →
alpine (2003-09-09 20:19) [0]

Помогите плизз сохранить HTML загруженную с помощью TWebBrowser )
Заранее благодарю всех откликнувшихся !

← →
WeCom.WS (2003-09-09 23:45) [1]

var Doc : OleVariant; Str : String; begin Doc := WebBrowser1.Document; Str := Doc.Body.InnerHTML; ShowMessage(Str); end;

это только BODY
но вообще, после присваивания Doc := WebBrowser1.Document; с объектом Doc можешь работать точно так же как с объектом document в JS, а здесь у же смотри DOM IE"шный

← →
Е-Моё имя © (2003-09-10 09:33) [2]

дык outer надо сохранять, шоп html було

← →
Dimich1978 © (2003-09-10 09:34) [3]

nmhttp1.Get("webserver/price/price.html");
FS:= TstringList.create;
fs.Add(nmhttp1.Body);
fs.SaveToFile("111.txt");
fs.LoadFromFile("111.txt");
это пример как можно сохранить все содержимое этого html

← →
Е-Моё имя © (2003-09-10 09:34) [4]

> [3] Dimich1978 © (10.09.03 09:34)

гыыы
а вопрос про браузер

← →
Е-Моё имя © (2003-09-10 09:35) [5]

типа слышал звон..

← →
nikkie © (2003-09-10 14:45) [6]

дык outer надо сохранять, шоп html було
думаешь это что-то изменит? добавится только таг body...
загрузку-сохранение полного html смотри здесь (FAQ и IPersistStream, IPersistFile):
http://members.shaw.ca/iedelphi/

← →
Е-Моё имя © (2003-09-10 15:05) [7]

> добавится только таг body...

а чем хтмл от текста отличаеца? ))
тагами вроде
а надо ему хтмл, с тагами текст
значица аутертекст

← →
Kremen © (2003-09-10 16:54) [8]

Если сюда ещё кто-то заходит, то поясню. Такой задачей сам задавался. Решение нашёл. Всё дело в TWebBrowser._Document. Сюда весь код кидать не буду, там не всё так просто. Кому интересно - пишите на мыло, вышлю.

← →
Е-Моё имя © (2003-09-10 17:38) [9]

> Решение нашёл

...благо что это как два пальца об асфальт

а чем хтмл от текста отличаеца? ))
тагами вроде
а надо ему хтмл, с тагами текст
значица аутертекст
не подумавши ты сказал. изначально речь была об Doc.body.innerHTML. разумеется это не весь html, а только содержимое body. outerHTML даст в добавок еще и сам таг body с аттрибутами, но хедер так не получить. а уж outerText - там тагов и близко не будет.

Сюда весь код кидать не буду, там не всё так просто.
а зря. глядишь тебе что-нибудь и посоветовали бы. поскольку весь код строк 5 должен занимать.

да, кстати

> но хедер так не получить

а я и не говорил обратного ;))

2 nikkie ©
да, вспомнил, хоть и некстати, по 2-й версии клиента - та бага с ошибками через ~минуту бездействия из 1-й версии, ушла и не приходит ;))
за что спасибо ;-)

Как сохранить HTML загруженную с помощью TWebBrowser ? Найти похожие ветки