VPF::Вызов функции с ParamArray из COM-объекта

dvin

Дата 22.12.2009, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 22.12.2009

Репутация: нет
Всего: нет

Создал COM-объект с функцией Init, которая принимает в себе параметр ParamArray:

VB.NET:

Код


Imports System.Runtime.InteropServices

< _
ComVisible(True), _
Guid(Report.ClassId), _
ClassInterface(ClassInterfaceType.AutoDual), _
ProgId("Report") _
> _
Public Class Report
    Public Const ClassId As String = "446A6BDB-348B-4346-9B2F-D2FF2B815A12"
    Public Const InterfaceId As String = "4EE5444A-9348-4079-9960-B16D800144D9"
    Public Const EventsId As String = "2225448B-E63B-4f61-8F88-FD107E38BCBB"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Function Init(ByVal Host As String, ByVal ParamArray Parameters() As String) As String
        Return "Ok"
    End Function
End Class

Создаю объект, вызываю функцию Init с 3-мя строковыми параметрами. Получаю "Wrong number of arguments or invalid property assignment Source: VBAProject":

Excel, VBA:

Код


Sub Test()

On Error GoTo ErrLabel
    Dim obj As Object
    Set obj = CreateObject("Report")
    MsgBox (obj.Init("127.1", "PARAM1", "PARAM2"))
    
    GoTo EndLabel
ErrLabel:
    MsgBox "Ошибка: " + Err.Description + " Source: " + Err.Source
    
EndLabel:
    Set obj = Nothing
End Sub

Подскажите, что я делаю не так? М.б. в COM-объекте нельзя использовать функции с произвольным числом параметров (ParamArray)?

Спасибо.

diadiavova

Дата 22.12.2009, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(dvin @ 22.12.2009, 12:10

)

М.б. в COM-объекте нельзя использовать функции с произвольным числом параметров (ParamArray)?

Скорее всего нет. Если мне память не изменяет, то в офисных библиотеках очень много функций с большим количеством однотипных необязательных параметров. По всей видимости это и есть замена парамэрэя. Либо сделай так же, либо передавай аргументы не по одному, а в виде массива(ИМХО).

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »