多线程中调用 系统_取DOS执行结果

明天自然醒

在线程池中 调用 ffmpeg.exe，大概五个线程左右。五个线程调用ffmpeg没问题，但是想要看到他们分别的进度是多少


所以问题是：
    怎么才能显示五个线程分别的即时回显


系统_取DOS执行结果（"ffmpeg 。。。", &即时回显）


代码贴一下

.版本 2

.子程序 子程序_DOS执行回显, 逻辑型, , 返回逻辑值,真:停止,假:继续。
.参数 text, 文本型
.局部变量 a, 正则表达式类
.局部变量 当前切片索引, 整数型, 静态
.局部变量 索引, 整数型

a.创建 (“size=\s*(\d+)kB\s*time=\d{2}\:(\d{2}\:\d{2}\.\d{2})\s*bitrate=\s*([\d\.]+)kbits”, text, , , , )


.如果 (a.取匹配数量 () ＝ 0)
    超级列表框.置项目文本 (索引 － 1, 3, “等待”)

.否则

    超级列表框.置项目文本 (索引 － 1, 5, “耗时” ＋ a.取子匹配文本 (1, 2, )）
.如果结束

返回 (假)

afu45

  

子程序名	返回值类型	公开	备 注
系统_取DOS执行结果T	字节集		该命令会阻塞，一直到CMD中的内容执行完毕后才会返回
参数名	类 型	参考	可空	数组	备 注
命令行文本	字节集
即时回显	子程序指针				DOS即时回显信息回调函数！回调DOS函数(回显信息) 返回逻辑值；真、停止，假、继续
原样带回	整数型
UNICODE	逻辑型

变量名	类 型	静态	数组	备 注
hRead	整数型
hWrite	整数型
sa	SECURITY_ATTRIBUTES
dwSize	整数型
szCmdline	字节集
si	STARTUPINFO
pi	PROCESS_INFORMATION
dwBytesInStdOut	整数型
isRes	逻辑型
dwExitCode	整数型
szTemp	字节集
szBuf	字节集

sa.nLength ＝ 12  ' sizeof(SECURITY_ATTRIBUTES)
sa.lpSecurityDescriptor ＝ #NULL
sa.bInheritHandle ＝ 真
isRes ＝ CreatePipe (hRead, hWrite, sa, 0)
如果真 (isRes ＝ 假)
返回 ({  })
si.cb ＝ 68  ' sizeof(STARTUPINFO)
si.dwFlags ＝ 位或 ( #STARTF_USESTDHANDLES, #STARTF_USESHOWWINDOW )
si.wShowWindow ＝ #SW_HIDE
si.hStdInput ＝ hRead
si.hStdOutput ＝ hWrite
si.hStdError ＝ hWrite
dwSize ＝ 取字节集长度 (命令行文本)
szCmdline ＝ 编码_Ansi到Unicode (选择 (取操作系统类别 () ≤ 2, “command.com /c ”, “cmd.exe /c ”), 真) ＋ 命令行文本
szCmdline ＝ szCmdline ＋ 取空白字节集 ( #MAX_PATH × 2 － dwSize)  ' 填充
isRes ＝ CreateProcessW ( #NULL, 取指针_字节集型 (szCmdline), 取数据_通用型 (sa), #NULL, 真, 0, #NULL, #NULL, si, pi)
CloseHandle (hWrite)
如果真 (isRes ＝ 假)
CloseHandle (hRead)
返回 ({  })
CloseHandle (pi.hThread)
WaitForInputIdle (pi.hProcess, 1000)  ' 毫秒
判断循环首 (dwBytesInStdOut ≠ -1)
PeekNamedPipe (hRead, #NULL, 0, #NULL, dwBytesInStdOut, #NULL )
如果 (dwBytesInStdOut ＞ 0)
szTemp ＝ 取空白字节集 (dwBytesInStdOut)
ReadFile (hRead, szTemp, dwBytesInStdOut, dwBytesInStdOut, #NULL )
szBuf ＝ szBuf ＋ szTemp
如果真 (是否为空 (即时回显) ＝ 假)
如果 (UNICODE)
szTemp ＝ A2W_CP (szTemp, #CP_gb2312 )
szTemp ＝ szTemp ＋ { 0 }
isRes ＝ 程序_执行整数子程序 (即时回显, 取指针_字节集型 (szTemp), 原样带回, ) ≠ 0
如果真 (isRes)
跳出循环 ()


GetExitCodeProcess (pi.hProcess, dwExitCode)
如果真 (dwExitCode ≠ #STILL_ACTIVE )
跳出循环 ()

Sleep (1)
判断循环尾 ()
CloseHandle (pi.hProcess)
CloseHandle (hRead)
如果真 (szBuf ＝ {  })
返回 ({  })
如果 (UNICODE)
返回 (A2W_CP (szBuf, #CP_gb2312 ))
szBuf ＝ szBuf ＋ { 0 }
返回 (szBuf)

.版本 2<br /> <br /> .子程序 系统_取DOS执行结果T, 字节集, 公开, 该命令会阻塞，一直到CMD中的内容执行完毕后才会返回<br /> .参数 命令行文本, 字节集<br /> .参数 即时回显, 子程序指针, 可空, DOS即时回显信息回调函数！回调DOS函数(回显信息) 返回逻辑值；真、停止，假、继续<br /> .参数 原样带回, 整数型<br /> .参数 UNICODE, 逻辑型, 可空<br /> .局部变量 hRead, 整数型<br /> .局部变量 hWrite, 整数型<br /> .局部变量 sa, SECURITY_ATTRIBUTES<br /> .局部变量 dwSize, 整数型<br /> .局部变量 szCmdline, 字节集<br /> .局部变量 si, STARTUPINFO<br /> .局部变量 pi, PROCESS_INFORMATION<br /> .局部变量 dwBytesInStdOut, 整数型<br /> .局部变量 isRes, 逻辑型<br /> .局部变量 dwExitCode, 整数型<br /> .局部变量 szTemp, 字节集<br /> .局部变量 szBuf, 字节集<br /> <br /> sa.nLength ＝ 12  ' sizeof(SECURITY_ATTRIBUTES)<br /> sa.lpSecurityDescriptor ＝ #NULL<br /> sa.bInheritHandle ＝ 真<br /> isRes ＝ CreatePipe (hRead, hWrite, sa, 0)<br /> .如果真 (isRes ＝ 假)<br />     返回 ({  })<br /> .如果真结束<br /> si.cb ＝ 68  ' sizeof(STARTUPINFO)<br /> si.dwFlags ＝ 位或 (#STARTF_USESTDHANDLES, #STARTF_USESHOWWINDOW)<br /> si.wShowWindow ＝ #SW_HIDE<br /> si.hStdInput ＝ hRead<br /> si.hStdOutput ＝ hWrite<br /> si.hStdError ＝ hWrite<br /> dwSize ＝ 取字节集长度 (命令行文本)<br /> szCmdline ＝ 编码_Ansi到Unicode (选择 (取操作系统类别 () ≤ 2, “command.com /c ”, “cmd.exe /c ”), 真) ＋ 命令行文本<br /> szCmdline ＝ szCmdline ＋ 取空白字节集 (#MAX_PATH × 2 － dwSize)  ' 填充<br /> isRes ＝ CreateProcessW (#NULL, 取指针_字节集型 (szCmdline), 取数据_通用型 (sa), #NULL, 真, 0, #NULL, #NULL, si, pi)<br /> CloseHandle (hWrite)<br /> .如果真 (isRes ＝ 假)<br />     CloseHandle (hRead)<br />     返回 ({  })<br /> .如果真结束<br /> CloseHandle (pi.hThread)<br /> WaitForInputIdle (pi.hProcess, 1000)  ' 毫秒<br /> .判断循环首 (dwBytesInStdOut ≠ -1)<br />     PeekNamedPipe (hRead, #NULL, 0, #NULL, dwBytesInStdOut, #NULL)<br />     .如果 (dwBytesInStdOut ＞ 0)<br />         szTemp ＝ 取空白字节集 (dwBytesInStdOut)<br />         ReadFile (hRead, szTemp, dwBytesInStdOut, dwBytesInStdOut, #NULL)<br />         szBuf ＝ szBuf ＋ szTemp<br />         .如果真 (是否为空 (即时回显) ＝ 假)<br />             .如果 (UNICODE)<br />                 szTemp ＝ A2W_CP (szTemp, #CP_gb2312)<br />             .否则<br />                 szTemp ＝ szTemp ＋ { 0 }<br />             .如果结束<br />             isRes ＝ 程序_执行整数子程序 (即时回显, 取指针_字节集型 (szTemp), 原样带回, ) ≠ 0<br />             .如果真 (isRes)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .否则<br />         GetExitCodeProcess (pi.hProcess, dwExitCode)<br />         .如果真 (dwExitCode ≠ #STILL_ACTIVE)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br />     Sleep (1)<br /> .判断循环尾 ()<br /> CloseHandle (pi.hProcess)<br /> CloseHandle (hRead)<br /> .如果真 (szBuf ＝ {  })<br />     返回 ({  })<br /> .如果真结束<br /> .如果 (UNICODE)<br />     返回 (A2W_CP (szBuf, #CP_gb2312))<br /> .否则<br />     szBuf ＝ szBuf ＋ { 0 }<br /> .如果结束<br /> 返回 (szBuf)

模块里修改一下 加一个参数 原样带回  传入什么 就返回什么

afu45

把精易这个地方修改一下 加个参数
调用的时候传个序号
就会原样带出来

深爱者

这个我也想知道，你是做视频生成还是切片？

明天自然醒

afu45 发表于 2022-10-9 12:14
把精易这个地方修改一下 加个参数
调用的时候传个序号
就会原样带出来 ...

五个线程都是用的同一个回调函数吗，只是传的序号不一样？

补充内容 (2022-10-9 13:39):
加了之后好像没啥变化