WebBrowser блокировка сайтов! - Компоненты Delphi

xew · 11.02.2012, 10:51

Здраствуйте! Сделал браузер, нужно чтобы пользователь не смог перейти на другие сайты.

Сделал так:

Код:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
if (WebBrowser1.LocationURL<>site) then
WebBrowser1.GoBack;
end;

Так то все работает но если пользователь перейдет в другой раздел и т.д. то его перебросит обратно. Как можно реализовать чтобы не прописывать все возможные пути куда может заходить пользователь а что то типо http://site/* )))

Dron97 · 18.02.2012, 15:46

напиши
if pos(site,WebBrowser1.LocationURL)<1 then
WebBrowser1.GoBack;

11.02.2012, 10:51	#1
xew Пользователь Регистрация: 29.05.2010 Сообщений: 27	WebBrowser блокировка сайтов! Здраствуйте! Сделал браузер, нужно чтобы пользователь не смог перейти на другие сайты. Сделал так: Код: `procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if (WebBrowser1.LocationURL<>site) then WebBrowser1.GoBack; end;` Так то все работает но если пользователь перейдет в другой раздел и т.д. то его перебросит обратно. Как можно реализовать чтобы не прописывать все возможные пути куда может заходить пользователь а что то типо http://site/* )))

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Блокировка сайтов в WINDOWS 7	pro-soft2010	Работа с сетью в Delphi	0	14.07.2011 15:27
Webbrowser и combobox: сделать чтобы в combobox-е оставалась история посещенных сайтов	uasya2	Общие вопросы Delphi	6	06.03.2011 20:24
блокировка всплывающих окон в WebBrowser	designer999	Работа с сетью в Delphi	3	12.04.2010 22:49

18.02.2012, 15:46	#2
Dron97 Регистрация: 18.02.2012 Сообщений: 4	напиши if pos(site,WebBrowser1.LocationURL)<1 then WebBrowser1.GoBack;