Обновлено: 02 декабря, 2018

Демонстрация использования флагов компонента 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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439