склонение ФИО и использование dll библиотеки

[NetBus]

Возникла задача сделать склонение по падежам ФИО. После поиска по сети был найден следующий ресурс — тут. dll скачал, установил написал следующий код

PHP код:

static void Job78(Args _args)
{
    str           _text;

    DLL           _DLL;
    DLLFunction   _dllFunction;
;
    _DLL = new DLL('padeg.dll');

    if(!_DLL)
        throw error("Ошибка загрузки библиотеки.");

    _dllFunction = new DLLFunction(_DLL,'GetFIOPadegFS');

    _dllFunction.returns(ExtTypes::String);
    _dllFunction.arg(ExtTypes::String,
                     ExtTypes::String,
                     ExtTypes::String,
                     ExtTypes::DWORD,
                     ExtTypes::String,
                     ExtTypes::DWORD);

    if(!_dllFunction)
        throw error(strFmt("Функция %1 не обнаружена", 'GetFIOPadegAS'));

    _dllFunction.call("Иванов", "Иван", "Иванович", 5, _text, 200) ;

    print _text;
    pause;
} 


в итоге имеем при запуске ошибку, — "Функция "GetFIOPadegFS" в библиотеке DLL "padeg.dll" повлекла возникновение исключительной ситуации."
Как исправить? Axapta 3.0 sp 5 fp 1

[Eldar9x]

предпоследний параметр - наверняка указатель (Pointer)

[belugin]

1. Можно через COM
2. Порадовало "function GetSex"

[NetBus]

переписал вот так, в ответ — пустота

static void padegDll(Args _args)
{
    str           i;
    str           folder;

    DLL           _DLL;
    DLLFunction   _dllFunction;

    Binary        _text;
;
    _text    = new binary(200);
    _text.string(0, folder);

    _DLL = new DLL('padeg.dll');

    if(!_DLL)
        throw error("Ошибка загрузки библиотеки.");

    _dllFunction = new DLLFunction(_DLL,'GetFIOPadegFS');

    _dllFunction.returns(ExtTypes::Pointer);
    _dllFunction.arg(ExtTypes::String,
                     ExtTypes::String,
                     ExtTypes::String,
                     ExtTypes::DWORD,
                     ExtTypes::Pointer,
                     ExtTypes::DWORD);

    if(!_dllFunction)
        throw error(strFmt("Функция %1 не обнаружена", 'GetFIOPadegAS'));

    if(_dllFunction.call("Иванов", "Иван", "Иванович", 5, _text, 200))
    {
        folder =  _text.string(0);
        print folder;
        pause;
    }

}

[Aleksey_M]

NetBus

Цитата:

5.2.3. GetFIOPadegFS
function GetFIOPadegFS(pFIO: PChar; bSex: Boolean; nPadeg: LongInt;
pResult: PChar; var nLen: LongInt):Integer; stdcall;
export;

Помещает в буфер (pResult) размера (nLen) результат склонения фамилии имени и отчества, записанных одной строкой (pFIO), рода (bSex) в заданный падеж (nPadeg). Значение функции — результат выполнения операции преобразования.

Функция выполняет преобразование ФИО, заданного одной строкой и требует явного указания рода. Порядок следования составляющих ФИО в строке параметра — фамилия, имя, отчество. Эта функция, как и GetFIOPadeg, тоже допускает использование инициалов и может выполнять преобразование имен типа китайских. Для корректной работы функции необходимо наличие трех компонент ФИО (имена китайского типа допускается задавать двумя словами). В ряде случаев правильно обрабатываются ФИО, записанные в формате "Фамилия Имя [Имя]".

Я X++ не знаю, но что то мне подсказывает, что несколько неправильно вызывается функция в части аргументов
ЗЫ. PChar в дельфях это указатель.

[belugin]

а почему в описании начинается с одного pChar'а, а в X++ целых 3?

//GetFIOPadegFS(
   _dllFunction.arg(
//pFIO: PChar; 
ExtTypes::String,
// убираем                    ExtTypes::String,
// убираем                    ExtTypes::String,
// bSex: Boolean; 
                     ExtTypes::DWORD,
// pResult: PChar; 
                     ExtTypes::Pointer,
// var nLen: LongInt):  --- тут тоже поинтер (ключевое слово VAR)
                     ExtTypes::Pointer)

[Eldar9x]

потому-что вызывается функция 'GetFIOPadegAS', там все в порядке

[Ed1k]

В итоге вот так работает

Binary text = new Binary(200);
Binary len = new Binary(4);
;

dllFunction = new DLLFunction(DLL, 'GetFIOPadegAS');
dllFunction.returns(ExtTypes::DWord);
dllFunction.arg(ExtTypes::String,
                ExtTypes::String,
                ExtTypes::String,
                ExtTypes::DWord,
                ExtTypes::Pointer,
                ExtTypes::Pointer);

len.dWord(0, 200);
dllFunction.call("Иванов", "Иван", "Иванович", 5, text, len);
info(text.string(0));

[Russland]

Потому что NetBus юзает
//function GetFIOPadegAS(pLastName, pFirstName, pMiddleName: PChar;
// nPadeg: LongInt; pResult: PChar;
// var nLen: LongInt): Integer; stdcall; export;

[Russland]

Всех запутал
GetFIOPadegAS GetFIOPadegFS....

[NetBus]

Прошу прощения функция GetFIOPadegAS.

[NetBus]

Всем спасибо. Разобрался.