Ошибка: 'New' cannot be used on an interface.

[lord0n]

Добрый день.
Проблема такая:
Нужно подключиться к ком-объекту используя раннее связывание
То есть не применяя конструкцию

Код: Выделить всё


Dim MyApplication As Object
MyApplication = CreateObject( "SAPERION.Application")


а вот так:

Код: Выделить всё


Dim a As Saperion.IApplication
a = New Saperion.IApplication


Но когда начинаешь набирать "a = New Saperion.IApplication" в выпадающем списке Saperion отсутствует.
Если его вставить принудительно, то появляется ошибка:
"'New' cannot be used on an interface."
Как быть?

[_ae_]

Dim a As Saperion.IApplication
a = CreateObject( "SAPERION.Application")

[lord0n]

Интересная комбинация позднего и раннего связывания))))))))
Вот такая ошибка:
"Unable to cast COM object of type 'System.__ComObject' to interface type 'Saperion.IApplication'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{42A01000-7CD8-11CF-BF51-00AA0057893A}' failed due to the following error: Интерфейс не поддерживается (Exception from HRESULT: 0x80004002 (E_NOINTERFACE))."

[_ae_]

lord0n
Здесь нет ничего необычного.
А почитал ли ты написанную тобой же ошибку? Или просто скопипастил?

[lord0n]

ага, прочитал, подправил
теперь: Cannot create ActiveX component.

[gaidar]

Если COM объект подключен к проекту и для него сгенерирован прокси класс, то CreateObject использовать не нужно, а нужно создавать экземпляр прокси-класса COM объекта, как и для любого другого класса.

[lord0n]

то есть написать a = New ...?
или я что то не понял