Демонстрация использования флагов компонента EmbeddedWB в Delphi

Список флагов:

DLCTL_BGSOUNDS Проигрывать фоновые звуки, ассоциированные с документом.
DLCTL_DLIMAGES Загрузка фоновых изображений.
DLCTL_DOWNLOADONLY Страница загружается, но не отображается.
DLCTL_FORCEOFFLINE Всегда работать в режиме оффлайн. Будет использована версия документа из кэша. Это приведет к установке флага BINDF_OFFLINEOPERATION, даже если компьютер соединен с Интернетом при осуществлении запроса через URLMON.
DLCTL_NO_DLACTIVEXCTLS Не загружать элементы управления ActiveX.
DLCTL_NO_FRAMEDOWNLOAD Не загружать содержимое фреймов.
DLCTL_NO_JAVA Не исполнять Java апплеты.
DLCTL_NO_METACHARSET Игнорировать набор символов, содержащихся в элементе META документа.
DLCTL_NO_RUNACTIVEXCTLS Не запускать на исполнение элементы управления ActiveX.
DLCTL_NO_SCRIPTS Не исполнять скрипты.
DLCTL_OFFLINE Тоже, что и DLCTL_OFFLINEIFNOTCONNECTED.
DLCTL_OFFLINEIFNOTCONNECTED Работать в оффлайне, если нет подключения к Интернет. Это приведет к установке флага BINDF_GETFROMCACHE_IF_NET_FAIL, даже если компьютер соединен с Интернетом при осуществлении запроса через URLMON.
DLCTL_PRAGMA_NO_CACHE Не использовать кэш. Обновить информацию, даже если данные не устарели. Это приведет к установке флага BINDF_PRAGMA_NO_CACHE при осуществлении запроса через URLMON.
DLCTL_RESYNCHRONIZE Игнорировать содержимое кеша. Обновить информацию, если данные устарели. Это приведет к установке флага BINDF_RESYNCHRONIZE при осуществлении запроса через URLMON.
DLCTL_SILENT Не отображать пользовательский интерфейс и не посылать пользовательских уведомлений. Это приведет к установке флага BINDF_SILENTOPERATION при осуществлении запроса через URLMON.
DLCTL_URL_ENCODING_DISABLE_UTF8 Запретить использование кодировки UTF-8.
DLCTL_URL_ENCODING_ENABLE_UTF8 Разрешить использование кодировки UTF-8.
DLCTL_VIDEOS Проигрывать видео в документ.

Следующие примеры демонстрируют использования DownloadOptions:

procedure TForm1.Button1Click(Sender: TObject);
begin
   // Using default settings: DLCTL_DLIMAGES, DLCTL_BGSOUNDS,DLCTL_VIDEOS
  EmbeddedWB1.Go('http://www.microsoft.com');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  EmbeddedWB1.DownloadOptions:=EmbeddedWb1.DownloadOptions
  - [DLCTL_DLIMAGES]
  + [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_SCRIPTS];
  EmbeddedWB1.Go('http://www.microsoft.com');
end;

Следующий пример показывает различные варианты изменения DownloadOptions:

procedure TForm1.Button2Click(Sender: TObject);
var
  NewOptions: TDlOptions;
begin
  NewOptions := EmbeddedWB1.DownloadOptions;
  Exclude(NewOptions, DLCTL_DLIMAGES);
  Include(NewOptions, DLCTL_PRAGMA_NO_CACHE);
  Include(NewOptions, DLCTL_NO_SCRIPTS);
  EmbeddedWB1.DownloadOptions := NewOptions;
  EmbeddedWB1.Go('http://www.microsoft.com');
end;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...
Добавить комментарий