WebBrowser

[John_11]

Есть форма на которой размещен ActiveX WEBBrowser.
Если на Web-странице встречается ссылка открывающая новое окно, то запускается Internet Explorer. Я хочу чтобы новые окна открывались в таком же ActiveX WEBBrowser.
Перекрываю метод ONnewWindow2
(http://support.microsoft.com/kb/184876)

// A new, hidden, non-navigated WebBrowser window is needed.
void onEvent_NewWindow2(COM _ppDisp, COMVariant /* boolean */ _Cancel)
{
    WebBrowser2.RegisterAsBrowser(true);
    _ppDisp =  WebBrowser2.Application();
}

WebBrowser2 – другой экземпляр компонента ActiveX WEBBrowser, который для эксперимента расположен на этой же форме.
Но никакого результата не получаю. Все равно при открытии ссылки в новом окне, запускается Internet Explorer.

Создаю аналогичный пример в Delphi. Перекрываю метод Onnewwindow

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  WebBrowser2.RegisterAsBrowser := true;
  ppDisp := WebBrowser2.Application;
end;

На Delphi все работает. Достаточно и одной строчки ppDisp := WebBrowser2.Application;
Что нужно сделать чтобы пример заработал на X++ ? Может проблема скрыта в IDispatch?

[AndyD]

Можно перекрыть событие OnNewWindow3 и в нем обрабатывать ссылку так

void onEvent_NewWindow3(COM _ppDisp, COMVariant /* boolean */ _Cancel, int _dwFlags, str _bstrUrlContext, str _bstrUrl)
{
    ;
    _Cancel.boolean( true );
    WebBrowser2.Navigate( _bstrUrl );
}

Первый вариант не проходит потому, что _ppDisp - это не ссылка на интерфейс, а класс, его инкапсулирующий. И простая замена ссылки на этот класс ничего не дает (внутри системы он все равно продолжает жить).
Да и есть сомнения,что, в конечно итоге, происходит возврат нового интерфейса в самом первом вызове NewWindow из браузера, даже если его подменить внутри ppDisp

[John_11]

AndyD, предложенный Вами вариант работает, но
на некоторых страницах возникает ошибка (см. вложение)
Хотя пример с NewWindow2 на Delphi отрабатывает без ошибок.

[Gustav]

Цитата:

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

на некоторых страницах возникает ошибка (см. вложение)

Тоже пришлось с этим бороться. Нашёл здесь http://www.sql.ru/forum/actualthread.aspx?tid=527453, что надо сделать так:

WebBrowser2.Silent( true );