Форум: "Сети";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];

Вниз

Как WebBrowser у запретить качать картинки?   Найти похожие ветки 

← →
kay ©   (2006-03-18 14:36) [0]

независимо от настроек Explorer"а.

нашёл в интернете вот эту фнкцию IDocHostUIHandler.FilterDataObject, но как её пользоваться - не знаю

---

← →
easy ©   (2006-03-19 19:16) [1]

http://dfc.com.ru/faq/?base=internet&p=29

---

← →
kay ©   (2006-03-19 23:35) [2]

не пашет. пашет только тогда, когда страница уже загрузилась. а мне не надо, чтобы картинки грузились, траффик жрёт.

---

← →
easy ©   (2006-03-20 10:46) [3]

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, SHDocVw, OleCtrls, ActiveX, StdCtrls;
type
 TimgWebBrowser = class(TWebBrowser, IDispatch)
 private
  //FImageEnabled: boolean;
   //procedure SetImageEnabled(const Value: boolean);
 protected
   function IDispatch.Invoke = Invoke;
   function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
     Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
     stdcall;
 public
   constructor Create(AOwner: TComponent); override;
 published
  //property ImageEnabled: boolean read FImageEnabled write SetImageEnabled default true;
 end;
type
 TForm1 = class(TForm)
   //Button1: TButton;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
  // procedure Button1Click(Sender: TObject);
 private
  { Private declarations }
   imgWebBrowser: TimgWebBrowser;
 public
  { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
{ TimgWebBrowser }

constructor TimgWebBrowser.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 //FImageEnabled := true;
end;

function TimgWebBrowser.Invoke(DispID: Integer; const IID: TGUID;
 LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
 ArgErr: Pointer): HResult;
const
 DISPID_AMBIENT_DLCONTROL = -5512;
 DLCTL_DLIMAGES = $00000010;
begin
 if (Flags and DISPATCH_PROPERTYGET <> 0) and (VarResult <> nil) then
 begin
   Result := S_OK;
   case DispID of
     DISPID_AMBIENT_DLCONTROL:
       (*if FImageEnabled then
         PVariant(VarResult)^ := Integer(DLCTL_DLIMAGES)
       else  *)
         PVariant(VarResult)^ := Integer(not DLCTL_DLIMAGES);
   else
     Result := DISP_E_MEMBERNOTFOUND;
   end;
 end else
   result := inherited invoke(dispid, iid, localeid, flags, params, varresult,
     ExcepInfo, argerr);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 imgWebBrowser := TimgWebBrowser.Create(self);
 with imgWebBrowser do begin
   Align := alclient;
   TControl(imgWebBrowser).Parent := form1;
   //ImageEnabled := false; // Это тут.
   Navigate("http://delphimaster.ru");
 end;
 //Button1.BringToFront;
 //Button1.Caption := "Enbl/Dsbl";
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 imgWebBrowser.Free;
end;

(*procedure TForm1.Button1Click(Sender: TObject);
begin
 imgWebBrowser.ImageEnabled := not imgWebBrowser.ImageEnabled;
end;  

procedure TimgWebBrowser.SetImageEnabled(const Value: boolean);
var
 path: OleVariant;
begin
 if (assigned(Document)) then begin
   FImageEnabled := Value;
   path := OleObject.document.location;
   RecreateWnd;
   Navigate(path);
 end;
end; *)
end.

---

← →
kay ©   (2006-03-20 19:34) [4]

спасибо. сам не додумался

---

← →
kay ©   (2006-03-21 14:09) [5]

на рабочем компе работает, на другом пишет - невозможно загрузить страницу.
если использовать стандартный WebBrowser - то опять всё ок.

---

← →
kay ©   (2006-03-21 14:12) [6]

P.S. По протоколу http - всё нормально, по протоколу https - ошибка

---

← →
kay ©   (2006-03-21 18:50) [7]

народ, срочно нужно, а то херь какая-то с этими операционками!

---

← →
Alex640 ©   (2006-03-21 18:53) [8]

Да, картинки включил, и нормально стало, причем у меня и на http без картинок не работает. Нажимаю на любую ссылку - Страница не найдена

---

← →
kay ©   (2006-03-22 10:26) [9]

народ, вопрос всё ещё актуален

---

← →
Dmitrij_K   (2006-03-22 10:32) [10]

>2 kay ©

Скинул тебе на почту компонент

---

← →
kay ©   (2006-03-22 10:47) [11]

Dmitrij_K, ты не из Ульяновска?

---

← →
Dmitrij_K   (2006-03-22 11:09) [12]

Нет.
Я из Москвы

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.012 c