Как правильно обернуть в ComVariant метод getWorkSheets() класса ComExcelDocument_RU

[at5454]

Здравствуйте.
Подскажите пожалуйста как правильно обернуть в ComVariant
стандартный метод getWorkSheets()



private COM getWorkSheets()
{
if (!comWorkSheets && m_comDocument)
{
try
{
comWorkSheets = m_comDocument.worksheets();
}

catch (Exception::Error)
{
throw error("@GEE6043");
}
}

return comWorkSheets;
}

[AndyD]

COMVariant::createFromCOM() не подходит?

[at5454]

нет не подходит. пишет что не то формат

[AndyD]

Вы бы код привели, который ошибку генерирует

[at5454]

просто меняю строчку
comWorkSheets = m_comDocument.worksheets();
на
comWorkSheets = COMVariant::createFromCOM(m_comDocument.worksheets());
перепробовал все COMVariant::createFrom...
Тут явно надо как то иначе)
Все время пишет "Типы операнда не совместимы с оператором."

[AndyD]

Вы тип comWorkSheets не меняли?
Иначе, получается, что вы в переменную типа COM пытаетесь записать переменную типа COMVariant

[at5454]

Сделал так.Но не аукнется ли это в другом месте?
private COMVariant getWorkSheets()
{
Comvariant f;
if (!comWorkSheets && m_comDocument)
{
try
{
f=COMVariant::createFromCOM(m_comDocument.worksheets());
}
catch (Exception::Error)
{
throw error("@GEE6043");
}
}
return f;
}

[AndyD]

Конечно, аукнется)

Вы бы написали, чего именно этим хотите добиться
А вообще, правильнее было бы добавить свой метод, а не ломать существующий

[at5454]

Все это я делаю чтоб избавиться от знаменитой ошибки работы класса ComExcelDocument_RU на терминалах. как то раз поправил метод getworkrsheet :

COM getWorkSheet(anytype _workSheetID)
{
COM comRet;

Comvariant f;
;
if (m_comDocument)
{
try
{
this.getWorkSheets();

if (typeof(_workSheetID) == Types::Class && classidget(_workSheetID) == classnum(COMVariant))
{
f = _workSheetID;
comRet = comWorkSheets.item(f);
}
else
{
comRet = comWorkSheets.item(_workSheetID);
}

}

catch (Exception::Error)
{
throw error("@GEE6043");
}
}

return comRet;
}


Прошло время и сейчас уже ругается на getWorkSheets
[IMG][/IMG]

[AndyD]

Замена на COMVariant ничем эту ошибку не исправит

Смотрите в сторону COMDispFunction

[Владимир Максимов]

Вы бы сделали хотя бы поиск по данному форуму по ключевому слову "ComDispFunction". Есть масса примеров его использования.

В данном конкретном случае решение будет выглядеть так:

Сначала коллекция листов (рабочая книга. Файл Excel)

// Метод getWorkSheets()
private COM getWorkSheets()
{
    ComVariant  varRet;
    ComDispFunction funcGet;
    ;

    if (!comWorkSheets && m_comDocument)
    {
        try
        {
            /*
            comWorkSheets = m_comDocument.worksheets();
            */
            funcGet = new ComDispFunction(m_comDocument, "worksheets", COMDispContext::PropertyGet);
            varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_DISPATCH);
            funcGet.call(varRet);
            comWorkSheets = COM::createFromInterface(varRet.iDispatch());
        }

        catch (Exception::Error)
        {
            throw error("@GEE6043");
        }
    }

    return comWorkSheets;
}

Теперь собственно один лист

private COM getWorkSheet(anytype _workSheetID)
{
    COM comRet;
    ComVariant  varRet;
    ComDispFunction funcGet;
    COMVariant varArgStr;
    COMVariant varArgInt;
    ;

    if (m_comDocument)
    {
        try
        {
            this.getWorkSheets();
            /*
            comRet = comWorkSheets.item(_workSheetID);
            */
            funcGet = new ComDispFunction(comWorkSheets, "item", COMDispContext::PropertyGet);
            varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_DISPATCH);

            switch (typeOf(_workSheetID))
            {
            case types::String :
                        varArgStr = new COMVariant(COMVariantInOut::In, COMVariantType::VT_BSTR);
                        varArgStr.bStr(_workSheetID);
                        funcGet.call(varArgStr, varRet);
                        break;
        
            case types::Integer :
                        varArgInt = new COMVariant(COMVariantInOut::In, COMVariantType::VT_INT);
                        varArgInt.int(_workSheetID);
                        funcGet.call(varArgInt, varRet);
                        break;

            default :
                        throw error('Не корректный тип параметра');
                        break;
            }   // switch (typeOf(_workSheetID))
    
            comRet = COM::createFromInterface(varRet.iDispatch());

        }

        catch (Exception::Error)
        {
            throw error("@GEE6043");
        }
    }

    return comRet;
}

[AlGol]

По такому принципу пытаюсь переделать форматирование шрифта в ячейке, который был написан так:

void bold(MSOfficeBookMark_RU _bookMark, int _workSheet = 1)
{
    Com     MultiRange;
    Com     ComApplication;
    Com     Font;
    ;

    if (m_comDocument)
    {
        comApplication = m_comDocument.application();
        if (comApplication)
        {
            MultiRange = this.findRange(_bookMark, _workSheet);
            Font = MultiRange.Font();
            Font.Bold(1);
        }
    }
}

И не получается никак подобрать замену Font.Bold(1);

При написании такой конструкции

            funcGet = new ComDispFunction(Font, "Bold", COMDispContext::PropertyGet);
            varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_DISPATCH);
            varArgInt = new COMVariant(COMVariantInOut::In, COMVariantType::VT_INT);
            varArgInt.int(1);
            funcGet.call(varArgInt);
            //--------------
            //Font.Bold(1);

Получаю ошибку
--------------------
Метод "Bold" в COM-объекте класса "Font" возвратил код ошибки 0x8002000E (DISP_E_BADPARAMCOUNT), который означает: Число аргументов, указанных в вызове функции, отличается от числа аргументов в объявлении метода.
--------------------
При вызове без аргументов funcGet.call(); работает отлично.
Каким образом сделать шрифт болдом?

[AndyD]

ProprtyPut надо использовать

[AlGol]

Спасибо!
Работает.

    ComDispFunction funcGet, funcPut;
    COMVariant      varArgInt, varArgBool;
    ;
...
            funcPut = new ComDispFunction(Font, "Bold", COMDispContext::PropertyPut);
            varArgBool = new COMVariant(COMVariantInOut::In, COMVariantType::VT_BOOL);
            varArgBool.boolean(true);
            funcPut.call(varArgBool);

[ena_ax]

Цитата:

Сообщение от Владимир Максимов

Вы бы сделали хотя бы поиск по данному форуму по ключевому слову "ComDispFunction". Есть масса примеров его использования.

В данном конкретном случае решение будет выглядеть так:

Сначала коллекция листов (рабочая книга. Файл Excel)

// Метод getWorkSheets()
private COM getWorkSheets()
{
    ComVariant  varRet;
    ComDispFunction funcGet;
    ;

    if (!comWorkSheets && m_comDocument)
    {
        try
        {
            /*
            comWorkSheets = m_comDocument.worksheets();
            */
            funcGet = new ComDispFunction(m_comDocument, "worksheets", COMDispContext::PropertyGet);
            varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_DISPATCH);
            funcGet.call(varRet);
            comWorkSheets = COM::createFromInterface(varRet.iDispatch());
        }

        catch (Exception::Error)
        {
            throw error("@GEE6043");
        }
    }

    return comWorkSheets;
}

Теперь собственно один лист

private COM getWorkSheet(anytype _workSheetID)
{
    COM comRet;
    ComVariant  varRet;
    ComDispFunction funcGet;
    COMVariant varArgStr;
    COMVariant varArgInt;
    ;

    if (m_comDocument)
    {
        try
        {
            this.getWorkSheets();
            /*
            comRet = comWorkSheets.item(_workSheetID);
            */
            funcGet = new ComDispFunction(comWorkSheets, "item", COMDispContext::PropertyGet);
            varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_DISPATCH);

            switch (typeOf(_workSheetID))
            {
            case types::String :
                        varArgStr = new COMVariant(COMVariantInOut::In, COMVariantType::VT_BSTR);
                        varArgStr.bStr(_workSheetID);
                        funcGet.call(varArgStr, varRet);
                        break;
        
            case types::Integer :
                        varArgInt = new COMVariant(COMVariantInOut::In, COMVariantType::VT_INT);
                        varArgInt.int(_workSheetID);
                        funcGet.call(varArgInt, varRet);
                        break;

            default :
                        throw error('Не корректный тип параметра');
                        break;
            }   // switch (typeOf(_workSheetID))
    
            comRet = COM::createFromInterface(varRet.iDispatch());

        }

        catch (Exception::Error)
        {
            throw error("@GEE6043");
        }
    }

    return comRet;
}

Коллеги, данный изменение методов решило проблему timeout при работе отчетов модуля "Генератор Российских отчетов". см мою ссылку по теме

Axapta 2009. str2IntOk

Есть два вопроса:
1. На сколько это решение является универсальным? Какие могут быть исключения?
2. Почему данный подход не реализован в стандартном функционале?

[Maximin]

Оно не решило, на самом деле.
Оно уменьшило его вероятность. Все равно - на тысячах строк будет иногда вылезать. Еще выжать вероятности поможет - написать в catch пару раз retry при COM ошибке после небольшой задержки миллисекунд в 100-300..
Тема уже исхожена эта вдоль и поперек. Радикально решает - доступ через .NET - искать здесь же на форуме.

[ena_ax]

Цитата:

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

Оно не решило, на самом деле.
Оно уменьшило его вероятность. Все равно - на тысячах строк будет иногда вылезать. Еще выжать вероятности поможет - написать в catch пару раз retry при COM ошибке после небольшой задержки миллисекунд в 100-300..
Тема уже исхожена эта вдоль и поперек. Радикально решает - доступ через .NET - искать здесь же на форуме.

понятно, спасибо.

В новой версии я так понимаю уже через NET реализовано?