ShellExecute on x64 server

[Beast-L]

Как выполнить shellexecute на сервере x64? (win2003 ax5 x64)

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

Пробовал клиентом запущенным на удаленном рабочем столе (на сервере), распаковка идет нормально. Если через серверный статический метод ругается на "Функция "ShellExecuteExW" в библиотеке DLL "SHELL32" привела к возникновению исключения.".

В результате танцев с бубном, статический метод принял вид:

public static server void unpack()
{
    CodeAccessPermission permission = new InteropPermission(InteropKind::DllInterop);
    ;

    permission.assert();

    WinAPI::shellExecuteServer("c:\\Program Files\\Microsoft Dynamics AX\\50\\Server\\DSU_WORK\\Bin\\7z.exe e -o\"d:\\install\\7-zip\" \"\\\\192.168.245.59\\in\\zip\\9#33905.126\"");
}

shellExecuteServer это shellExecute с server вместо client

Есть ли у кого какие нибудь свежие идеи по этому поводу?

[Beast-L]

Решилось написанием Class Library на c#, оттуда вызов shellexecute.

Пока лучше решения не нашел.

[titov]

WScript.Shell - попробуйте. Взято отсюда
Как разархивировать zip архив?

[Beast-L]

А чем вызвать скрипт? ShellExecute штатный не работает.

[gl00mie]

Zitat:

Zitat von Beast-L

ShellExecute штатный не работает.

Во-первых, он не штатный - это ваша доделка. Во-вторых, эта тема проскакивала в блогах:

Zitat:

Background of this issue is that on 64bit the DLLFunction kernel class itself is not implemented in Dynamics AX 2009.

Так что забудьте про Win32 API при работе в AX 2009 на сервере.

Zitat:

Zitat von Beast-L

Решилось написанием Class Library на c#, оттуда вызов shellexecute. Пока лучше решения не нашел.

А лучшего решения и не будет - не даром разработчики выделили отдельный класс WinAPIServer и все методы в нем переписали на .NET (кроме getLastError(), который с давних пор реализован в ядре).

[Beast-L]

Zitat:

Zitat von gl00mie

Во-первых, он не штатный - это ваша доделка. Во-вторых, эта тема.

WinAPI::ShellExecute это не моя доделка, а стандартный функционал. Мой ShellExecute через .net работает вполне нормально.

[titov]

Zitat:

Zitat von Beast-L

А чем вызвать скрипт? ShellExecute штатный не работает.

static void ReturnCode_Job(Args _args)
{
COM    wsh             = new COM('WScript.Shell');
int        returnCode1 = -1;
int        returnCode2 = -1;
int        errorCode1 = -1;
int        errorCode2 = -1;
;
 
    returnCode1 = wsh.Run('winrar.exe e -y C:\\1.zip C:\\1\\', 1, true);
    errorCode1 = WinAPI::getLastError();
 
    returnCode2 = wsh.Run('winrar.exe e -y C:\\2.zip C:\\2\\', 1, true);
    errorCode2 = WinAPI::getLastError();
 
    info(strFmt('1.zip: ReturnCode = %1, ErrorCode = %2', returnCode1, errorCode1));
    info(strFmt('2.zip: ReturnCode = %1, ErrorCode = %2', returnCode2, errorCode2));
 
    wsh.finalize();
 
return;
}

код из ссылки, которую я привел

[Beast-L]

Zitat:

Zitat von titov

static void ReturnCode_Job(Args _args)
{
COM    wsh             = new COM('WScript.Shell');
int        returnCode1 = -1;
int        returnCode2 = -1;
int        errorCode1 = -1;
int        errorCode2 = -1;
;
 
    returnCode1 = wsh.Run('winrar.exe e -y C:\\1.zip C:\\1\\', 1, true);
    errorCode1 = WinAPI::getLastError();
 
    returnCode2 = wsh.Run('winrar.exe e -y C:\\2.zip C:\\2\\', 1, true);
    errorCode2 = WinAPI::getLastError();
 
    info(strFmt('1.zip: ReturnCode = %1, ErrorCode = %2', returnCode1, errorCode1));
    info(strFmt('2.zip: ReturnCode = %1, ErrorCode = %2', returnCode2, errorCode2));
 
    wsh.finalize();
 
return;
}

код из ссылки, которую я привел

Метод "Run" в COM-объекте класса "WScript.Shell" возвратил код ошибки 0x80070002 (<неизвестно>), который означает: <неизвестно>.

[gl00mie]

WinAPI::shellExecuteServer(), используемый в примере кода из исходного сообщения, - это ваша доделка В AX 2009 серверные методы, как уже упоминалось, вынесены в отдельный класс WinAPIServer.

[Beast-L]

Zitat:

Zitat von gl00mie

WinAPI::shellExecuteServer(), используемый в примере кода из исходного сообщения, - это ваша доделка В AX 2009 серверные методы, как уже упоминалось, вынесены в отдельный класс WinAPIServer.

В WinAPIServer нет shellexecute. А доделка shellexecuteserver, это по сути тот же shellexecute только на сервере.

[titov]

Zitat:

Zitat von gl00mie

В AX 2009 серверные методы, как уже упоминалось, вынесены в отдельный класс WinAPIServer.

две ссылки
http://blogs.msdn.com/b/czdaxsup/arc...m-a-batch.aspx
http://msdn.microsoft.com/en-us/libr...s.process.aspx

ниже почти готовый код для нового метода класса WinAPIServer

static server void ShellExecuteRunServer()
{
    System.Diagnostics.Process              process;
    System.Diagnostics.ProcessStartInfo     processStartInfo;
    int                                     exitCode;
    ;
    new InteropPermission(InteropKind::ClrInterop).assert();
    process = new System.Diagnostics.Process();
    processStartInfo = new System.Diagnostics.ProcessStartInfo();
    processStartInfo.set_FileName("winrar.exe");
    processStartInfo.set_Arguments("e -y E:\\1\\1.zip E:\\1\\2\\");
    process.set_StartInfo(processStartInfo);
    process.Start();
    process.WaitForExit();
 
    exitCode        = process.get_ExitCode();
    info(strFmt("%1",exitCode ));
    info("Finished");
}

работает!

[Beast-L]

Почемуто виснет на process.WaitForExit();

[gl00mie]

Не виснет, а ждет завершения процесса. Правда, если запускать процесс, который сам по себе не завершится, пока пользователь его не прибьет (какой-нить Excel или cmd), тогда, конечно, получится, что Аксапта "виснет". Есть перегруженный вариант метода WaitForExit(), которому можно указать максимальное время, в течение которого следует ожидать завершения запущенного процесса, - можно при желании использовать его, чтоб гарантированно не "висло".

[Beast-L]

В том то и дело что именно виснет. Скорее все распаковка происходит быстро (архив маленький) и поэтому ждать уже нечего, и событие завершения происходит до вызова ожидания, поэтому и виснет.

[titov]

Zitat:

Zitat von Beast-L

В том то и дело что именно виснет. Скорее все распаковка происходит быстро (архив маленький) и поэтому ждать уже нечего, и событие завершения происходит до вызова ожидания, поэтому и виснет.

Windows Server 2008 R2 Ax2009 rollup 4 x64 - intel xeon 4x работает
сделал - архив файла 0(нуль) и 300 Мб. а также команда dir в пустом каталоге, а также несуществующая команда
не удалось повторить ошибку

а вот так что у вас вернет и будет ли результат? по вашей версии процесс уже выполнен и все нормально

process.Start();
//    process.WaitForExit();
 
    exitCode        = process.get_ExitCode();
    info(strFmt([COLOR=red]"%1"[/COLOR],exitCode ));

[Beast-L]

Файл распакован, в результате - 0.

[titov]

Zitat:

Zitat von Beast-L

Файл распакован, в результате - 0.

http://msdn.microsoft.com/en-us/library/ty0d8k56.aspx

Zitat:

Zitat von цитата из ссылки

If you pass 0 (zero) to the method, it returns true only if the process has already exited.

Если вы передаете 0 (ноль) к методу, то возвращает истину, только если процесс уже завершился
предлагаю такой вариант

    while(!process.WaitForExit(0)) //проверяем, что процесс еще не закончен в Х++
    {
        sleep(100);
    }