Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Добраться до html кода 
V
    Опции темы
FireSnake
Дата 3.6.2007, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: нет
Всего: 1
В закладке internet  в Делфи в есть компонент webbrowser. Через него можно просматривать веб-странички с инета. А как добраться до html кода отображаемой в этом компоненте страницы?
PM MAIL ICQ   Вверх
Данкинг
Дата 3.6.2007, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Добраться с какой целью? Можно скачать сам файл .htm и затем его парсить.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
FireSnake
Дата 3.6.2007, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: нет
Всего: 1
Хм... хорошая идея... А как скачать? Мне надо проанализировать лог боя одной онлайн игры, вот и думаю как лучше сделать.
PM MAIL ICQ   Вверх
Данкинг
Дата 3.6.2007, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Код

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;




--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Insert
Дата 3.6.2007, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: нет
Всего: 1
Нахрен браузер юзай TIdHTTP из IndyClients. У него есть метод
Код

 a: string;     // здесь будет код твоей страницы 
 a := IdHttp.Get ('твой урл');
 
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
FireSnake
Дата 20.10.2007, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: нет
Всего: 1
Invalid argument to data encode на строке 
Код

richedit1.text:=idhttp1.Get(a[i]);

где a[i]='http://avalon.darkagesworld.com/vr/Battle/BattleLog.aspx?id=6af3e353-5635-4e85-b256-a2af30785273'
Вопрос, а почему выдается ошибка и нельзя получить html код, хотя эта ссылка (a[i])в браузере открывается без проблем?



Это сообщение отредактировал(а) FireSnake - 20.10.2007, 16:23
PM MAIL ICQ   Вверх
FireSnake
Дата 20.10.2007, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: нет
Всего: 1
Ага, html код таки получается выдрать таким способом. Но русский шрифт отображается какой-то кракозяброй. Я так подозрваю что дело в кодировке. Вопрос, а как указать какую кодировку использовать?
PM MAIL ICQ   Вверх
December
Дата 20.10.2007, 17:13 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 1
Всего: 57
Не, как раз TWebBrowser тут будет эффективнее.

Дело в том, что он автоматически парсит страницу и строит DOM-дерево
Так что найти какой-то элемен в уже удобной форме, без необходимости что-то выкидывать и дополнительно проверять, в TWebBrowser гораздо проще. Кроме того, в TWebBrowser показывается результат работы яваскрпита, так что если на сайте используется ajax - TWebBrowser является единственно возможным вариантом.


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
FireSnake
Дата 20.10.2007, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: нет
Всего: 1
И все таки что делать с кодировкой?
PM MAIL ICQ   Вверх
FireSnake
Дата 20.10.2007, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: нет
Всего: 1
Забил я на это дело. Проще через веббраузер сделать. Сохранить страницу и распарсить:
http://forum.vingrad.ru/forum/topic-177642.html
PM MAIL ICQ   Вверх
MetalFan
Дата 21.10.2007, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
Цитата(December @  20.10.2007,  17:13 Найти цитируемый пост)
Не, как раз TWebBrowser тут будет эффективнее.

зачем тянуть весь TWebBrowser если можно создать IHTMLDocument* и пользовать его для 
Цитата(December @  20.10.2007,  17:13 Найти цитируемый пост)
автоматически парсит страницу и строит DOM-дерево

только вот не уверен на счет скриптов


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0520 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.