PHP DM Gate v0.9 » ActiveX -> JavaScript <span class="vd">[Delphi, Windows]</span>

vir © (06.04.07 11:37) [0]

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

<Цитата>
vir © (06.04.07 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 на странице.

<Цитата>