ActiveX -> JavaScript

← →
vir © (2007-04-06 11:37) [0]

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

← →
vir © (2007-04-06 12:29) [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 на странице.

ActiveX -> JavaScript Найти похожие ветки