Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Вниз

Как сохранить 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]


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

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


 
nikkie   (2003-09-10 17:40) [10]

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

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

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


 
Е-Моё имя   (2003-09-10 17:48) [11]


> nikkie © (10.09.03 17:40)

да, опИсался я, канешно же
аутерхтмл, не текст ;)) по смыслу понятно должно быть)


 
Е-Моё имя   (2003-09-10 17:49) [12]

да, кстати

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

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


 
Е-Моё имя   (2003-09-10 17:51) [13]

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



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

Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.01 c
6-71807
Arhangel
2003-07-21 11:48
2003.09.22
indy компонент - IdMappedPortTCP


14-71920
iNew
2003-09-03 08:53
2003.09.22
Спасибо мастерам за ответы про SoftIce :)


1-71627
Berezne
2003-09-09 12:34
2003.09.22
Что означает ета ошибка???


4-72000
Shift
2003-07-20 13:25
2003.09.22
неработают HotKey


3-71468
PaveL
2003-08-28 21:32
2003.09.22
ClientDataSet и ftListBox





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский