Как передать экземпляр COM-объекта .NET из Delphi в другой COM-объект .NET?

Часть проблемы в том, что в Delphi объекты могут реализовывать интерфейсы, но сами по себе они не являются объектами с интерфейсом. Чтобы понять это различие, вы должны взглянуть на необработанную реализацию интерфейса на объекте Delphi и понять механизм подсчета ссылок, используемый COM. Еще нужно понимать, что .NET работает иначе, поэтому то, что кажется интерфейсом в .NET для объекта, ТАК же, что и представленный аспект ComVisible.

TYPE
  TMyObject = class(TInterfacedObject, IMyObject, IMyNewInterface)
  end;

Учитывая вышесказанное, об этом объекте можно сказать следующее. Вы создали новый COM-объект с помощью мастера COM-объектов Delphi. Интерфейс IMyObject определяется как интерфейс по умолчанию, а TMyObject - это конкретный класс, который будет реализовывать этот интерфейс. IMyNewInterface - это вторичный интерфейс, определенный где-то еще, который, как вы указали, реализует ваш объект.

С этим объектом можно делать следующее

 var
   I1: IMyObject;
   I2: IMyNewInterface;
   T: TMyObject;
 begin
   I1:=TMyObject.Create;
   I2:=TMyObject.Create;
   T:=TMyObject.Create;
 end;

Вы можете делать это, потому что TMyObject РЕАЛИЗАЦИЯ этих интерфейсов. Кроме того, поскольку они подсчитываются по ссылкам, вам не нужно освобождать их из памяти, когда область действия метода заканчивается, так же как и время жизни объекта - ЗА ИСКЛЮЧЕНИЕМ ПОСЛЕДНЕГО, потому что вы используете ОБЪЕКТ REFERENCE вместо ИНТЕРФЕЙС, вы должны освободить созданный вами ОБЪЕКТ.

Учитывая опубликованный вами код, если вы присмотритесь, вы действительно обнаружите ту же ситуацию. В вашем случае ваш объект полностью реализован в .NET, поэтому вы пытаетесь использовать оболочку кода Delphi - это ОБЪЕКТ, а не ИНТЕРФЕЙС.
Вы замечаете на оболочке, что второго метода нет. чтобы передать экземпляр объекта IUserInfo, и это потому, что этот ОБЪЕКТ не реализует ИНТЕРФЕЙС (ваш объект .NET был создан для этого) - что вам нужно сделать в Delphi, это «выбрать этот интерфейс»

Вы бы выполнили эту задачу, выполнив следующие действия:

Если вы уже выполнили вызов TUserMainasted.Create (nil) и имеете экземпляр этого объекта, получите интерфейс по умолчанию, а затем «приведите» его к соответствующему реализованному интерфейсу.

 var
   UMDelphiWrapper: TUserMaintenance;
   UIDelphiWrapper: TUserInfo;
   UI: IUserInfo;
   UM: IUserMaintenance;


 begin
   //this part creates a Delphi OBJECT reference to the Implementation class -
   //this is NOT Reference counted, because it doesn't implement an interface.
   UIDelphiWrapper:=TUserInfo.Create(nil);
   try
     //this is the part where you acquire the interface of the object that actually
     //implementes this interface - e.g. your .NET class
     //not that this is the INTERFACE reference - which WILL be reference counted
     UI:=UIDelphiWrapper.DefaultInterface as IUserInfo;

     //UI.<Set some properties of your IUserInfo object>

     try
       //this part creates a Delphi OBJECT reference to the Implementation class -
       //this is NOT Reference counted, because it doesn't implement an interface.
       UMDelhpiWrapper:=TUserMaintenance.Create(nil);
       try
         //this is the part where you acquire the interface of the object that actually
         //implementes this interface - e.g. your .NET class
         //not that this is the INTERFACE reference - which WILL be reference counted
         UM:=UMdelphiWrapper.DefaultInterface as IUserMaintenance;
         try
           //Here, you have an interface type implemented by your .NET class that you are
           //sending to the implementation of your management object (Also a .NET class)
           UM.SendUser(UI);

           //do whatever else you need to do with your interface and user/management .NET object(s)
         finally
           //this IS a reference counted COM object - no "free" necessary 
           //this would naturally happen when the reference goes out of scope in the method
           //but for clairity sake is set to NIL to explicitly release your reference
           UM:=nil;
         end;

       finally
         //This is a delphi object that is NOT reference counted and must be released
        FreeAndNil(UMDelphiWrapper);     
       end;

     finally
       //this IS a reference counted COM object - no "free" necessary 
       //this would naturally happen when the reference goes out of scope in the method
       //but for clairity sake is set to NIL to explicitly release your reference
       UI:=nil; 
     end;
   Finally
     //This is a delphi object that is NOT reference counted and must be released
     FreeAndNIl(UIDelphiWrapper);
   end;

В дополнение к фактическому использованию предоставленных Delphi оболочек вы можете вместо этого напрямую создавать ссылки на свои .NET-объекты, если вы знаете правильную информацию.

var
  UI: IUserInfo;
  UM: IUserManager;

begin
  UI:=CreateOleObject('YourAssembly.YourImplementationClass') as IUserInfo;
  UI.SomeProperty:=SomeValue;
  UM:=CreateOleObject('YourAssembly.YourImplementationClass') as IUserManger;
  UM.SomeMetohd(UI);
end;

Этот код намного чище, однако вы все равно должны иметь точное определение IUserInfo и IUserMain maintenance, а также знать понятное имя класса ваших объектов, поскольку они были зарегистрированы в COM.

Вы можете сделать это самостоятельно, набрав код - это то, что должна была сделать за вас функция импорта типа, когда вы импортировали COM-доступную DLL из вашей сборки. Я не видел фактической реализации в предоставленном вами коде, но вы все равно должны найти эту информацию в своем файле заголовка. - Если вы этого не сделаете, значит вы не импортировали правильную сборку, или импорт Delphi 7 работал некорректно - или его нужно обновить (например, вы добавили новые методы в свою реализацию .NET, но не сделали этого) t перерегистрировать (с помощью COM) и повторно импортировать информацию о новом типе сборки).

type
  IUserInfo = interface
  ['22222222-2222-2222-2222-AAAAAAAAAAAA']
  //define your methods
  end;

Надеюсь, я правильно понял ваш вопрос. Если вы хотите избавиться от сбивающего с толку (и ненужного) _UserInfo в библиотеке типов, вам не следует экспортировать свой CoClass, только интерфейс.

[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
[Guid("22222222-2222-2222-2222-AAAAAAAAAAAA")]
public interface IUserInfo
{
}

[ClassInterface(ClassInterfaceType.None)]
[ComVisible(true)]
[Guid("22222222-2222-2222-2222-BBBBBBBBBBBB")]
public class UserInfo: IUserInfo
{
}

Обратите внимание, что для первого атрибута CoClass установлено значение ClassInterfaceType.None, таким образом DotNet не будет раскрывать сам CoClass библиотеке типов. Тем не менее, вы можете создать экземпляр своего объекта в Delphi, как всегда:

var
  pUserInfo: IUserInfo;
begin
  pUserInfo := CoUserInfo.Create;