Передача агументов в функцию com объекта

[doo]

нет ((
ругается на то что аргумент опущен

[AndyD]

Откройте Excel (или Word), вызовите VBA (ALT+F11). Вызовите Tools/References. Найдите там вашу библиотеку. Поставьте для нее галку и нажмите Ok. Откройте Object Browser [F2]. Выберите в списке библиотеку. Выберите интерфейс и метод - посмотрите список передаваемых параметров и возвращаемое значение

[doo]

Function LinkTest(vfCptModel) As Integer

[AndyD]

Не уверен, но попробуйте так

ComDispFunction funcGet;
    COMVariant varRet1;
    COMVariant varRet2;
...
    funcGet = new ComDispFunction(com, "LinkTest", COMDispContext::Method);
    varRet1  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_BSTR);
    varRet2  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_INT);
    funcGet.call(varRet1, varRet2);
    data = varRet.bStr();

[doo]

Указанный аргумент [retval] должен быть последним параметром в вызове метода 'LinkTest'

[doo]

умаялсо. хотел сделать красиво. но, видимо, придётся делать через внешний временный файл.

огромное спасибо за участие )

[AndyD]

Попробуйте для varRet1 установить COMVariantInOut::Out

[doo]

говорит, что не может преобразовать один или более аргументов

[fomenka]

Цитата:

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

Function LinkTest(vfCptModel) As Integer

Вы можете вызвать его через VB/VBA? И выложить здесь? Тогда останется перевести на X++ ваш код - с чем вам здесь помогут. Или, второй вариант, саму компоненту выложить? А то тема в стиле "угадает ли AndyD, что кушает ваш зверь?" не дала быстрого результата

[doo]

c dll'ками шёл пример. вот шмат макроса из экселевского примера:

Dim Cpt As Object

Private Sub LinkTestMacros()
    'Проверка связи
    Dim CptModel As Variant

    le = Cpt.LinkTest(CptModel)
    If (le <> 0) Then
        ActiveSheet.Cells(11, 7) = "Ошибка"
        ActiveSheet.Cells(12, 7) = Str(le)
        Exit Sub
    Else
        ActiveSheet.Cells(11, 7) = "CPT"
        ActiveSheet.Cells(12, 7) = CStr(CptModel)
    End If
End Sub

[AndyD]

Еще один вариант

    ComVariant  var = new ComVariant(ComVariantInOut::out, ComVariantType::VT_Variant);
    ComVariant  var1 = new ComVariant(ComVariantInOut::out, ComVariantType::VT_BSTR);
    ;
...
    var.variant(var1);
    res = com.LinkTest(var);
    data = var1.bStr();
    info(data);

2 fomenka

[doo]

алилуйа...

не знаю, как выразить Вам свою благодарность )

[AndyD]

Если кому интересно, прототип функции IDL выглядит примерно так

    HRESULT _stdcall LinkTest([out] VARIANT * vfCptModel, [out, retval] int * Ret );

Вся фишка здесь в типе параметра VARIANT *, т.е. необходимо передавать ссылку на вариантный тип
Если бы использовалась просто строка

    HRESULT _stdcall LinkTest([out] BSTR * vfCptModel, [out, retval] int * Ret );

, то можно было бы просто передавать в вызов функции переменную var1 из предыдущего примера

    ComVariant  var1 = new ComVariant(ComVariantInOut::out, ComVariantType::VT_BSTR);
    ;
...
    res = com.LinkTest(var1);
    data = var1.bStr();
    info(data);

[Dimonishe]

сейчас вот тоже страдаю с этим же самым COM объектом. Спасибо большое. Сэкономили кучу времени и нервов. Потому как linkTest у меня тоже не работал.

Только вот теперь другая проблема.. Пытаемся добавить запись. Описание функции из VBA

Function AddRecord(nTsdFieldCount As Integer, Field1, Field2, Field3, Field4, Field5, Field6, Field7, Field8) As Integer

есстественно вот это не работает

com.AddRecord(3,"123","1","0")

Метод 'AddRecord' в COM-объекте класса 'ScCt.Cpt' возвратил код ошибки 0x80020005 (DISP_E_TYPEMISMATCH), который означает: Один или большее количество аргументов не мог быть преобразовано.


похоже придется опять что-то шаманить с variantom.

навскидку

    ComVariant  var2 = new ComVariant(ComVariantInOut::In, ComVariantType::VT_Variant);
    ComVariant  var3 = new ComVariant(ComVariantInOut::In, ComVariantType::VT_INT);

    var3.int(3);
    var2.variant(var3);
    Cpt.AddRecord(var2,"1","0");

не прошло...


теперь вот думаю как получить IDL прототипа? а?

[Lucky13]

Откройте Ваш ocx файл утилитой OleView из MS Visual Studio, там все будет написано