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

@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 Житель Земли 3003 / 3008 / 391 Регистрация: 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 Житель Земли 3003 / 3008 / 391 Регистрация: 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 Житель Земли 3003 / 3008 / 391 Регистрация: 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