Создание SafeArray с объектами определенного типа пользователя

Question

Я использую концепцию взаимодействия между Delphi и C#. Я создал классы в C# и импортировал эти классы в проект delphi как COM-объекты. Объявление класса в C# код

public class HotelAvailNotifRQ : IHotelAvailNotifRQ 
{ 
    [MarshalAs(UnmanagedType.LPArray)] 
    public IAvailStatusMessage[] AvailStatusMessagesField; 

    public IAvailStatusMessage[] AvailStatusMessages 
    { 
     get { return AvailStatusMessagesField; } 
     set { AvailStatusMessagesField = value; } 
    } 
} 

И когда я импортировать этот класс как объект ком Дельфы, который будет как

IHotelAvailNotifRQ = interface(IDispatch) 
    ['{2F7C57D7-256A-3102-A4C6-FD081C8342B4}'] 
    function Get_AvailStatusMessages: PSafeArray; safecall; 
    procedure Set_AvailStatusMessages(pRetVal: PSafeArray); safecall; 
    property AvailStatusMessages: PSafeArray read Get_AvailStatusMessages write Set_AvailStatusMessages; 
end; 

Я могу создать объект IAvailStatusMessage успешно. Но, в то время как я ставлю этот объект в PSafeArray с помощью функции

SafeArrayPutElement(HotelAvailNotifRQ.AvailStatusMessages, Idx, AvailStatusMessage) 

я получаю сообщение об ошибке, как «параметр неверен». Пожалуйста, помогите мне решить эту проблему.

Answer 1

После дня борьбы найдено решение проблемы. После чейнинга код обеих сторон, как,

Delphi код на стороне

var 
    varAvailStatusMessages : Variant; 
begin 
    varAvailStatusMessages := VarArrayCreate([0, AvailStatusMessages.Count], varDispatch); 
    varAvailStatusMessages[asmIdx] := AvailStatusMessage; 
    Result.AvailStatusMessages := PSafeArray(TVarData(varAvailStatusMessages).VArray); 
end; 

.Net сторона код

public class HotelAvailNotifRQ : IHotelAvailNotifRQ 
{ 
    [MarshalAs(UnmanagedType.Interface)] 
    public IAvailStatusMessage[] AvailStatusMessagesField; 

    public IAvailStatusMessage[] AvailStatusMessages 
    { 
    get { return AvailStatusMessagesField; } 
    set { AvailStatusMessagesField = value; } 
    } 
} 

Спасибо за ссылки, http://blog.virtec.org/2008/07/the-mysteries-of-psafearray/