解决程序_运行Ex 在标准输出内容过长时卡死的BUG - 精易论坛

子程序名	返回值类型	公开	备注
程序_运行Ex	逻辑型		精易默认的在标准输出内容过长时会卡死，所以改成这样
参数名	类型	参考	可空	数组	备注
命令行	文本型
等待运行完毕	逻辑型
窗口显示方式	整数型				参数值可以为以下常量之一：1、#隐藏窗口； 2、#普通激活； 3、#最小化激活； 4、#最大化激活； 5、#普通不激活； 6、#最小化不激活。如果省略本参数，默认为“普通激活”方式。
标准输入数据	字节集
运行返回值	整数型				该参数值为返回值，且[等待运行完毕]必须为真。
标准输出数据	字节集				该参数值为返回值，且[等待运行完毕]必须为真。
标准错误数据	字节集				该参数值为返回值，且[等待运行完毕]必须为真。

变量名	类型	静态	数组	备注
startupInfo	STARTUPINFO
pipeAttr	SECURITY_ATTRIBUTES
processInfo	精易_进程结构
hRead	整数型
hWrite	整数型
hErrorRead	整数型
hErrorWrite	整数型
size	整数型
result	逻辑型
结果字节集	字节集

startupInfo.cb ＝ 68 ' sizeof(STARTUPINFO)
startupInfo.dwFlags ＝ #STARTF_USESHOWWINDOW

判断 (窗口显示方式＝ #隐藏窗口 )

startupInfo.wShowWindow ＝ #SW_HIDE

判断 (窗口显示方式＝ #最小化激活 )

startupInfo.wShowWindow ＝ #SW_SHOWMINIMIZED

判断 (窗口显示方式＝ #最大化激活 )

startupInfo.wShowWindow ＝ #SW_SHOWMAXIMIZED

判断 (窗口显示方式＝ #普通不激活 )

startupInfo.wShowWindow ＝ #SW_SHOWNOACTIVATE

判断 (窗口显示方式＝ #最小化不激活 )

startupInfo.wShowWindow ＝ #SW_SHOWMINNOACTIVE

' #普通激活

startupInfo.wShowWindow ＝ #SW_SHOWNORMAL

如果真 (是否为空 (标准输入数据) ＝假或是否为空 (标准输出数据) ＝假或是否为空 (标准错误数据) ＝假)

startupInfo.dwFlags ＝位或 (startupInfo.dwFlags, #STARTF_USESTDHANDLES )

pipeAttr.nLength ＝ #sizeof_SECURITY_ATTRIBUTES

pipeAttr.bInheritHandle ＝真

CreatePipe (hRead, hWrite, pipeAttr, 0)

CreatePipe (hErrorRead, hErrorWrite, pipeAttr, 0)

如果真 (是否为空 (标准输入数据) ＝假)

WriteFile (hWrite, 标准输入数据, 取字节集长度 (标准输入数据), 0, 0)

startupInfo.hStdInput ＝ hRead

如果真 (是否为空 (标准输出数据) ＝假)

startupInfo.hStdOutput ＝ hWrite

如果真 (是否为空 (标准错误数据) ＝假)

startupInfo.hStdError ＝ hErrorWrite

如果真 (CreateProcessA (0, 命令行, 0, 0, 真, 0, 0, 0, startupInfo, processInfo))

result ＝真

如果真 (等待运行完毕)

判断循环首 (WaitForSingleObject (processInfo.进程句柄, 100) ＝ #WAIT_TIMEOUT )

如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))

结果字节集＝取空白字节集 (size)

如果真 (size ＞ 0)

ReadFile (hRead, 结果字节集, size, 0, 0)

标准输出数据＝标准输出数据＋结果字节集

结果字节集＝ { }

判断循环尾 ()

如果真 (是否为空 (运行返回值) ＝假)

GetExitCodeProcess (processInfo.进程句柄, 运行返回值)

如果真 (是否为空 (标准输出数据) ＝假)

如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))

结果字节集＝取空白字节集 (size)

如果真 (size ＞ 0)

ReadFile (hRead, 结果字节集, size, 0, 0)

标准输出数据＝标准输出数据＋结果字节集

如果真 (是否为空 (标准错误数据) ＝假)

如果真 (PeekNamedPipe_字节集 (hErrorRead, 标准错误数据, 0, 0, size, 0))

标准错误数据＝取空白字节集 (size)

如果真 (size ＞ 0)

ReadFile (hErrorRead, 标准错误数据, size, 0, 0)

CloseHandle (processInfo.进程句柄)

CloseHandle (processInfo.线程句柄)

如果真 (是否为空 (标准输入数据) ＝假或是否为空 (标准输出数据) ＝假或是否为空 (标准错误数据) ＝假)

CloseHandle (hRead)

CloseHandle (hWrite)

CloseHandle (hErrorRead)

CloseHandle (hErrorWrite)

返回 (result)

.版本 2<br />
<br />
<br />
<br />
.子程序 程序_运行Ex, 逻辑型, 公开, 精易默认的在标准输出内容过长时会卡死，所以改成这样<br />
<br />
.参数 命令行, 文本型<br />
<br />
.参数 等待运行完毕, 逻辑型, 可空<br />
<br />
.参数 窗口显示方式, 整数型, 可空, 参数值可以为以下常量之一：1、#隐藏窗口； 2、#普通激活； 3、#最小化激活； 4、#最大化激活； 5、#普通不激活； 6、#最小化不激活。如果省略本参数，默认为“普通激活”方式。<br />
<br />
.参数 标准输入数据, 字节集, 可空<br />
<br />
.参数 运行返回值, 整数型, 参考 可空, 该参数值为返回值，且[等待运行完毕]必须为真。<br />
<br />
.参数 标准输出数据, 字节集, 参考 可空, 该参数值为返回值，且[等待运行完毕]必须为真。<br />
<br />
.参数 标准错误数据, 字节集, 参考 可空, 该参数值为返回值，且[等待运行完毕]必须为真。<br />
<br />
.局部变量 startupInfo, STARTUPINFO<br />
<br />
.局部变量 pipeAttr, SECURITY_ATTRIBUTES<br />
<br />
.局部变量 processInfo, 精易_进程结构<br />
<br />
.局部变量 hRead, 整数型<br />
<br />
.局部变量 hWrite, 整数型<br />
<br />
.局部变量 hErrorRead, 整数型<br />
<br />
.局部变量 hErrorWrite, 整数型<br />
<br />
.局部变量 size, 整数型<br />
<br />
.局部变量 result, 逻辑型<br />
<br />
.局部变量 结果字节集, 字节集<br />
<br />
<br />
<br />
startupInfo.cb ＝ 68  ' sizeof(STARTUPINFO)<br />
<br />
startupInfo.dwFlags ＝ #STARTF_USESHOWWINDOW<br />
<br />
.判断开始 (窗口显示方式 ＝ #隐藏窗口)<br />
<br />
    startupInfo.wShowWindow ＝ #SW_HIDE<br />
<br />
.判断 (窗口显示方式 ＝ #最小化激活)<br />
<br />
    startupInfo.wShowWindow ＝ #SW_SHOWMINIMIZED<br />
<br />
.判断 (窗口显示方式 ＝ #最大化激活)<br />
<br />
    startupInfo.wShowWindow ＝ #SW_SHOWMAXIMIZED<br />
<br />
.判断 (窗口显示方式 ＝ #普通不激活)<br />
<br />
    startupInfo.wShowWindow ＝ #SW_SHOWNOACTIVATE<br />
<br />
.判断 (窗口显示方式 ＝ #最小化不激活)<br />
<br />
    startupInfo.wShowWindow ＝ #SW_SHOWMINNOACTIVE<br />
<br />
.默认<br />
<br />
    ' #普通激活<br />
<br />
    startupInfo.wShowWindow ＝ #SW_SHOWNORMAL<br />
<br />
.判断结束<br />
<br />
.如果真 (是否为空 (标准输入数据) ＝ 假 或 是否为空 (标准输出数据) ＝ 假 或 是否为空 (标准错误数据) ＝ 假)<br />
<br />
    startupInfo.dwFlags ＝ 位或 (startupInfo.dwFlags, #STARTF_USESTDHANDLES)<br />
<br />
    pipeAttr.nLength ＝ #sizeof_SECURITY_ATTRIBUTES<br />
<br />
    pipeAttr.bInheritHandle ＝ 真<br />
<br />
    CreatePipe (hRead, hWrite, pipeAttr, 0)<br />
<br />
    CreatePipe (hErrorRead, hErrorWrite, pipeAttr, 0)<br />
<br />
    .如果真 (是否为空 (标准输入数据) ＝ 假)<br />
<br />
        WriteFile (hWrite, 标准输入数据, 取字节集长度 (标准输入数据), 0, 0)<br />
<br />
        startupInfo.hStdInput ＝ hRead<br />
<br />
    .如果真结束<br />
<br />
    .如果真 (是否为空 (标准输出数据) ＝ 假)<br />
<br />
        startupInfo.hStdOutput ＝ hWrite<br />
<br />
    .如果真结束<br />
<br />
    .如果真 (是否为空 (标准错误数据) ＝ 假)<br />
<br />
        startupInfo.hStdError ＝ hErrorWrite<br />
<br />
    .如果真结束<br />
<br />
<br />
<br />
.如果真结束<br />
<br />
.如果真 (CreateProcessA (0, 命令行, 0, 0, 真, 0, 0, 0, startupInfo, processInfo))<br />
<br />
    result ＝ 真<br />
<br />
    .如果真 (等待运行完毕)<br />
<br />
<br />
<br />
        .判断循环首 (WaitForSingleObject (processInfo.进程句柄, 100) ＝ #WAIT_TIMEOUT)<br />
<br />
            .如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))<br />
<br />
                结果字节集 ＝ 取空白字节集 (size)<br />
<br />
                .如果真 (size ＞ 0)<br />
<br />
                    ReadFile (hRead, 结果字节集, size, 0, 0)<br />
<br />
                    标准输出数据 ＝ 标准输出数据 ＋ 结果字节集<br />
<br />
                    结果字节集 ＝ {  }<br />
<br />
                .如果真结束<br />
<br />
<br />
<br />
            .如果真结束<br />
<br />
<br />
<br />
        .判断循环尾 ()<br />
<br />
        .如果真 (是否为空 (运行返回值) ＝ 假)<br />
<br />
            GetExitCodeProcess (processInfo.进程句柄, 运行返回值)<br />
<br />
        .如果真结束<br />
<br />
        .如果真 (是否为空 (标准输出数据) ＝ 假)<br />
<br />
            .如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))<br />
<br />
                结果字节集 ＝ 取空白字节集 (size)<br />
<br />
                .如果真 (size ＞ 0)<br />
<br />
                    ReadFile (hRead, 结果字节集, size, 0, 0)<br />
<br />
                    标准输出数据 ＝ 标准输出数据 ＋ 结果字节集<br />
<br />
                .如果真结束<br />
<br />
<br />
<br />
            .如果真结束<br />
<br />
<br />
<br />
        .如果真结束<br />
<br />
        .如果真 (是否为空 (标准错误数据) ＝ 假)<br />
<br />
            .如果真 (PeekNamedPipe_字节集 (hErrorRead, 标准错误数据, 0, 0, size, 0))<br />
<br />
                标准错误数据 ＝ 取空白字节集 (size)<br />
<br />
                .如果真 (size ＞ 0)<br />
<br />
                    ReadFile (hErrorRead, 标准错误数据, size, 0, 0)<br />
<br />
                .如果真结束<br />
<br />
<br />
<br />
            .如果真结束<br />
<br />
<br />
<br />
        .如果真结束<br />
<br />
<br />
<br />
    .如果真结束<br />
<br />
    CloseHandle (processInfo.进程句柄)<br />
<br />
    CloseHandle (processInfo.线程句柄)<br />
<br />
.如果真结束<br />
<br />
.如果真 (是否为空 (标准输入数据) ＝ 假 或 是否为空 (标准输出数据) ＝ 假 或 是否为空 (标准错误数据) ＝ 假)<br />
<br />
    CloseHandle (hRead)<br />
<br />
    CloseHandle (hWrite)<br />
<br />
    CloseHandle (hErrorRead)<br />
<br />
    CloseHandle (hErrorWrite)<br />
<br />
.如果真结束<br />
<br />
返回 (result)