Отключить загрузку картинок в TWebBrowser

Duncon · 08 фев 2006, 14:58

Не секрет что WebBrowser считывает свойства в зависимости от установок в данном случае IE..
Поиск по сетке особо результатов не дал, нашел такой совет, но как применить недопер IDocHostUIHandler.FilterDataObject;
У кого какие соображения есть?

Blood_Magic · 09 фев 2006, 10:34

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Display Inline Images"="no"

Duncon · 09 фев 2006, 10:47

Такой способ не катит нужно отключать независимо от эксплоера...

Blood_Magic · 09 фев 2006, 14:20

мутно написал, тогда твое самое простое спасение TEmbeddedWB, скачай этот компонент с http://www.euromind.com/iedelphi если тебе принципиально нужен TWebBrowser, тогда все равно скачай TEmbeddedWB и посмотри как в нем сделано.

Duncon · 10 фев 2006, 19:55

В нем конечно все замечательно сделанно, но Ответа на свой вопрос я там не нашел, только время потратил.
Так и все же
Как отключить загрузку картинок в TWebBrowser -е????

Blood_Magic · 13 фев 2006, 13:41

Duncon писал(а):В нем конечно все замечательно сделанно, но Ответа на свой вопрос я там не нашел, только время потратил.
Так и все же
Как отключить загрузку картинок в TWebBrowser -е????

Интересное заявление, человеку дали работоспособный пример на основе TWebBrowser с открытыми текстами, а он говорит я ничего не нашел, типа сам смотри разбирайся, а мне потом кинешь как это в 2х строках выглядит. Ну что ж, я думаю будем ждать пока кто-то разберется. Может я разберусь если время и желание появится.

Duncon · 13 фев 2006, 17:34

Ты уверен что там есть эта функция??

Blood_Magic · 14 фев 2006, 12:42

Duncon писал(а):Ты уверен что там есть эта функция??

Код: Выделить всё

  TDownloadControlOption = &#40]
[b][color=red]DLCTL_DLIMAGES[/color][/b] - вкл./выкл. загрузку картинок

Далее смотри: [code]FDownloadOptionValue

потом

Код: Выделить всё

function TEmbeddedWB.Invoke(DispID: Integer;
  const IID: TGUID;
  LocaleID: Integer;
  Flags: Word;
  var Params;
  VarResult, ExcepInfo,
  ArgErr: Pointer): HResult;

ну и так далее

Duncon · 14 фев 2006, 17:27

Спасибо конечно, но это геморрой в периоде..

GAS · 08 мар 2006, 22:52

Абсолютно никакого гемороя. И на http://www.euromind.com/iedelphi все предельно понятно написано.

Код для динамического создания

Код: Выделить всё

  
  WebBrowser := TEmbeddedWB.Create(self);

  with TControl(WebBrowser) do
  Begin
    Parent := self; //or whatever...
    width:=800;
    height:=600;
  End;
  with WebBrowser do begin
    Loaded;
    Visible := True;
    DownloadOptions:=[
                      DLCTL_NO_SCRIPTS
                     ,DLCTL_NO_JAVA
                     ,DLCTL_NO_RUNACTIVEXCTLS
                     ,DLCTL_NO_DLACTIVEXCTLS
                     ];
  End;