Help! DLL описание функции в аксапте - DAX: Программирование

ivas · 27.04.2006, 12:35

Доброго всем времени суток
есть DLL с заголовком на С. Требуется произвести вызов из аксапты. Проблема в том, что не работает.
На С прототип выглядит так:

Код:

 
ISC_STATUS  ISC_EXPORT isc_attach_database (ISC_STATUS ISC_FAR *,
                        short,
                        char ISC_FAR *,
                        isc_db_handle ISC_FAR *,
                        short,
                        char ISC_FAR *);

Он проинтерпритирован так:

Код:

   
isc_attach_database = new DllFunction(GDS32, "isc_attach_database");
isc_attach_database.returns(ExtTypes::DWord);
isc_attach_database.arg(ExtTypes::Pointer,
                            ExtTypes::Word,
                            ExtTypes::String,
                            ExtTypes::Pointer,
                            ExtTypes::Word,
                            ExtTypes::String);

вызов на С:

Код:

 
isc_db_handle DB;
ISC_STATUS  status_vector[20];
short   dpb_buf_len=20;
char dpb_buf[]={
    isc_dpb_version1,  //версия буфера 
    isc_dpb_user_name,  //начинается кластер параметра имя пользователя
    6,     //длина этого параметра 6 байт
    'S','Y','S','D','B','A',                //строка имени пользователя
    isc_dpb_password,  //начинается кластер пароля пользователя
    9,     //длина его 9 байт
    'm','a','s','t','e','r','k','e','y' //сам пароль
    };
 
isc_attach_database(status_vector, strlen(str), str, &DB,dpb_buf_len,dpb_buf));

Запускается, но не работает в аксапте. выдает код, означающий Invalid DB handle. Другие ф-ии из этой же DLL работают нормально. Под С все работает.... %(

Подскажите, плз, в чем грабли...

**mazzy** · 27.04.2006, 12:58

Цитата:

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

Код:

isc_attach_database(status_vector, strlen(str), str, &DB,dpb_buf_len,dpb_buf));

Во-первых, я не знаю что означает конструкция &DB в Аксапте.
В Аксапте, как и в Java нет операции взятия адреса.
Это принципиальное отличие джавы от C.

Во-вторых, чтобы передать область памяти нельзя использовать аксаптовский массив.
Массив в Аксапте намного более сложная штука, чем кажется.
Читайте доку.
Чтобы передавать параметры наружу лучше использовать SafeArray.
Он же используется для работы с Variant.
Опять же поищите доку и примеры использования в семействе классов tutorial*

ivas · 27.04.2006, 13:10

Цитата:

Цитата:
Сообщение от ivas
Код:

isc_attach_database(status_vector, strlen(str), str, &DB,dpb_buf_len,dpb_buf));

Во-первых, я не знаю что означает конструкция &DB в Аксапте.

это код на С ...

в аксапте инициализируем как DB = new Binary(4);

ivas · 27.04.2006, 13:18

в аксапте вызываем так:

Код:

 
isc_attach_database.call(status, strlen(DB_name), DB_name, DB, 20, dpb))

где:

Код:

 
  Binary status       = new Binary(80);
  Binary dpb          = new Binary(20);

  dpb.byte(0, #isc_dpb_version1);
  dpb.byte(1, #isc_dpb_user_name);
  dpb.byte(2, 6);
  dpb.string(3, 'SYSDBA');
  dpb.byte(9, #isc_dpb_password);
  dpb.byte(10, 9);
  dpb.string(11, 'MASTERKEY');

к стати DLL осуществляет доступ п бд InterBase...

**mazzy** · 27.04.2006, 13:29

Цитата:

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

это код на С ...

в аксапте инициализируем как DB = new Binary(4);

Понял. Извините.
Тогда непонятно.

Посмотрите, например, классы
WinAPI
WinAVI
ChartFX
BarCode и его потомков
HeapLog
чтобы увидеть примеры использования.

ivas · 27.04.2006, 13:48

в общем стоит задача подключиться к бд InterBase и при этом получить курсор который можно апдейтить
стандартное подключение с помощью odbc драйвера работает, но при попытке апдейта курсора система говорит

Цитата:

Метод 'Update' в COM-объекте класса '_Recordset' возвратил код ошибки 0x800A0CB3 (<неизвестно>), который означает:
Текущий объект Recordset не поддерживает обновление. Это связано с ограничением поставщика или с выбранным типом блокировки.

однако есть класс: \Classes\DSORecordset
в котором определена масса методов работы с курсором и подключение можно выполнить через ODBC драйвер.
Может кто подскажет как использовать эти классы с префиксом DSO их структура оч. похожа на CCADOConnection, CCADORecordset

Recoilme · 27.04.2006, 14:44

Какой драйвер? Gemini ?

ivas · 27.04.2006, 15:52

драйвер firebird
и gemini тоже есть
оба работают...
вопрос в апдейте указателя

Recoilme · 27.04.2006, 15:56

PHP код:


			
static void ip_vkul_testado(Args _args)

{

    #CCADO

    CCADOConnection cn = new CCADOConnection() ;

    CCADORecordset          adoRecordset  = new CCADORecordset();

    InventTable             inventTable;

    DKL_InventTable         dklinventTable;

    DKL_BaseRetailPrices    baseprice;

    DKL_InventClassVarTable invclass;

    VendTable               vendor;

    CustTable               cust;

    DKL_BrandTable          brand;

    InventLocation          sklad;

    str     descr;

    int     KATEGORIAKOD,GRUPPAKOD,PODGRUPPAKOD,countrec,recCnt,skltype;

    real    maksskidka,koefret;

    int     bool,bool2,i,vendorid;

    Map     invClassId = new map(Types::String, Types::Integer);

    SysOperationProgress progr  = new SysOperationProgress();

    ;

    cn = new CCADOConnection();

    select count(recid) from invclass;

    select count(recid) from vendor;

    select count(recid) from cust;

    select count(recid) from brand;

    select count(recid) from inventTable;

    select count(recid) from dklinventTable;

    select count(recid) from baseprice;

    recCnt = invclass.RecId + vendor.RecId + cust.RecId + brand.RecId + inventTable.RecId + dklinventTable.RecId + baseprice.RecId;

    cn.open("Provider=MSDASQL.1;Persist Security Info=False;User ID=sysdba;Data Source=iptmp");

    /*

    progr.setTotal(recCnt);

    progr.setCaption('?????????????');



    //?????????????

    while select invclass

    {

        progr.incCount();

        invClassId.insert(invClass.InventClassVarId,invClass.RecId);

        descr = strdel(invclass.Description,55,200);

        maksskidka = invclass.DiscLimit / 100;

        koefret = invclass.RetailPricePctKoeff / 100;

        if (invclass.LMA_LevelNum == 1)

        {

            adoRecordset  = new CCADORecordset();

            adoRecordset.open(strfmt("select id from z_kategoria where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);

            if (adoRecordset.EOF())

                cn.execute(strfmt("INSERT INTO Z_KATEGORIA (KATEGORIA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            else

                cn.execute(strfmt("UPDATE Z_KATEGORIA SET KATEGORIA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            adoRecordset.close();

        }



        if (invclass.LMA_LevelNum == 2)

        {

            adoRecordset  = new CCADORecordset();

            adoRecordset.open(strfmt("select id from Z_GRUPPA where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);

            if (adoRecordset.EOF())

                cn.execute(strfmt("INSERT INTO Z_GRUPPA (GRUPPA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            else

                cn.execute(strfmt("UPDATE Z_GRUPPA SET GRUPPA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            adoRecordset.close();

        }



        if (invclass.LMA_LevelNum == 3)

        {

            adoRecordset  = new CCADORecordset();

            adoRecordset.open(strfmt("select id from Z_PODGRUPPA where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);

            if (adoRecordset.EOF())

                cn.execute(strfmt("INSERT INTO Z_PODGRUPPA (PODGRUPPA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            else

                cn.execute(strfmt("UPDATE Z_PODGRUPPA SET PODGRUPPA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            adoRecordset.close();

        }



    }



    progr.setCaption('??????????');

    //??????????

    while select vendor

Recoilme · 27.04.2006, 15:57

Это через джемини и CCAdo

PHP код:


			
    progr.setTotal(recCnt);

    progr.setCaption('?????????????');



    //?????????????

    while select invclass

    {

        progr.incCount();

        invClassId.insert(invClass.InventClassVarId,invClass.RecId);

        descr = strdel(invclass.Description,55,200);

        maksskidka = invclass.DiscLimit / 100;

        koefret = invclass.RetailPricePctKoeff / 100;

        if (invclass.LMA_LevelNum == 1)

        {

            adoRecordset  = new CCADORecordset();

            adoRecordset.open(strfmt("select id from z_kategoria where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);

            if (adoRecordset.EOF())

                cn.execute(strfmt("INSERT INTO Z_KATEGORIA (KATEGORIA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            else

                cn.execute(strfmt("UPDATE Z_KATEGORIA SET KATEGORIA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            adoRecordset.close();

        }



        if (invclass.LMA_LevelNum == 2)

        {

            adoRecordset  = new CCADORecordset();

            adoRecordset.open(strfmt("select id from Z_GRUPPA where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);

            if (adoRecordset.EOF())

                cn.execute(strfmt("INSERT INTO Z_GRUPPA (GRUPPA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            else

                cn.execute(strfmt("UPDATE Z_GRUPPA SET GRUPPA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            adoRecordset.close();

        }



        if (invclass.LMA_LevelNum == 3)

        {

            adoRecordset  = new CCADORecordset();

            adoRecordset.open(strfmt("select id from Z_PODGRUPPA where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);

            if (adoRecordset.EOF())

                cn.execute(strfmt("INSERT INTO Z_PODGRUPPA (PODGRUPPA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            else

                cn.execute(strfmt("UPDATE Z_PODGRUPPA SET PODGRUPPA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));

            adoRecordset.close();

        }



    }

Lucky13 · 27.04.2006, 16:02

А почему у Вас последний параметр в C объявлен как char*, в Ax ExtTypes::string, а передается Binary(20)? Axpata так не въедет. Нужно либо объявлять как ExtTypes::Pointer, либо передавать как string

ivas · 27.04.2006, 16:15

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

Код:

 
    command.activeConnection(cn);
    command.commandText("select * from goods");
    rs = command.execute();
    while (!rs.eof())
    {
        rs.recordSet().Update(2, "aaaa"); 
        rs.moveNext();
    }

Цитата:

А почему у Вас последний параметр в C объявлен как char*, в Ax ExtTypes::string, а передается Binary(20)? Axpata так не въедет. Нужно либо объявлять как ExtTypes::Pointer, либо передавать как string

согласен баг, это просто от перебора вариантов остатки

сейчас выдает ошибку idc_login тоесть видимо жрет последний параметр но неможет его развернуть
пробовали и как pointer
и как dpb.string(0) (в первом варианте)
не работает...

ivas · 27.04.2006, 16:36

косяк нашли
вот в этой строке:

PHP код:


			
dpb.string(11, 'MASTERKEY');

а нужно было

PHP код:


			
dpb.string(11, 'masterkey');

всем спасибо

Recoilme · 27.04.2006, 16:42

Ты добился обновляемого резалтсета??? Драйвера ж его не поддерживают!, во всяком случае джемини...

ivas · 27.04.2006, 16:57

Мы подключили базу с помощью DLL. %)))
Кстати, почему

Цитата:

Драйвера ж его не поддерживают!, во всяком случае джемини...

?
А как себя ведет FireBird?
И что на счет классов DSO*, в частности DSORecordset? Там же есть поддержка курсора на обновление и т.д..... а оно должно работать с любым ODBC драйвером...

Recoilme · 27.04.2006, 17:05

Дело не в СУБД и не в классах. Сами драйвера не позволяют. Обсуждалось например здесь
Аксапта в качестве клиента для фаербёрда - это прикольно

, туда ей и место

**sukhanchik** · 27.04.2006, 19:15

Есть рабочий примерчик.... Но правда как было верно подмечено на sql.ru - работает на Access. Не проверял на других БД.

X++:

// Экспорт из Axapta через ADO в другую базу данных заданной таблицы
static void tutorial_WriteADO(Args _args)
{
    CCADOConnection cn      = new CCADOConnection();
    CCADOCommand    command = new CCADOCommand();
    CCADORecordset  rcs;
    Str connectionString;
    str            tableName = "VENDTABLE";
    FilePath       filePath  = "D:\\zz.mdb";
    anytype        newValue;
    #CCADO
    ;
    connectionString =  'Provider=Microsoft.Jet.OLEDB.4.0;';
    connectionString += 'Data Source=' + filePath + ';';
    connectionString += 'Mode=ReadWrite;';
    connectionString += 'Persist Security Info=False';

    cn.open(connectionString);

    rcs = new CCADORecordset();
    rcs.open(tableName, cn, #adOpenKeyset, #adLockOptimistic, #adCmdTable);
    rcs.addNew();
    for (i = 1; i <= rcs.fields().count(); i++)
    {
        rcs.fields().itemIdx(i - 1).setValue(newValue);
    }
    rcs.update(); 
}

Для работы этого примера нужно добавить в класс CCADORecordset
методы:

X++:

void addNew()
{
    recordSet.AddNew();
}
void update()
{
    recordSet.update();
}

А в класс CCADOField - метод

X++:

// Установка значения (real, date, int, str)
void setValue(anytype _value)
{
    switch (typeof(_value))
    {
        case Types::Date:
            field.value(COMVariant::createFromDate(_value));
            break;
        case Types::Enum, Types::Integer:
            field.value(COMVariant::createFromInt(_value));
            break;
        case Types::Real:
            field.value(COMVariant::createFromReal(_value));
            break;
        case Types::RString, Types::String, Types::VarString:
            field.value(COMVariant::createFromStr(_value));
            break;
        default:
            field.value(COMVariant::createNoValue());
    }
}

Хочу также отметить тот факт, что в ADO методы AddNew/Edit работают исключительно напрямую с таблицами (вариант SELECT * FROM Таблица не катит).
Поэтому обновляемые рекордсеты не сильно распространены. Гораздо гибче и удобнее SQL - операторы UPDATE, INSERT, DELETE

Похожие темы
Тема	Автор	Раздел	Ответов	Посл. сообщение
Проблема с самописной DLL.	VAlek	DAX: Программирование	18	28.12.2008 10:37
Client Axapta 3.0 SP4 и Linux. Как запустить?	Daiver	DAX: Администрирование	10	28.06.2007 15:59
Вызов экспортируемой функции DLL	Jabberwocky	DAX: Программирование	8	12.09.2006 17:20
при вызове функции из своей DLL, вылетает ошибка	Delfins	DAX: Программирование	9	07.03.2006 19:29
Описание кода в Аксапте	vasiliy	DAX: Прочие вопросы	5	23.03.2005 12:16