Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 468

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты! Требуется вытащить из WebBrowser часть HTML кода в переменную, находящегося между тегами
<head>...</head> .

Nikke Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Nikke (статус: Посетитель)
Вопрос отправлен: 1 июля 2011, 08:23
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 27; последнее сообщение — 3 июля 2011, 23:16; участников в обсуждении: 4.

Страницы: [1] [2] [Следующая »]

min@y™

min@y™ (статус: Доктор наук), 1 июля 2011, 08:38 [#1]:

А в чём вопрос-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 08:45 [#2]:

Подскажите Алгоритмы пожалуйста.
min@y™

min@y™ (статус: Доктор наук), 1 июля 2011, 08:51 [#3]:

Цитата (Nikke):

Подскажите Алгоритмы пожалуйста.

Да запросто!
1. Берёшь исходник страницы из TWebBrowser и пихаешь его в TStringList;
2. Берёшь THTMLParser и скармливаешь ему этот TStringList;
3. ВЫтаскиваешь из сформированного дерева тегов парсера содержимое тега HEAD.
Вуаля!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 08:52 [#4]:

Спасибо попробую.

1 июля 2011, 10:18: Вопрос перемещён из тематического раздела Delphi » Работа с сетями и протоколами в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.

Nikke

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

bugmenot (статус: 3-ий класс), 1 июля 2011, 11:07 [#6]:

Цитата (Nikke):

Алгоритм

Это не "алгоритм", а просто тыреный исходник.

Цитата (Nikke):

он вытаскивает только тело body!

а что еще должно возвращать такое самоочевидное выражение:
Doc.body.outerHTML
?
виконання програми розпочинається з того самого мiсця, де призупинилося.

Nikke

Nikke (статус: Посетитель), 1 июля 2011, 11:13 [#7]:

bugmenot и чем мне может помочь ваш ответ?
Я тут попросил помочь мне с кодом, который может вытащить весь HTML из TWebBrowser, а не придраться к словам!
min@y™

min@y™ (статус: Доктор наук), 1 июля 2011, 11:18 [#8]:

У IHTMLDocument2 есть свойство all. Попробуй.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 11:34 [#9]:

Спасибо, но не помогает. Свойство all это IHTMLElementCollection. если использовать all.toString он выводит только "[object]".
min@y™

min@y™ (статус: Доктор наук), 1 июля 2011, 11:38 [#10]:

Тогда объясни, зачем тебе нужно содержимое HEAD страницы. Может найдём более другой способ.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 12:03 [#11]:

в head между тегами <script></script> храниться key ! мне нужно его вытащить! в принципе этот кей я научился вытаскивать из body! просто хотелось увеличить скорость поиска этого ключа!
bugmenot

bugmenot (статус: 3-ий класс), 1 июля 2011, 12:20 [#12]:

Цитата (Nikke):

Я тут попросил помочь мне с кодом, который может вытащить весь HTML из TWebBrowser, а не придраться к словам!
Незачем так кричать. Без знания матчасти нет никакого смысла за это браться.

Цитата (min@y™):

зачем тебе нужно содержимое HEAD страницы. Может найдём более другой способ.
Да как всегда. Весь жирнющий IWebBrowser только ради того что бы загрузить и распарсить тело HTTP ответа в DOM.
виконання програми розпочинається з того самого мiсця, де призупинилося.

Nikke

Nikke (статус: Посетитель), 1 июля 2011, 12:45 [#13]:

bugmenot: я не собирался кричать. Я задал вопрос потому, что хочу в этом разобраться. А небольшой опыт работы с языком мне это сделать не позволяет! Вот и решил спросить у более опытных людей.
И жду дельные советы по поводу литературы или подсказки по коду, а не критику!
min@y™

min@y™ (статус: Доктор наук), 1 июля 2011, 12:47 [#14]:

Цитата (Nikke):

И жду дельные советы по поводу литературы или подсказки по коду, а не критику!

А зачем тебе TWebBrowser?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 12:53 [#15]:

Пишу бота) который ходит по сайту и кликает кнопки!
min@y™

min@y™ (статус: Доктор наук), 1 июля 2011, 12:53 [#16]:

Цитата (Nikke):

а не критику!

Привыкай. Ты в интернете, деточка! Критика здесь былаестьибудет. Если задаёшь херовый вопрос, будь готов к херовым ответам. Это закон интернета. Не знал? Теперь знаешь.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 12:54 [#17]:

Через Post Get запросы палевно будет.
min@y™

min@y™ (статус: Доктор наук), 1 июля 2011, 12:54 [#18]:

Цитата (Nikke):

Пишу бота) который ходит по сайту и кликает кнопки!

Ну а TWebBrowser-то зачем тебе?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 12:55 [#19]:

так я в не и буду ходить по ссылкам сайта!
Nikke

Nikke (статус: Посетитель), 1 июля 2011, 13:02 [#20]:

min@y™: Знал я все конечно. Вопросы не мой конек , но попытацо стоило)

Страницы: [1] [2] [Следующая »]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:43
Выполнено за 0.02 сек.