TWebBrowser в качестве Com-клиента [Delphi, Windows]
bmax © (2005-01-20 12:08:00)
Стоит следующая задача. Имеем на форме компонент TWebBrowser.
Хочется из загружаемой Asp-страницы с помощью JavaScripta цепляться
к самому приложению и управлять им (минимизировать в трей и т.п.).
Я так понимаю, в общем случае такие задачи решаются с помощью
создания в приложении внепроцессного сервера автоматизации
(Com-объекта с интерфейсом IDispatch). Но применительно к моему
случаю сразу возникают вопросы, ведь браузер будет находиться в том
же процессе, что и сервер. И требуется линковаться именно к своему
'родителю'. Как бы вы решили эту задачу?
Ломброзо (2005-01-23 15:25:00) [1]
Код навскидку не дам, но намётки могу:
- Воспользоваться возможностями, предоставляемыми методом
IHTMLDocument4::fireEvent
HRESULT fireEvent( BSTR
bstrEventName,
VARIANT *pvarEventObject,
VARIANT_BOOL *pfCancelled
);
- Определяем набор функций, с помощью которых ASP будет
управлять вашей формой
<html>
<body>
<script language="JScript">
fireEvent("onMinimize");
</script>
</body>
</html>
- Подключаемся к событиям IHTMLDocument, который загружен в
WebBrowser при помощи IConnectionPointContainer, IConnectionPoint и
пр. Ловим определённый нами эвент, реагируем.
Наверх 
ЧАТ |
Орешник |
|
