Главная страница
    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.012 c
6-71780
han
2003-07-24 15:01
2003.09.22
настройки интернета


7-71986
MakNik
2003-07-04 11:15
2003.09.22
Процессы


3-71549
Alik$
2003-07-30 21:33
2003.09.22
Ошибка при активизации


14-71912
Ru
2003-09-03 11:43
2003.09.22
Украина? Федеративное Государство Украина. Быть или не быть?


1-71611
ShtuKos
2003-09-09 12:37
2003.09.22
Как сделать, чтоб прогу нельзя было копировать на другие компьюте





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский