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

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

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Глобальные функции в COM

Автор: Dmitry_forum 19.7.2010, 13:28

Здравствуйте.
Подскажите, как создавать ActiveXDLL с функциями допускающими простой неквалифицированный вызов?
В VB есть св-ва класса "Instancing=GlobalMultiUse", а в Delphi нашел только "Instancing=Multiple Instance", каким образом еще добавить признак "глобальный"?
Например, есть код:

Код


unit Test01;
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.

M
Rrader

Пользуйтесь кнопкой ""Код" для подсветки листингов

Нужно чтобы при подключении этого COM-класса в другом приложении вызов происходил не в объектной форме MyTest01.Method1, а просто Method1().
Создание простой DLL не предлагать smile

, нужен именно COM.