| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ActiveX -> JavaScript [Delphi, Windows]

vir ©   (2007-04-06 11:37:00) 

День добрый - пишу ActiveX для тобрадения в HTML странице.
Вот беспокоит вопрос, как из ActiveX формы вызвать JS функцию на странице где она отображается?
Ну или как из ActiveX получить доступ к htmldocument?

---

vir   (2007-04-06 12:29:00) [1]

Вобщем MSDN помог.
Вот код думаю многим поможет.


procedure TContetX.Button1Click(Sender: TObject);
var Doc:IHTMLDocument2;
   Site:IOleClientSite;
   Container:IOleContainer;
   HTMLWindow: IHTMLWindow2;
begin
Site:=Self.ActiveFormControl.ClientSite;
Site.GetContainer(Container);
Doc:=Container as IHTMLDocument2;
HTMLWindow := Doc.parentWindow;
HTMLWindow.execScript('receive("YES");', 'JavaScript');
end;


ну соотвестенно функция receiveдолжна быть объявлена в JS на странице.

---

Наверх