OnNewWindow2 перехват ссылки в WB

@vlados2441 · Регистрация: 11.01.2015

Author24 — интернет-сервис помощи студентам

Разрабатываю я свой браузер. Много вопросов по нему. И вот сегодня вопрос такой : я создал onnewwindow2, для того ,чтобы перехватывать ссылки (который открываются в новом окне(вкладке)). Создал я 2 процедуры

Delphi

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Edit1.Text:= URL;
  {WebBrowser1.Navigate2(URL);}
end;
 
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  newform: TForm1;
begin
   ppDisp:= WebBrowser1.DefaultDispatch;
   newform:= TForm1.Create(Self);
   newform.Show;
end;

Но перехватить ссылку не удается. Помогите перехватить ссылку в новое окно.

@mss · 25.01.2015, 12:26

twebbrowser onnewwindow2 url

@vlados2441 · 25.01.2015, 14:14 **[ТС]**

Ответ найти не удалось

DenNik · 25.01.2015, 14:23

а ответ там есть. во второй ссылке

@vlados2441 · 25.01.2015, 14:36 **[ТС]**

Пробовал, не получилось

DenNik · 25.01.2015, 14:41

а что не получилось? тебе показали, как перехватить ссылку и как заблокировать всплывающее окно. дальше делай с ссылкой, что тебе угодно. создание новой вкладки не по мысленному приказу происходит

@vlados2441 · 25.01.2015, 14:50 **[ТС]**

Окно открывается, но ссылка не перехватывается(открывается пустое окно)

DenNik · 25.01.2015, 14:54

а ты передал окну ссылку? как окно о ней узнает?

@vlados2441 · 25.01.2015, 15:11 **[ТС]**

А как это сделать ?

Добавлено через 42 секунды

Сообщение от vlados2441

{WebBrowser1.Navigate2(URL);}

делает какой-то бред

@mss · 25.01.2015, 16:07

Сообщение от vlados2441

Ответ найти не удалось

В первой же ссылке ответ.

Сообщение от vlados2441

Пробовал, не получилось

Значит не то или не так пробовал.

@vlados2441 · 25.01.2015, 16:54 **[ТС]**

В ответ получаю одни ссылки или "умные советы". просто написать подробно слабо ?

@vlados2441 · 25.01.2015, 18:14 **[ТС]**

С этим кодом та же фигня происходит.

@mss · 25.01.2015, 18:32

Сообщение от vlados2441

та же фигня происходит

Какая "та же" ?
Ты ж вменяемо не можешь пояснить в чем конкретно проблема.. Заладил как попка одно и тоже - "не удается", "не получилось", "какой-то бред", "не перехватывается")

Поставь брейкпойнт на строчке

Delphi

1	path := ((TWebBrowser(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);

и покажи содержимое path

@vlados2441 · 25.01.2015, 19:14 **[ТС]**

Проверил, path присваивается значение открываемой URL. проверил через

Delphi

1	showmessage(path);

а проблема в том, что при клике окно открывается, но ссылку не перехватывает(что было сказано выше).

Добавлено через 6 минут
Мой исходник по этой теме -

Delphi

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  newform: TForm1;
  path: WideString;
begin
   ppDisp:= WebBrowser1.DefaultDispatch;
   newform:= TForm1.Create(Self);
   newform.Show;
  path := ((TWebBrowser(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
end;
 
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Edit1.Text:= URL;
  {WebBrowser1.Navigate2(URL); }
end;
 
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  form1.Caption:=copy(url,7,17);
end;
 
end.

@mss · 25.01.2015, 19:22

Сообщение от vlados2441

окно открывается, но ссылку не перехватывает

С чего бы ему что-то там перехватывать ?

У тебя есть значение в переменной path и ты должен сам указать компоненту WebBrowser на вновь созданной тобой форме, что ему нужно перейти по адресу, лежащему в переменной path. Для этого у компонента WebBrowser существует метод Navigate - или ты впервые слышишь про этот метод ?

@vlados2441 · 25.01.2015, 20:00 **[ТС]**

Navigate просто открывает эту ссылку в этом же окне , а я хочу , чтобы она открывалась в новом окне.

@mss · 25.01.2015, 20:23

Так ты в новом и вызывай Navigate !
В том которое ты создал строчкой

Delphi

1	newform:= TForm1.Create(Self);

Нахрена ж ты вызываешь в том, в котором сработало событие OnNewWindow ?)

@vlados2441 · 25.01.2015, 20:53 **[ТС]**

Ты название раздела видел ? - Delphi для начинающих. я его учу около месяца. можно подробно объяснить, в какой процедуре указать navigate ? никто не сомневается в твоем знание делфи, вот только если ты в этом разделе, значит в нем одни нубики, которым нужно все подробно разжевать ...

@mss · 25.01.2015, 21:17

Сообщение от vlados2441

в какой процедуре указать navigate ?

В той же в которой ты получил path - в TForm1.WebBrowser1NewWindow2

@vlados2441 · 25.01.2015, 21:28 **[ТС]**

Delphi

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  newform: TForm1;
  path: WideString;
begin
   ppDisp:= WebBrowser1.DefaultDispatch;
   newform:= TForm1.Create(Self);
   newform.Show;
  path := ((TWebBrowser(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
  WebBrowser1.Navigate(path);
end;

я так получатся и сделал. но как я сказал, открывается новое окно, а в старом открывается эта ссылка.

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.01.2015, 16:07	10
	Сообщение от vlados2441 Ответ найти не удалось В первой же ссылке ответ. Сообщение от vlados2441 Пробовал, не получилось Значит не то или не так пробовал. 0

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.01.2015, 12:26	2
	twebbrowser onnewwindow2 url 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 14:14 [ТС]	3
	Ответ найти не удалось 0

DenNik Житель Земли 3001 / 3010 / 390 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	25.01.2015, 14:23	4
	а ответ там есть. во второй ссылке 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 14:36 [ТС]	5
	Пробовал, не получилось 0

DenNik Житель Земли 3001 / 3010 / 390 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	25.01.2015, 14:41	6
	а что не получилось? тебе показали, как перехватить ссылку и как заблокировать всплывающее окно. дальше делай с ссылкой, что тебе угодно. создание новой вкладки не по мысленному приказу происходит 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 14:50 [ТС]	7
	Окно открывается, но ссылка не перехватывается(открывается пустое окно) 0

DenNik Житель Земли 3001 / 3010 / 390 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	25.01.2015, 14:54	8
	а ты передал окну ссылку? как окно о ней узнает? 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 15:11 [ТС]	9
	А как это сделать ? Добавлено через 42 секунды Сообщение от vlados2441 {WebBrowser1.Navigate2(URL);} делает какой-то бред 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 16:54 [ТС]	11
	В ответ получаю одни ссылки или "умные советы". просто написать подробно слабо ? 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 18:14 [ТС]	12
	С этим кодом та же фигня происходит. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.01.2015, 19:22	15
	Сообщение от vlados2441 окно открывается, но ссылку не перехватывает С чего бы ему что-то там перехватывать ? У тебя есть значение в переменной path и ты должен сам указать компоненту WebBrowser на вновь созданной тобой форме, что ему нужно перейти по адресу, лежащему в переменной path. Для этого у компонента WebBrowser существует метод Navigate - или ты впервые слышишь про этот метод ? 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 20:00 [ТС]	16
	Navigate просто открывает эту ссылку в этом же окне , а я хочу , чтобы она открывалась в новом окне. 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	25.01.2015, 20:53 [ТС]	18
	Ты название раздела видел ? - Delphi для начинающих. я его учу около месяца. можно подробно объяснить, в какой процедуре указать navigate ? никто не сомневается в твоем знание делфи, вот только если ты в этом разделе, значит в нем одни нубики, которым нужно все подробно разжевать ... 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.01.2015, 21:17	19
	Сообщение от vlados2441 в какой процедуре указать navigate ? В той же в которой ты получил path - в TForm1.WebBrowser1NewWindow2 0