Проблема подключения COM объекта - Страница 2 - DAX: Программирование

vikuss2006 · 14.03.2016, 15:39

Никакого закрытия в библиотеке нет, только Login и получение данных, к сожалению

Владимир Максимов · 14.03.2016, 17:30

Цитата:

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

Результат опыта с Эксель
1) запустила только один экземпляр файла, использующего ком библиотеку.

А как именно происходит использование Com в Excel? Это макрос? Можете привести здесь его код?

PS: Кстати, на какой команде в Axapta обращения к COM возникает ошибка?

vikuss2006 · 15.03.2016, 12:27

вот скрипт
Sub test()
' Поправьте эти значения, указав логин, пароль, пароль к секретному ключу и путь к секретному ключу пользователя
Login = Range("Login").Value '"ALGOL1"
pwd1 = Range("Pwd_1").Value '"900"
pwd2 = Range("Pwd_2").Value '"900"
pathToKey = Range("Path").Value '"c:\Keys\ALGOL1_"

Dim o As iFOBSDocIntegrator.DocOperation
Set o = New iFOBSDocIntegrator.DocOperation
If (o Is Nothing) Then
MsgBox "Ошибка! iFOBSDocIntegrator.dll не зарегистрирована в системе."
GoTo Exit1
End If
MsgBox "Проверка параметров Login."
s = o.Login(Login, pwd1, pwd2, pathToKey)
If s <> "" Then
MsgBox "Ошибка! Неправильно определены данные"
GoTo Exit1
End If
MsgBox "Получение списка архивных документов за период"
Call testGetDocInfoList(o)
MsgBox "Получение списка документов, ожидающих первой подписи"
Call testGetDocList(o, DOC_WAIT_SIGN1)
MsgBox "Получение списка документов, ожидающих второй подписи"
Call testGetDocList(o, DOC_WAIT_SIGN2)
MsgBox "Получение списка документов, ожидающих третьей подписи"
Call testGetDocList(o, DOC_WAIT_AUTH)
MsgBox "Получение списка всех введенных документов за период"
Call testGetDocList(o, DOC_ALL_DOCUMENTS)
Exit1:
Set o = Nothing
End Sub

Аксапта вылетает при получении списка через опеределенное время, при очередном запуске job

Владимир Максимов · 15.03.2016, 19:57

Если обернуть вызов в ComDispFunction() не поможет?

X++:

static void test_Com(Args _args)
{
    Com     comApplication;
    str     ret;
    str     s;

    ComDispFunction funcGet;
    COMVariant      varArgStr1;
    COMVariant      varArgStr2;
    COMVariant      varArgStr3;
    COMVariant      varArgStr4;
    ComVariant      varRet;

    ;
    
    try
    {
        comApplication = new COM("iDocIntegrator.DocOperation");
        if(!comApplication)
        {
            info("error");
            return;
        }

        // Вместо прямого вызова, сделать вызов через ComDispFunction
        //ret = comApplication.Login("login", "pass", "pass", "D:\key");

        // Функция
        funcGet = new ComDispFunction(comApplication, "Login", COMDispContext::PropertyGet);

        // Параметры
        varArgStr1 = COMVariant::createFromStr("login");
        varArgStr2 = COMVariant::createFromStr("pass");
        varArgStr3 = COMVariant::createFromStr("pass");
        varArgStr4 = COMVariant::createFromStr("D:\key");
 
        // Возвращаемое значение
        varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_BSTR);

        // Выполнение
        funcGet.call(varArgStr1, varArgStr2, varArgStr3, varArgStr4, varRet);
 
        // Результат выполнения
        ret = varRet.bStr();
 
        
        if(!ret)
        {
            // Вместо прямого вызова, сделать вызов через ComDispFunction
            //s = comApplication.GetDocInfoList("20160218", "20160218");

            // Функция
            funcGet = new ComDispFunction(comApplication, "GetDocInfoList", COMDispContext::PropertyGet);

            // Параметры
            varArgStr1 = COMVariant::createFromStr("20160218");
            varArgStr2 = COMVariant::createFromStr("20160218");
            
            // Возвращаемое значение
            varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_BSTR);

            // Выполнение
            funcGet.call(varArgStr1, varArgStr2, varRet);
            
            // Результат выполнения
            s = varRet.bStr();
            info(s);
        }
        else
        {
            info(ret);
        }
        comApplication = null;
    }
    catch(Exception::Error)
    {
        comApplication = null;
        throw error("Обработка отменена!");
    }

    comApplication = null;
    
    info('end');
}

terraByteG · 16.03.2016, 09:45

Цитата:

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

вот скрипт
Sub test()
' Поправьте эти значения, указав логин, пароль, пароль к секретному ключу и путь к секретному ключу пользователя

X++:

bla-bla-bla
Dim o As iFOBSDocIntegrator.DocOperation
bla-bla-bla
s = o.Login(Login, pwd1, pwd2, pathToKey)
--

Это скрипт от разработчиков? Теперь понятно, почему в библиотеке не предусмотрен метод завершения.

*добавлено:
Как отработает вот такой скрипт?

X++:

Sub test()
' Поправьте эти значения, указав логин, пароль, пароль к секретному ключу и путь к секретному ключу пользователя
Login = Range("Login").Value '"ALGOL1"
pwd1 = Range("Pwd_1").Value '"900"
pwd2 = Range("Pwd_2").Value '"900"
pathToKey = Range("Path").Value '"c:\Keys\ALGOL1_"

Dim o As iFOBSDocIntegrator.DocOperation
Set o = New iFOBSDocIntegrator.DocOperation
If (o Is Nothing) Then
MsgBox "Ошибка! iFOBSDocIntegrator.dll не зарегистрирована в системе."
GoTo Exit1
End If
MsgBox "Проверка параметров Login."
s = o.Login(Login, pwd1, pwd2, pathToKey)
If s <> "" Then
MsgBox "Ошибка! Неправильно определены данные"
GoTo Exit1
End If
MsgBox "Получение списка архивных документов за период"
Call testGetDocInfoList(o)
Exit1:
Set o = Nothing
End Sub

И меня одного смущает тот момент, что разработчики проверяют работоспособность скриптом, когда им говорят о COM вызове? Что включено в метод getDocInfoList и куда уходят параметры при вызове метода ТС?
Все это оставляет ощущения быдлоразработчиков (отмахнулись, мол скрипт наш работает, а остальное Ваши проблемы)...

vikuss2006 · 16.03.2016, 09:59

Цитата:

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

Это скрипт от разработчиков? Теперь понятно, почему в библиотеке не предусмотрен метод завершения.

Мне не понятно, можете пожалуйста объяснить

terraByteG · 16.03.2016, 10:18

Цитата:

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

Мне не понятно, можете пожалуйста объяснить

Имя переменных. Конечно это придирки, но отдавать это клиентам, не желая потратить 2 секунды и придерживаться правил хорошего тона, чтобы не стыдно было. А то сделали на отъе***

Это мое ИМХО. Предположу, что даже не задумывались, для возможности удобного и безошибочного использования клиентами их библиотеки, положить в нее не только вход, но и выход. На все ответят скриптом...

Когда писал свою выгрузку из Аксапты в Эксель, вторым что я сделал после инициализации документа - метод CloseDocument().

vikuss2006 · 17.03.2016, 12:56

Цитата:

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

Если обернуть вызов в ComDispFunction() не поможет?

X++:

static void test_Com(Args _args)
{
    Com     comApplication;
    str     ret;
    str     s;

    ComDispFunction funcGet;
    COMVariant      varArgStr1;
    COMVariant      varArgStr2;
    COMVariant      varArgStr3;
    COMVariant      varArgStr4;
    ComVariant      varRet;

    ;
    
    try
    {
        comApplication = new COM("iDocIntegrator.DocOperation");
        if(!comApplication)
        {
            info("error");
            return;
        }

        // Вместо прямого вызова, сделать вызов через ComDispFunction
        //ret = comApplication.Login("login", "pass", "pass", "D:\key");

        // Функция
        funcGet = new ComDispFunction(comApplication, "Login", COMDispContext::PropertyGet);

        // Параметры
        varArgStr1 = COMVariant::createFromStr("login");
        varArgStr2 = COMVariant::createFromStr("pass");
        varArgStr3 = COMVariant::createFromStr("pass");
        varArgStr4 = COMVariant::createFromStr("D:\key");
 
        // Возвращаемое значение
        varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_BSTR);

        // Выполнение
        funcGet.call(varArgStr1, varArgStr2, varArgStr3, varArgStr4, varRet);
 
        // Результат выполнения
        ret = varRet.bStr();
 
        
        if(!ret)
        {
            // Вместо прямого вызова, сделать вызов через ComDispFunction
            //s = comApplication.GetDocInfoList("20160218", "20160218");

            // Функция
            funcGet = new ComDispFunction(comApplication, "GetDocInfoList", COMDispContext::PropertyGet);

            // Параметры
            varArgStr1 = COMVariant::createFromStr("20160218");
            varArgStr2 = COMVariant::createFromStr("20160218");
            
            // Возвращаемое значение
            varRet  = new COMVariant(COMVariantInOut::OUT_RETVAL, COMVariantType::VT_BSTR);

            // Выполнение
            funcGet.call(varArgStr1, varArgStr2, varRet);
            
            // Результат выполнения
            s = varRet.bStr();
            info(s);
        }
        else
        {
            info(ret);
        }
        comApplication = null;
    }
    catch(Exception::Error)
    {
        comApplication = null;
        throw error("Обработка отменена!");
    }

    comApplication = null;
    
    info('end');
}

Опять ошибка:
<?xml version="1.0" encoding="windows-1251"?><ERROR>Access violation at address 1105C5CF in module 'libeay32.dll'. Write of address 0889E338</ERROR>

Владимир Максимов · 18.03.2016, 16:04

Цитата:

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

Опять ошибка:
<?xml version="1.0" encoding="windows-1251"?><ERROR>Access violation at address 1105C5CF in module 'libeay32.dll'. Write of address 0889E338</ERROR>

А Вы не могли бы на время тестирования отключить антивирус, если он у Вас есть? Может быть, он блокирует библиотеку?

И еще, думаю, не принципиально, но все-таки, первой командой в примере Excel идет выборка списка документов.

X++:

MsgBox "Получение списка архивных документов за период"
Call testGetDocInfoList(o)

И только потом конкретный документ. Может, Вам сделать то же самое?

X++:

XML xml;

(...)

xml = comApplication.GetDocInfoList()
info(xml)

PS: А Вы не узнавали у разработчиков, почему их библиотека не выгружается из памяти при работе с Excel? Вроде бы прямое обнуление идет

Set o = Nothing

vikuss2006 · 21.03.2016, 10:43

Цитата:

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

А Вы не могли бы на время тестирования отключить антивирус, если он у Вас есть? Может быть, он блокирует библиотеку?

И еще, думаю, не принципиально, но все-таки, первой командой в примере Excel идет выборка списка документов.

X++:

MsgBox "Получение списка архивных документов за период"
Call testGetDocInfoList(o)

И только потом конкретный документ. Может, Вам сделать то же самое?

X++:

XML xml;

(...)

xml = comApplication.GetDocInfoList()
info(xml)

PS: А Вы не узнавали у разработчиков, почему их библиотека не выгружается из памяти при работе с Excel? Вроде бы прямое обнуление идет

Set o = Nothing

Попробовала отключать антивирус, и получать список документов после Login, но все равно выскакивает та же ошибка:
Метод 'GetDocInfoList' в COM-объекте класса '{A6103CA4-D33A-48A5-BB08-7893A12BE5D8}' возвратил код ошибки 0x8000FFFF (<неизвестно>), который означает: Вы не вошли в систему!.

vikuss2006 · 21.03.2016, 10:48

И еще, у разработчиков я узнавала, почему библиотека выгружается из памяти, ничего не ответили, единственное, что сказали, и то не разработчики,а техническая поддержка банка, что они не знают, как будет вести себя библиотека при одновременных запусках.

vikuss2006 · 21.03.2016, 17:58

может стоит попробовать Thread t = new Thread();

vikuss2006 · 22.03.2016, 15:45

Попробовала создать новый поток, чтобы выполнить подключение библиотеки в отдельном потоке,
t = new Thread();
//t.removeOnComplete(true);
t.run(classnum(FCH_ThreadDemo), identifierstr(run));
Аксапта ругается Ошибка времени выполнения xApplication(Объект), метод initGlobal вызван с неправильными параметрами, хотя я использую учебный пример Аксапты по работе с потоками TutorialThread.

terraByteG · 23.03.2016, 08:39

Так понимаю, что run - не объявлен как статический...

X++:

t = new Thread();
//t.removeOnComplete(true);
t.run(classnum(FCH_ThreadDemo), staticmethodstr(FCH_ThreadDemo, run));

vikuss2006 · 23.03.2016, 08:53

Цитата:

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

Так понимаю, что run - не объявлен как статический...

X++:

t = new Thread();
//t.removeOnComplete(true);
t.run(classnum(FCH_ThreadDemo), staticmethodstr(FCH_ThreadDemo, run));

class FCH_ThreadDemo
{
}
static client void main()
{
Thread t;
;
t = new Thread();
//t.removeOnComplete(true);
t.run(classnum(FCH_ThreadDemo), staticmethodstr(FCH_ThreadDemo, run));

}
static client void run(Thread t)
{
;
//sleep(2000);
info("hello");
}

вызов
FCH_ThreadDemo::main();

S.Kuskov · 23.03.2016, 10:10

По-моему в тройке были какие-то проблемы с использованием infologa в потоке.
Threads

Цитата:

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

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

Попробуйте без интерактивных функций
Вывести сообщение сгенерированное в отдельном потоке (thread) в окно инфо?

terraByteG · 23.03.2016, 10:18

X++:

class FCH_ThreadDemo
{
}

static client void main(Args args)
{
Thread t;
container           con;
    ;
    t = new Thread();
    t.run(classnum(FCH_ThreadDemo), staticmethodstr(FCH_ThreadDemo, run));
    sleep(500);
    info(conPeek(t.getOutputParm(), 1));
    t.removeOnComplete(true);
}

static client void run(Thread t)
{
    t.setOutputParm(['Hello']);
}

terraByteG · 23.03.2016, 10:25

Цитата:

Сообщение от S.Kuskov

По-моему в тройке были какие-то проблемы с использованием infologa в потоке.

В AX 2009 - с этим тоже беда.

vikuss2006 · 23.03.2016, 10:27

Цитата:

Сообщение от S.Kuskov

По-моему в тройке были какие-то проблемы с использованием infologa в потоке.
Threads

Попробуйте без интерактивных функций
Вывести сообщение сгенерированное в отдельном потоке (thread) в окно инфо?

Я работаю в АX3.0, убрала info, делаю просто
static client void run(Thread t)
{
int i = 1;
;
i++;
}
Но самое интересное, что в run() ставлю точку останова, и туда вообще не попадаю.

vikuss2006 · 23.03.2016, 10:36

Цитата:

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

X++:

class FCH_ThreadDemo
{
}

static client void main(Args args)
{
Thread t;
container           con;
    ;
    t = new Thread();
    t.run(classnum(FCH_ThreadDemo), staticmethodstr(FCH_ThreadDemo, run));
    sleep(500);
    info(conPeek(t.getOutputParm(), 1));
    t.removeOnComplete(true);
}

static client void run(Thread t)
{
    t.setOutputParm(['Hello']);
}

Выдало Информация 0

Похожие темы
Тема	Автор	Раздел	Ответов	Посл. сообщение
axmfg: Lean manufacturing: Picking activities and kanban line events	Blog bot	DAX Blogs	0	26.08.2014 21:13
atinkerersnotebook: Using Vendor Requests to Manage On-boarding New Vendors	Blog bot	DAX Blogs	1	22.10.2013 02:24
atinkerersnotebook: Using Service Management to Track Service Orders	Blog bot	DAX Blogs	1	25.08.2013 19:16
atinkerersnotebook: Configuring Lean Manufacturing in Dynamics AX 2012	Blog bot	DAX Blogs	1	12.08.2013 00:15
dynamicsaxtraining: Vendor returns	Blog bot	DAX Blogs	0	11.10.2012 00:11