Запуск приложения с ожиданием его завершения...

[snp123]

На форуме уже была инфа по ShellExecute. НО !!! Таким образом программу можно запускать только АСИНХРОННО от Аксапты А мне требуеться дождаться завершения внешней программы и ТОЛЬКО после этого продолжить выполнение кода в Аксапте. Вариант типа команды pause после shellexecute неприемлем - выполнение происходить без участия пользователя.
В WinApi (не Аксапта, а MS Win) есть функции CreateProcess и WaitForSingleObject. Вопрос - как с их помощью (в смысле желателен код на X++) запустить внешнее приложение. Или хотя бы ссылку на документацию (по Axapta !!!) где описываеться использование ExtTypes, DLL и тому подобное.

[SnowMan]

int RunWait()
{
COM wsh = new COM("WScript.Shell");
return wsh.Run("calc.exe" , 1, TRUE);
}

также смотри ветку:
Исполнение методов класса на стороне сервера (AOS)?

[snp123]

попробовал, вроде работает.
А задача была следующая - с помощью внешней программы периодически выгружать инфу в DBF и затем обрабатывать, используя данные из Аксапты. Кроме внешней проги ничего не может преобразовать набор исходных данных в DBF.

[raz]

2 snp123

http://www.axforum.info/forums/showt...=8699#post8699

И еще рекомендую посмотреть help по DTS в MS SQL.

[Андре]

Еще есть API функция WaitForSingleObject, предназначенная как раз для таких целей. Но не уверен, что в Аксапте для нее есть обертка. Если нет - придется писать.
Хотя, если вариант SnowMan с Windows Script Host работает - наверное лучше использовать его. Просто есть подозрение, что не на всех ОС это будет работать.

[snp123]

2 raz: проблема не в том, что есть данные в DBF и их нужно закидывать в Axapta.
Проблема в том, что только некоторая оригинальная прога может преобразовать из внутреннего формата данных в нормальный DBF. Кстати, а что я смогу найти в доке по DTS ?

2 андре: использоваться программа конвертации будет только на MS win2000 или MS WinXP.

[raz]

2 snp123

Просто DTS позволяет перегонять данные и запускать разные задачи (в том числе и внешние).

Возможно есть вариант дать команду SQL и он выполнит неоходимый Job, который мог бы, например, запустить внешнюю программу, потом результаты ее работы загрузить в SQL, а в Аксапте надо было бы только дождатся появления данных, забрать их через ODBC.

[snp123]

доки у меня нет но покопаться в дтс попробую вдруг что интересное получиться...

[tricky]

Ай нид хелп. Выполнение run с третьим параметром равным "true" не ждет завершения отработки:

    wsh = new COM('WScript.Shell');
    wsh.Run(strFmt("winrar.exe e -y -o+ %1 %2",fileName,temppath), 0, true);
    wsh.finalize();

    fullFileName = SysTreeNode::duplicatePathDelimiters(< >);
    if(!winapi::fileExists_RU(fullFileName))
        throw error("Нема файлка!");

сообщает, что файл не найден при любых раскладах, хотя, если в дебагере "немножко постоять" после Run, то файл чудесным образом обнаруживается.
Не подскажете как быть?
P.S. Выполняю на Windows XP. Axapta 3.0

[EAlex]

Попробуйте вот это.

static void shellExecuteWait(str commandLine, int _waitTime = -1, int cmdShow = 4)
{
//  Ожидание завершения работы приложения  commandLine.
    #WinAPI
    #DEFINE.STATUS_TIMEOUT(0x00000102)

    Dll             kernel32            = new Dll("kernel32.dll");
    DllFunction     createProcess       = new DllFunction(kernel32, "CreateProcessA");
    DllFunction     waitForSingleObject = new DllFunction(kernel32, "WaitForSingleObject");
    DllFunction     closeHandle         = new DllFunction(kernel32, "CloseHandle");
    DllFunction     terminateProcess    = new DllFunction(kernel32, "TerminateProcess");
    Binary          strartupInformation = new binary(68);
    Binary          processInformation  = new binary(16);

    int             hProcess;

    createProcess.returns(ExtTypes:: DWORD);
    createProcess.arg(ExtTypes:: DWORD, ExtTypes:: STRING,
                      ExtTypes:: DWORD, ExtTypes:: DWORD,
                      ExtTypes:: DWORD, ExtTypes:: DWORD,
                      ExtTypes:: DWORD, ExtTypes:: DWORD,
                      ExtTypes:: POINTER, ExtTypes:: POINTER);

    waitForSingleObject.returns(ExtTypes:: DWORD);
    waitForSingleObject.arg(ExtTypes:: DWORD, ExtTypes:: DWORD);

    closeHandle.returns(ExtTypes:: DWORD);
    closeHandle.arg(ExtTypes:: DWORD);

    terminateProcess.returns(ExtTypes:: DWord);
    terminateProcess.arg(ExtTypes:: DWord, ExtTypes:: DWord);

    strartupInformation.dWord(44, cmdShow);

    if (!createProcess.call(0, commandLine, 0, 0, 0, 0, 0, 0, strartupInformation, processInformation))
    {
        throw error(strfmt("Ошибка при запуске приложения \"%1\"", commandLine));
    }

    hProcess = processInformation.dWord(0);

    if (waitForSingleObject.call(hProcess, _waitTime) == #STATUS_TIMEOUT)
    {
        terminateProcess.call(hProcess, 1);
        throw error(strfmt("Приложение \"%1\" закрыто, так как не завершилось за отведенное ему время", commandLine));
    }

    closeHandle.call(hProcess);
}

[tricky]

Цитата:

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

Попробуйте вот это.
...

Спасибо, работает.
Но только вот так

MyTestGlobal::shellExecuteWait(strFmt("C:\\Progra~1\\WinRAR\\WinRAR.exe e -y -o+ %1 %2",fileName,temppath));

а хотелось бы вот так:

MyTestGlobal::shellExecuteWait(strFmt("WinRAR.exe e -y -o+ %1 %2",fileName,temppath));

т.к. не обязательно у пользователя ВинРар будет установлен в указанной директории. Есть ли возможность узнать, установлено ли приложение у пользователя и по какому пути оно располагается?

[sukhanchik]

Цитата:

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

т.к. не обязательно у пользователя ВинРар будет установлен в указанной директории. Есть ли возможность узнать, установлено ли приложение у пользователя и по какому пути оно располагается?

Можно сделать следующее:
1. Предположить что Winrar всегда будет стоять в Program Files. Путь к Program Files можно определить из переменной окружения %ProgramFiles% (cmd.exe echo %ProgramFiles%). Это поможет в случае установки Windows на разные диски.

2. В реестре (Windows 2008 Server, Vista) есть ветка HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe, у которой есть значение по умолчанию - полный путь к Exe-шнику и значение Path - соответственно - путь только к каталогу. Можно проанализировать эту ветку на предмет получения пути.
В общем случае - можно поискать в реестре по ключевому слову WinRAR чтобы понять где какая информация хранится.

Но в случае реестра есть маленькая ложка дегтя. Структура реестра в Vista / Server 2008 немного отличается от предыдущих версий Windows и есть риски "не найти в ожидаемом месте" информацию в реестре для разных ОС.

[f18]

Или не много поставить по другому задачу ...
1. пользоваться не WinRar.exe, а просто rar.exe
2. его не нужно инсталировать и его можно просто скопировать в известную нам папку (например с:\temp , а тут варианты ...
2.1. копировать из известного места в сети
2.2. можно сделать поле в настроечной таблице типа контейнер. В это поле загрузить rar.exe. при вызове процедуры архивирования - проверять есть ли в указанном месте rar.exe ... и дальше понятно.
по моему немного проще чем анализировать реестр и вообще аксой напрямую лазить по реестру