Как запретить переходы по ссылкам?

[Smitt&Wesson]

Доброе время суток форумчане. Кто знает, как в CppWebBrowser запретить все переходы на загруженной в него Web странице?
Пробовал вот так:

void __fastcall TMainForm::CppWebBrowser1NewWindow2(TObject *Sender,
      LPDISPATCH *ppDisp, TOLEBOOL *Cancel)
{
bool flag = false;
*Cancel = TOLEBOOL(flag);
}

ни чего не получается, может кто подскажет?

[GreyScall]

OnNewWindow2 - это когда страница пытается открыть ссылку в новом окне...
А при переходах вызывается OnBeforeNavigate2, там тоже Cancel есть...

Как пример:

Procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; Const pDisp: IDispatch; Var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; Var Cancel: WordBool);
Begin
If Pos('yandex', LowerCase(URL))=0 Then
      Begin
      Cancel:=True;
      MessageBox(Form1.Handle, PChar('Заблокирован переход по ссылке:'#13#10#13#10+String(URL)), 'Warring!', MB_OK Or MB_ICONWARNING);
      End;
End;

[Smitt&Wesson]

Если я делаю вот так:

void __fastcall TMainForm::CppWebBrowser1BeforeNavigate2(TObject *Sender,
      LPDISPATCH pDisp, TVariant *URL, TVariant *Flags,
      TVariant *TargetFrameName, TVariant *PostData, TVariant *Headers,
      TOLEBOOL *Cancel)
{
bool flag = true;
*Cancel = TOLEBOOL(flag);
}

то выдаються последовательно такие сообщения:

[Smitt&Wesson]

Доброе утро форумчане.
Что, никто с такой задачкой не сталкивался?
Как всё-таки запретить переход по ссылкам?

[Sam Gold]

Как всё-таки запретить переход по ссылкам?

Вот пример кода

void __fastcall TForm4::CppWebBrowser1BeforeNavigate2(TObject *Sender,
	  LPDISPATCH pDisp, Variant *URL, Variant *Flags, Variant *TargetFrameName,
	  Variant *PostData, Variant *Headers, VARIANT_BOOL *Cancel)
{

	String url=*URL;

//====блокируем ссылку, в которой встречается слово "yandex"

	if (strstr(url.c_str(),"yandex") != NULL ) {

		*Cancel = TRUE;

		MessageBox(NULL,"Заблокирован переход по ссылке","Warning",MB_OK);

	}

}

[Smitt&Wesson]

Запрет по выборочным ссылкам я в гугле нашёл. А как запретить все переходы?
Или это не возможно?
В принципе, можно загрузить страницу в TStringList и вычистить все href, потом сохранить страницу на диске и локально загрузить в WebBrovser.
Но может есть более стандартный путь?

Да, наверное я немного не корректно поставил вопрос.
Надо, что-бы сама страница выводилась, а переходы по ссылкам на ней не работали.
Вышеприведённый способ блокирует загрузку страницы.

[GreyScall]

Установка Cancel:=True; в BeforeNavigate2 блокирует переходы на другие страницы... Полностью... То есть CppWebBrowser1.Navigate() также будет блокироваться...

Сообщение от Smitt&Wesson

В принципе, можно загрузить страницу в TStringList и вычистить все href, потом сохранить страницу на диске и локально загрузить в WebBrovser.

Не нужно сохранять в файл, можно загружать страницу в CppWebBrowser прямо из памяти... Да вот загвоздка - ссылки могут быть не только в href...
Проще сделать флагом - блокировать или нет...

А ошибки на ваших скриншотах какие-то странные... Какая у вас версия Билдера?
Проверьте, будут ли ошибки в пустом проекте...



Установил «Borland C++ Builder Enterprise 6.0», написал так:

bool Block_Navigate=false;
bool Block_NewWindow=false;

void __fastcall TForm1::CppWebBrowser1NewWindow2(TObject *Sender, LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel)
{
*Cancel=Block_NewWindow;
}

void __fastcall TForm1::CppWebBrowser1BeforeNavigate2(TObject *Sender, LPDISPATCH pDisp, Variant *URL, Variant
                *Flags, Variant *TargetFrameName, Variant *PostData, Variant *Headers, VARIANT_BOOL *Cancel)
{
*Cancel=Block_Navigate;
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Block_NewWindow=true;
CppWebBrowser1->Navigate(Variant("http://ya.ru"));
Block_Navigate=true;
}

Всё работает...