Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2010, 10:21   #1
Diogo76
Пользователь
 
Регистрация: 11.02.2010
Сообщений: 13
По умолчанию TEmbeddedWB (TWebBrowser) проблема с отменой загрузки

Собственно задача следующая: Есть программа бот для некоторой онлайн-игры. Сервер при отдаче html странички может вставить IFRAME с рекламой, ее нужно блокировать.
Код:
procedure TfrmMain.Weber1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if (Pos('ads.gfsrv.net', URL)>0) then
  begin
    Cancel := True;
    exit;
  end;
  // дальше куча другого текста
При загрузке новой страницы срабатывает BeforeNavigate2 для самой страницы, если сервер сгенерил IFRAME для данной страницы, опять вызывается BeforeNavigate2 в которой загрузка отменяется переменной Cancel. После этого браузер делает вид, что он что-то грузит (хотя он ничего не делает, т.е. типа зависает) и никогда после этого не срабатывает событие OnDocumentComplete. Кто-то сталкивался с подобной проблемой?
Diogo76 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема загрузки на сервер файлов xVitaliyx PHP 13 26.01.2010 10:12
Курсор загрузки и TWebBrowser Ronder Помощь студентам 0 05.09.2009 22:55
Проблема с TWEbBrowser xakzona Работа с сетью в Delphi 0 31.10.2008 04:02
Отключение загрузки графики в TWebBrowser dimon000 Работа с сетью в Delphi 3 12.08.2008 23:42
Проблема с twebbrowser Pedro Работа с сетью в Delphi 6 10.09.2007 20:34