|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите с вызовом
Здравствуйте, я новичок в Delphi, поэтому прошу особо не пинать за вопрос.
Каким образом в классе или в методе класса можно рарешить вызов этого метода в неквалифицированной форме? Т.е. например, имеется код COM-класса: Код:
unit Test01; {$WARN SYMBOL_PLATFORM OFF} interface uses Windows, ActiveX, Classes, ComObj, Tst01_TLB, StdVcl; type TTest01 = class(TTypedComObject, ITest01) published function Method1: SYSINT; stdcall; end; implementation uses ComServ, Dialogs; function TTest01.Method1: SYSINT; export; begin ShowMessage('OK'); Result:=0; end; initialization TTypedComObjectFactory.Create(ComServer, TTest01, Class_Test01, ciMultiInstance, tmApartment); end. |
#2
|
|||
|
|||
Тогда сделай простую DLL, а не СОМ.
|
#3
|
|||
|
|||
Цитата:
Кроме того известно что это возможно, т.к. есть компоненты которые работают одновременно и в простом вызове (главное чтобы не было конфликтов) и в объектном. Например в VB есть св-ва класса "Instancing=GlobalMultiUse", которое включает эту возможность, а в Delphi такого нет, есть "Instancing=Multiple Instance", как бы сделать его Global? |