Ловим нажатие ссылки в браузере

Эта статья для тех, кто хочет получить Url нажатой ссылки в WebBrowser, а затем использовать его по своему усмотрению, а не открывать ссылку.

На форуме HiAsm не раз проскальзывали сообщения об этом, меня также просили помочь сделать подобное, и вот я взялся за это дело. Всё оказалось гораздо легче, чем можно предположить. Для этого только немного надо подредактировать код компонента WebBrowser. Если вы читали статьи про InlineCode, то быстро поймёте все действия. Стоит лишь напомнить, что код компонента открывается клавишами Ctrl+F, а конфигаруция - Ctrl+G при выделенном компоненте в HiAsm.

Самое сложное здесь - это отловить нажатие, то есть получить событие по нажатии ссылки. Такого события в компоненте нет. И onMouseDown тоже не подойдёт, потому что при загруженной странице оно не действует.

Но в файле KOLSHDocVw.pas, где описан PKOLWebBrowser (в коде hiWebBrowser есть эта библиотека, только подключается она чуть ниже, чем остальные), есть события OnBeforeNavigate2 и OnNewWindow2. Первое происходит при активации ссылки, которая открывается в этом же окне, второе - когда открывается новое окно.

В коде (hiWebBrowser.pas) этим событиям назначены процедуры-обработчики: OnNavigate и OnNewWindow соответственно. То есть при срабатывании этих процедур можно выполнять какие-то свои действия, связанные со ссылкой. Однако процедуры работают лишь внутри кода и не выведены в компонент в виде события. Это и предстоит сделать.


Делается это очень просто. Добавляем в раздел public (самое начало кода) переменную типа THI_Event. Например:

_event_OnUrlActivate:THI_Event;.

Эта переменная и отвечает за событие в компоненте.

Теперь её нужно задействовать в процедурах OnNavigate и OnNewWindow. Делается это так:

_hi_OnEvent(_event_OnUrlActivate,0);.

На первом месте стоит имя переменной, а на втором - выдаваемые данные. Пусть в случае OnNavigate это будет 0, а OnNewWindow - 1. Это нужно, чтобы отличать, в каком окне открывается ссылка.

Этот код должен стоять в самом начале процедуры, чтобы выполнялся первым. Дело в том, что в этих процедурах происходит проверка верхних точек компонента: Navigate и NewWindow. Если они равны 0, но соответствующее открытие ссылки произведено не будет. А так как написанный нами код стоит первым, то у нас будет возможность узнать, какая ссылка открывается, решить, стоит ли прерывать её загрузку.

После этого сохраняйте код компонента и переходите в его конфигурацию. В секции Methods прописываете такую строку:

*OnUrlActivate=Событие происходит всякий раз при активации гиперссылки в браузере и выдаёт в поток 0, если ссылка должна открыться в этом же окне, и 1 - если в новом.|2|.

OnUrlActivate - это имя точки, оно отличается от имени переменной лишь отсутствием «_event_» (так задумано в HiAsm).

Звёздочка означает, что точка будет находиться на вкладке «Точки» и по умолчанию в компоненте не видна.

Затем следует описание точки, а цифра «2» между вертикальными линиями указывает, что это - событие, а не метод, свойство, точка данных. Сохраняйте конфигурацию и перезагружайте HiAsm. Проверьте - точка должна работать.


Теперь надо как-то реализовать запрет загрузки страницы и полчение адреса ссылки. О запрете на загрузку мы уже говорили - достаточно подать на верхние точки - Navigate и NewWindow - нули, и открытия ссылок не произойдёт. А OnUrlActivate произойдёт в любом случае. Получить адрес можно из строки статуса (событие onStatus). Проверьте, если перыве символы равны «http», то это ссылка по соответствующему протоколу (ещё ссылки могут начинаться с «ftp» и др.).

На всякий случай - вот код и конфигурация компонента (если не хотите самостоятельно изменять код, можете просто установить новый компонент взамен старого).

Вот схема использования.