Delphi - Обратные вызовы из ActiveX Library

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Delphi - Обратные вызовы из ActiveX Library

grafmoto

Новый участник

Сообщения: 24
Благодарности: 4

Профиль | Отправить PM | Цитировать

доброго времени суток!
проект:
-создаю проект ActiveX Library, Automation Object
-добавляю методы, реализую их
-регистрирую библиотеку

из js работаю с ней:

PHP код:


lib = new ActiveXObject("MyLib.MyInterface"); 

res = lib.myfunc();

-все нормально

проблема в следующем:
нужно реализовать функцию обратного вызова:

PHP код:


function onCallback() 

{ 

... 

} 



lib.callback = onCallback;

т.е. библиотека должна иметь какое-то свойство "callback", которому присваивается функция js обратного вызова. и эта функция js (onCallback() в итоге) должна вызыватся из библиотеки.

так например сделано у Microsoft.XMLHTTP:

PHP код:


function readyState() 

{ 

... 

} 



xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); 

xmlhttp.onreadystatechange = readyState; 

xmlhttp.open("GET", "http://server/", true); 

xmlhttp.send();