Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > ComServer

Автор: cemick 26.5.2009, 12:20

Можно ли сделать следующие:

Com сервер реализован в виде exe, фабрика классов создается с параметром ciMultiInstance.
В макросе в Word'e создаем объект нашего приложения, а при выходе из процедуры макроса уничтожается инстанс и закрывается приложение. Дак вот вопрос: Можно ли, и как, если можно, сделать так, что бы наше exe приложение не закрывалось при выходе из процедуры макроса.

Текст в Delphi:

Код


CoTest = (TAutoObject, ITestInterface)
....

end;

initialization

  TAutoObjectFactory.Create(ComServer, CoTest,
    CLASS_ CoTest, ciMultiInstance, tmApartment);

end.

Макрос:

Код


Sub RunOLE()
    Dim O As Object
    Set O = CreateObject("testAppl.CoTest")
    .. что нибудь вызываем

End Sub  REM происходить закрытие приложения testAppl

Автор: cemick 26.5.2009, 13:06

уп-с, не заметил точно такой же темы ниже