Показать сообщение отдельно
Старый 23.10.2007, 11:43   #4  
NetBus is offline
NetBus
Участник
 
200 / 85 (3) ++++
Регистрация: 08.07.2005
Адрес: Москва
переписал вот так, в ответ — пустота
X++:
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;
    }

}