Подключиться к разделяемому COM-объекту

[Vapaamies]

Подскажите пожалуйста, как правильно подключаться к разделяемому COM-объекту и как этот объект правильно написать?

Предположим, имеется некий объект, выполняющий роль сервера имен в какой-то среде:

type
  INameServer = interface ['{6C7A6C13-F789-4E83-A744-FBC39C8F05EB}']
    function GetSharedMemoryName: WideString;
  end;

  TNameServer = class(TComObject, INameServer)
  private
    FName: WideString;
  protected
    function GetName: WideString;
  public
    procedure Initialize; override;
  end;

{ TNameServer }

function TNameServer.GetName: WideString;
begin
  Result := FName;
end;

procedure TNameServer.Initialize;
begin
  FName := 'aa569';
end;

initialization
  TComObjectFactory.Create(ComServer, TNameServer, CLSID_NameServer,
    'NameServer', '', ciSingleInstance, tmSingle);

Нижнюю строчку инициализации создает сам Delphi при генерации скелета COM-объекта. Я не уверен, что она в правильном месте стоит. Всё это происходит в exe-шнике.

Как потом подключиться к этой хрени и получить имя? Имя должно быть одно для нескольких подключающихся клиентов, то есть разделяемое.

[Stilet]

Я наверное сейчас реально затуплю, ибо чет туго вопрос понял, но из того, что понял:

uses  comobj, 
...
var o:OleVariant;
begin
 o:=CreateOleObject('NameServer');
 Caption:=o.GetName;
end;

[Vapaamies]

Это для OLE-объекта в библиотеке, а у меня COM-объект (по интерфейсу) в exe-файле.

[waleri]

OLE сами по себе COM объекты, просто они заточены под определенные задачи.

Правильно начать с написания IDL файла, который описывает ваш интерфейс.
С его помощью генерится type library, которая регистрируется в системе, как и сам COM клас. Объект регистрируется как out of process server, после этого при попытки создания этого класса через CoCreateInstance ЕХЕ файл запустится. После запуска ЕХЕ регистрирует класс в running table с помощью CoRegisterClassObject.

type library дает возможность движку COM автоматизировать вызовы между процессами. Если нет type library, надо будет самому писать proxy/stub для каждого интерфейса, регистрировать их в системе и т.д.

[Vapaamies]

Сообщение от waleri

С его помощью генерится type library, которая регистрируется в системе, как и сам COM клас. Объект регистрируется как out of process server, после этого при попытки создания этого класса через CoCreateInstance ЕХЕ файл запустится.

Сейчас в проекте нет библиотеки типов, но программа-именователь запускается автоматом при вызове из другой через COM (типа как Word или Excel). В реестре записи есть. Полагаю, что Delphi своими обертками делает черновую работу. В коде TComObjectFactory как раз есть методы, отвечающие за обновление реестра. Откуда-то они вызываются, видимо.

Про библиотеку типа понял, попробую поэкспериментировать. Всегда казалось, что это просто разновидность RTTI, ориентированной на COM, чтобы импортирующие программы могли сгенерировать интерфейсы и обвязку, не имея исходников. У меня же исходники есть.

Модели потоков вроде должны в параметрах задаваться, есть выбор между tmApartment, tmSingle, tmNeutral и tmBoth.

Сообщение от waleri

После запуска ЕХЕ регистрирует класс в running table с помощью CoRegisterClassObject.

Про это читал ночью. Догадываюсь, что в Delphi оберток под это нет, нужно писать вручную. Вчера уже пошел спать, ща как раз продолжу.

Вобщем фигня какая-то. Сделал библиотеку типов, всё прописал.

[
  uuid(0C2FE7A1-9D43-4CA9-A14D-A2725FCB4485), 
  version(1.0), 
  helpstring("Namer Library")
    
]
library Namer
{

  importlib("stdole2.tlb");

  [
    uuid(BB533887-1DD2-47FC-B88C-39ED1C7FC6A4), 
    version(1.0), 
    helpstring("Интерфейс именователя")
  ]
   interface INameServer: IUnknown
  {
    [
    id(0x00000065)
    ]
    BSTR _stdcall GetName( void );
  };

  [
    uuid(5AFA5B4F-6C1B-4C39-A459-B3978DBCCD41), 
    version(1.0), 
    helpstring("Именователь в виде объекта COM")
  ]
  coclass NameServer
  {
    [default] interface INameServer;
  };

};

Потом пытался сделать по примеру с CodeProject:

const
  IID_IClassFactory: TGUID = '{00000001-0000-0000-C000-000000000046}';

function GetComObject(const CLSID, IID: System.TGUID): IInterface;
var
  Factory: IClassFactory;
begin
  OleCheck(CoGetClassObject(CLSID, CLSCTX_LOCAL_SERVER, nil, IID_IClassFactory, Factory));
  OleCheck(Factory.CreateInstance(nil, IID, Result));
end;

Вызов этой функции дает ошибку "Интерфейс не зарегистрирован", та же фигня и через дельфевый CreateComObject.

Ну вот, скомпилил пример CodeProject-а в VS, а он выдает "CoGetClassObject(): Error(80040154): Класс не зарегистрирован".

Цензурные слова у меня кончились.

[waleri]

Объект должен быть зарегистрирован в реестре, либо "вручную" в running table (CoRegisterClassObject). Я, правда, не в курсе что и как делает Дельфи, все что я пишу это с точки зрения самого COM.

[Vapaamies]

Реестр я первым делом проверил. В реестре всё есть и в случае Delphi, и в случае Visual Studio. А вот ошибки почти похожи.

[waleri]

Нет, это весьма разные ошибки.
Class not registered указывает, что объект вообще не зарегистрирован и/или в данных в реестре допущена ошибка.
Interface not registered указывает, что объект найден и его пытаются создать, но для нужного интерфейса нет зарегистриванного proxy/stub DLL. Это DLL будет грузится в оба процесса и должен будет заниматься маршалингом данных для вызовов. Обычно этим занимается сам COM на основе type library.

Как регистрировали sample из CodeProject? В том примере есть reg фйла но его надо допиливать.

[Vapaamies]

Сообщение от waleri

Как регистрировали sample из CodeProject? В том примере есть reg фйла но его надо допиливать.

Сначала вообще никак не регистрировал, потому что и Delphi, и VS должны самостоятельно регистрировать разрабатываемый COM-объект. Когда полезли ошибки, попробовал зарегить из командной строки через tregsvr от Borland и от .NET тоже какая-то утилита есть...

Блин, только сейчас заметил, что там есть исходники, которые можно скачать. Вчера в упор не видел ссылку. Копировал исходник из статьи, проделав нужные действия в VS вручную.

Посмотрел этот reg-файл, поискал его GUID в своем реестре, не нашел. Еще один

Отредактировал reg-файл под себя, применил. Теперь при запуске клиента запускается приложение сервера и... клиент зависает при попытке получить интерфейс фабрики классов:

Get the class factory interface for the Car class...CoGetClassObject(): Error(80080005): Ошибка при выполнении приложения-сервера