Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2010, 17:38   #1
Terikon
Форумчанин
 
Регистрация: 22.02.2009
Сообщений: 174
Вопрос Как вывести в Мемо список посещенных ссылок(Webbrowser)

В общем при открытии url http://ya.ru/
подгружаются разные ссылки например
http://www.tns-counter.ru/V13a****ya...ec=yandex_ya/0
http://yandex.st/yaru/1.7/_yaru.css
http://mc.yandex.ru/watch/723233

каким образом из WebBrowser можно эти ссылки вывести в мемо ?
парсинг не подходит, нужно выводить именно те ссылки которые загружаются при открытии http://ya.ru/
Terikon вне форума Ответить с цитированием
Старый 12.11.2010, 21:02   #2
Voody
Форумчанин
 
Регистрация: 22.06.2009
Сообщений: 310
По умолчанию

А почему не подходит парсинг. Нужно всего лишь понять, какие ссылки не нужны. Например на ya.ru это все ссылки, у которых есть атрибут a href (и в частности, a id="sethome"href). Всё остальное подгружается браузером
Voody вне форума Ответить с цитированием
Старый 12.11.2010, 21:12   #3
Terikon
Форумчанин
 
Регистрация: 22.02.2009
Сообщений: 174
По умолчанию

Voody есть сайт на котором нужную мне ссылку можно получить только таким образом, если хочеш могу в личку сылку кинуть
Terikon вне форума Ответить с цитированием
Старый 12.11.2010, 21:16   #4
Voody
Форумчанин
 
Регистрация: 22.06.2009
Сообщений: 310
По умолчанию

Цитата:
Сообщение от Terikon Посмотреть сообщение
Voody есть сайт на котором нужную мне ссылку можно получить только таким образом, если хочеш могу в личку сылку кинуть
Браузер точно также получает исходный код страницы, анализирует его и выполняет (выполняет скрипты, подгружает картинки и т.д.). Просто надо найти это место, где браузер берет эту ссылку.

Давай, посмотрю, что за сайт)
Voody вне форума Ответить с цитированием
Старый 14.11.2010, 16:08   #5
BENZIN_KZ
 
Регистрация: 13.11.2010
Сообщений: 6
По умолчанию

попробуй так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;

begin
  Memo1.Clear;
  For i := 0 to WebBrowser1.OleObject.Document.Links.Length - 1 Do
    Memo1.Lines.Add( WebBrowser1.OleObject.Document.Links.Item( i ) );
end;
BENZIN_KZ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Список использованых ссылок W0LF Фриланс 1 06.11.2010 15:22
Как вывести список контактов? Timon779 Помощь студентам 0 16.07.2010 14:17
Как вывести список стандартных библиотек Windows Бутаков_Сергей Общие вопросы Delphi 4 15.11.2009 21:30
[Делфи]Как вывести из мемо все что есть (без циклов и массивов) zotox Помощь студентам 3 03.05.2009 20:25
Как в Memo1 вывести список папок? apromix Общие вопросы Delphi 1 08.05.2008 15:12