Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > не наследуются свойства embeddedwb (webbrowser) в

Автор: s2004 22.11.2011, 10:00

Здравствуйте!
не наследуются свойства embeddedwb (webbrowser) в дочернем окне наличие или отсутствие рисунков и пр., то есть выбираем запрет изображения в главном окне срабатывает в дочернем нет тут следует сказать "дочернее" окно в моём случае при открытие ссылки в основной форме, если просто запустить ещё копию проги, то всё работает

Код


procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.checked then RadioButton2.checked := false
else RadioButton1.checked := true;
if True then
Form1.EmbeddedWb1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions
+ [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS]
- [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA, DLCTL_NO_SCRIPTS];
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.checked then RadioButton1.checked := false
else RadioButton2.Checked  := true;
if True then
Form1.EmbeddedWb1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions
- [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS,DLCTL_NO_SCRIPTS]
+ [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA];
 
end;

включение или выкдючения изображения, звука...вверху.

код относящийся к открытию ссылки

Код


procedure TForm1.EmbeddedWB1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
 var Cancel: WordBool);
 var NewWindow:TForm1;
 
begin
NewWindow := TForm1.Create(parent);
SetWindowLong(NewWindow.Handle, GWL_EXSTYLE, GetWindowLong(NewWindow.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
NewWindow.Show;
ppDisp:=NewWindow.EmbeddedWB1.DefaultDispatch; 
 
 end;

Автор: pupkindeniska 22.11.2011, 10:41

ты зачем сам себе грабли поставил Form1.EmbeddedWb1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions

Тебе же надо в новом окне присвоить! Так вот и присваивай после создания окна!

Код


NewWindow := TForm1.Create(parent);
SetWindowLong(NewWindow.Handle, GWL_EXSTYLE, GetWindowLong(NewWindow.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
//ВСТАВКА
NewWindow.EmbeddedWB1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions; //СЮДА
//ВСТАВКА
NewWindow.Show;
ppDisp:=NewWindow.EmbeddedWB1.DefaultDispatch;

Автор: s2004 22.11.2011, 19:01

ну и как это будет выглядеть ведь в первом коде идёт выбор с рисунком или звуком и тд затем процедура newwindow2 в ней уже ни каких опций по изменению включенно или отключенно нет поэтому я н smile

апример не представляю куда там ...

Автор: s2004 22.11.2011, 20:31

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

Код



procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.checked then RadioButton2.checked := false
else RadioButton1.checked := true;
if True then
EmbeddedWb1.DownloadOptions:=EmbeddedWb1.DownloadOptions
+ [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS]
- [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA, DLCTL_NO_SCRIPTS];
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.checked then RadioButton1.checked := false
else RadioButton2.Checked  := true;
if True then
EmbeddedWb1.DownloadOptions:=EmbeddedWb1.DownloadOptions
- [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS,DLCTL_NO_SCRIPTS]
+ [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA];
 
end;
 
 Ini.WriteBool('FORM1','RadioButton1Checked',RadioButton1.Checked);
  Ini.WriteBool('FORM1','RadioButton2Checked',RadioButton2.Checked);
  Ini.WriteString('files','path', s); // <--- Сохраняешь измененный путь
 
 
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
EmbeddedWb1.DownloadOptions:=EmbeddedWb1.DownloadOptions
+ [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS]
- [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA, DLCTL_NO_SCRIPTS];
end;
 
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if RadioButton1.checked then RadioButton2.checked := false
else RadioButton1.checked := true;
if True then
EmbeddedWb1.DownloadOptions:=EmbeddedWb1.DownloadOptions
+ [DLCTL_DLIMAGES,DLCTL_NO_JAVA]
- [DLCTL_PRAGMA_NO_CACHE,DLCTL_BGSOUNDS, DLCTL_VIDEOS, DLCTL_NO_SCRIPTS];
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if RadioButton2.checked then RadioButton1.checked := false
else RadioButton2.checked := true;
if True then
EmbeddedWb1.DownloadOptions:=EmbeddedWb1.DownloadOptions
- [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS,DLCTL_NO_SCRIPTS]
+ [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA];
end;

Автор: pupkindeniska 23.11.2011, 09:06

s2004

Не пойму последний вопрос?
Что нужно конкретно сделать?
Ты можешь изменять настройки главного окна - далее в дочернем наследуешь эти настрйоки и дочернее окно будет открываться с такими же настройками как и главное!

Но если ты хочешь изменять настройки открытого второго браузера в процессе работы - то необходимо их менять по нажатию кнопки или при изменении радио баттона и соответственно делать перезагрузку страницы иначе изменений не увидишь!
Опять же той же самой строкой!
Вот к примеру! Или для второго браузера сделать отдельное управление!

Код


procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.checked then RadioButton2.checked := false
else RadioButton1.checked := true;
if True then
EmbeddedWb1.DownloadOptions:=EmbeddedWb1.DownloadOptions
+ [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS]
- [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA, DLCTL_NO_SCRIPTS];
 if NewWindow<>nil then
 Begin
 NewWindow.EmbeddedWB1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions;
 NewWindow.EmbeddedWB1.Refresh;
 end;
end;

Насколько я вижу в коде элементы управления у тебя стоят на форме Form1
А второе окно я вижу что оно создаётся NewWindow := TForm1.Create(parent);

По моему коду, который я тебе привёл видно что я наследую все настройки от твоего главного окна браузера который находится на форме Form1

Код


NewWindow.EmbeddedWB1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions;

если ты хочешь чтоб настройки для второго окна брались из ini файла тогда вместо этой стоки выше вставь код где будут прочитаны настройки из ini файла и присвоены твоему браузеру на новой форме.

Автор: s2004 23.11.2011, 17:23

мне надо разумеется наследование свойств главной формы в дочернее тк приходится в ручную изменять уже после открытия дочокна ну попробою отпишу...

Автор: s2004 23.11.2011, 19:15

попробовал выше перечисленное компилируется, но при запуске ошибка по адресу...

Автор: pupkindeniska 24.11.2011, 11:32

s2004 по идеи всё элементарно.....
Если не трудно выложи исходник - покопаюсь.....
Возможно ты сейчас не верно вставил код .... возможно присваиваешь значение ещё не существующему объекту и у тебя выскакивает ошибка.

Чтоб ошибки не было нужно присваивать значение только после создания объекта.
Проверку на форму я тебе поставил а вот проверку на объект браузера нет ибо я не видел в коде где он создаётся.
Так же я не знаю как ты освобождаешь память... и вообще освобождаешь ли ..... этого я не вижу....

Автор: s2004 25.11.2011, 22:22

Цитата

а подробней я там варианты перебрал но присвоение newwindow и inifiles не получается.