| 
| 
 | Вопрос # 5 468/ вопрос открыт / | 
 |  Доброго времени суток, уважаемые эксперты! Требуется вытащить из WebBrowser часть HTML кода в переменную, находящегося между тегами <head>...</head> .
 
|  |   Вопрос задал: Nikke (статус: Посетитель)Вопрос отправлен: 1 июля 2011, 08:23
 Состояние вопроса: открыт, ответов: 0.
 |  
 Мини-форум вопросаВсего сообщений: 27; последнее сообщение — 3 июля 2011, 23:16; участников в обсуждении: 4. Страницы: [1] [2] [Следующая »]  
|   | min@y™ (статус: Доктор наук), 1 июля 2011, 08:38 [#1]:А в чём вопрос-то? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 08:45 [#2]:Подскажите Алгоритмы пожалуйста. |  
|   | min@y™ (статус: Доктор наук), 1 июля 2011, 08:51 [#3]: Цитата (Nikke): Подскажите Алгоритмы пожалуйста.  Да запросто!
 1. Берёшь исходник страницы из TWebBrowser и пихаешь его в TStringList;
 2. Берёшь THTMLParser и скармливаешь ему этот TStringList;
 3. ВЫтаскиваешь из сформированного дерева тегов парсера содержимое тега HEAD.
 Вуаля!
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 08:52 [#4]:Спасибо попробую. |  1 июля 2011, 10:18: Вопрос перемещён из тематического раздела Delphi » Работа с сетями и протоколами в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А. 
|   | Nikke (статус: Посетитель), 1 июля 2011, 10:54 [#5]:Как вытащить полный исходник HTML из TWebBrowser? Нашел такой Алгоритм
 
 var
 Doc: IHTMLDocument2;
 Tmp: integer;
 begin
 Doc:= WebBr.Document as IHTMLDocument2;
 Code:= Doc.body.outerHTML;
 end;
 Но он вытаскивает только тело body!
 |  
|   | bugmenot (статус: 3-ий класс), 1 июля 2011, 11:07 [#6]: Цитата (Nikke): Алгоритм Это не "алгоритм", а просто тыреный исходник.
 
 Цитата (Nikke): он вытаскивает только тело body! а что еще должно возвращать такое самоочевидное выражение:
 
 Doc.body.outerHTML? виконання програми розпочинається з того самого мiсця, де призупинилося.
 
 |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 11:13 [#7]:bugmenot и чем мне может помочь ваш ответ? Я тут попросил помочь мне с кодом, который может вытащить весь HTML из TWebBrowser, а не придраться к словам!
 |  
|   | min@y™ (статус: Доктор наук), 1 июля 2011, 11:18 [#8]:У IHTMLDocument2 есть свойство all. Попробуй. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 11:34 [#9]:Спасибо, но не помогает. Свойство all это IHTMLElementCollection. если использовать all.toString он выводит только "[object]". |  
|   | min@y™ (статус: Доктор наук), 1 июля 2011, 11:38 [#10]:Тогда объясни, зачем тебе нужно содержимое HEAD страницы. Может найдём более другой способ. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 12:03 [#11]:в head между тегами <script></script> храниться key ! мне нужно его вытащить! в принципе этот кей я научился вытаскивать из body! просто хотелось увеличить скорость поиска этого ключа! |  
|   | bugmenot (статус: 3-ий класс), 1 июля 2011, 12:20 [#12]: Цитата (Nikke): Я тут попросил помочь мне с кодом, который может вытащить весь HTML из TWebBrowser, а не придраться к словам!Незачем так кричать. Без знания матчасти нет никакого смысла за это браться. Цитата (min@y™): зачем тебе нужно содержимое HEAD страницы. Может найдём более другой способ.Да как всегда. Весь жирнющий IWebBrowser только ради того что бы загрузить и распарсить тело HTTP ответа в DOM. виконання програми розпочинається з того самого мiсця, де призупинилося.
 
 |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 12:45 [#13]:bugmenot: я не собирался кричать. Я задал вопрос потому, что хочу в этом разобраться. А небольшой опыт работы с языком мне это сделать не позволяет! Вот и решил спросить у более опытных людей. И жду дельные советы по поводу литературы или подсказки по коду, а не критику!
 |  
|   | min@y™ (статус: Доктор наук), 1 июля 2011, 12:47 [#14]: Цитата (Nikke): И жду дельные советы по поводу литературы или подсказки по коду, а не критику!  А зачем тебе TWebBrowser?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 12:53 [#15]:Пишу бота) который ходит по сайту и кликает кнопки! |  
|   | min@y™ (статус: Доктор наук), 1 июля 2011, 12:53 [#16]: Цитата (Nikke): а не критику!  Привыкай. Ты в интернете, деточка! Критика здесь былаестьибудет. Если задаёшь херовый вопрос, будь готов к херовым ответам. Это закон интернета. Не знал? Теперь знаешь.
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 12:54 [#17]:Через Post Get запросы палевно будет. |  
|   | min@y™ (статус: Доктор наук), 1 июля 2011, 12:54 [#18]: Цитата (Nikke): Пишу бота) который ходит по сайту и кликает кнопки!  Ну а TWebBrowser-то зачем тебе?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 12:55 [#19]:так я в не и буду ходить по ссылкам сайта! |  
|   | Nikke (статус: Посетитель), 1 июля 2011, 13:02 [#20]:min@y™: Знал я все конечно. Вопросы не мой конек , но попытацо стоило) |  Страницы: [1] [2] [Следующая »]  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |