Показано с 1 по 2 из 2
-
29.12.2012, 20:36 #1
- Регистрация
- 20.02.2011
- Сообщений
- 3
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Delphi,i Перехват URL до перехода по ссылке (WebBrowser)
Всем привет! В своей программе использую компонент WebBrowser в котором имеются ссылки на компьютеры в сети и не только.
В событии BeforeNavigate2 проверяю является ли ссылка сетевым именем, например: " \\User ", если да, то канселю браузер и предаю управление другому компоненту. Проблема в том, что если компьютер на который я ссылаюсь не в сети, то программа порядочно подвисает.
Подвисание происходит до события WeberBeforeNavigate.
Подскажите как можно перехватить адрес ссылки (URL) сразу после клика и из-за чего происходит подвисание ведь мне не нужно открывать в браузере ссылку на комп находящийся не в сети.
procedure TMainForm.WeberBeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
s: string;
begin
s:=url;
if (s[1]='\') and (s[2]='\') then
//если ссылаемся на сетевое имя
begin
cancel:=True;
//проверяю существует ли пользователь
//передаю управление другому компоненту...
end
end;
-
01.01.2013, 13:04 #2
- Регистрация
- 20.02.2011
- Сообщений
- 3
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Мне подсказали приемлемый вариант: теперь использую ссылки вида "about:ссылка" и подвисаний нет.
Тема закрыта!
Похожие темы
-
Пришлите готовый диплом по программированию на Delphi
от volodia555 в разделе Прикладное программированиеОтветов: 3Последнее сообщение: 19.08.2010, 13:03
Социальные закладки