[原] 改进的DOS命令输出重定向到文本框(TMemo)内
Posted by bianbian on 2007-08-17 02:44
虽然是Delphi的，都是调用的WinAPI，C++也可参考。
原理就是管道（Pipe），自己的程序可以Create管道出来，让CreateProcess的子程序能继承自己程序里的管道，替代子程序的标准输入输出。
这样DOS程序对stdout输出的内容就输出到自己程序建立的管道里来了，也就能对其进行读取操作，从而完成重定向到文本框（实时显示）。
基本上Delphi世界里流行的都是DFW上的那个重定向代码，我进行了改进：
1）原来那个代码只能截取输出结果，但是没有换行的整理，要是直接Add到Memo里会杂乱不堪（因为循环取到的内容有可能含有 \r 或 \n，这时候直接Add就有了两行)。
我加上了换行符的处理，Add行的时候按实际的换行进行处理，这样和DOS窗口输出就一致了。
2）原来那个代码没有和Memo绑定，还得自己写Memo操作部分
我加上了Memo作为参数，这样直接调用就省事了。
使用的时候只要 CmdExecAndView(”命令”, memo) 即可。
下面是改进后的代码，欢迎交流：
- procedure CmdExecAndView(FileName: string; memo: TMemo);
- procedure _AddInfo(mmInfo:TMemo; S: string; var line: string);
- var
- i, p: Integer;
- begin
- if mmInfo.Lines.Count > 800 then
- mmInfo.Lines.Clear;
- //去掉 \r
- for i := 0 to Length(S) - 1 do
- if S[i] = #13 then S[i] := ' ';
- line := line + S;
- // \n 断行
- p := Pos(#10, line);
- if p > 0 then
- begin
- // \n 前面的加入一行，后面的留到下次
- mmInfo.Lines.Add(Copy(line, 1, p - 1));
- line := Copy(line, p + 1, Length(line) - p);
- end;
- end;
- var
- hReadPipe, hWritePipe: THandle;
- si: STARTUPINFO;
- lsa: SECURITY_ATTRIBUTES;
- pi: PROCESS_INFORMATION;
- cchReadBuffer: DWORD;
- ph: PChar;
- fname: PChar;
- line: string;
- begin
- fname := allocmem(1024);
- ph := AllocMem(1024);
- lsa.nLength := sizeof(SECURITY_ATTRIBUTES);
- lsa.lpSecurityDescriptor := nil;
- lsa.bInheritHandle := True;
- if CreatePipe(hReadPipe, hWritePipe, @lsa, 0) = false then
- Exit;
- fillchar(si, sizeof(STARTUPINFO), 0);
- si.cb := sizeof(STARTUPINFO);
- si.dwFlags := (STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
- si.wShowWindow := SW_HIDE;
- si.hStdOutput := hWritePipe;
- si.hStdError := hWritePipe;
- StrPCopy(fname, FileName);
- if CreateProcess(nil, fname, nil, nil, true, 0, nil, nil, si, pi) = False then
- begin
- FreeMem(ph);
- FreeMem(fname);
- Exit;
- end;
- CloseHandle(hWritePipe);
- while (true) do
- begin
- if not PeekNamedPipe(hReadPipe, ph, 1, @cchReadBuffer, nil, nil) then break;
- if cchReadBuffer <> 0 then
- begin
- if ReadFile(hReadPipe, ph^, 512, cchReadBuffer, nil) = false then break;
- ph[cchReadbuffer] := chr(0);
- _AddInfo(memo, ph, line);
- end
- else if (WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0) then break;
- Application.ProcessMessages;
- Sleep(200);
- end;
- ph[cchReadBuffer] := chr(0);
- _AddInfo(memo, ph, line);
- CloseHandle(hReadPipe);
- CloseHandle(pi.hThread);
- CloseHandle(pi.hProcess);
- FreeMem(ph);
- FreeMem(fname);
- end;
遵守创作共用协议，转载请链接形式注明来自http://bianbian.org 做人要厚道
August 17th, 2007 at 08:22:07
你终于全文输出了。。。
January 25th, 2008 at 01:44:03
好像你的换行处理有问题，像
CmdExecAndView(’ipconfig’,memo1) ，这个就只会出一行出来。
February 21st, 2008 at 09:20:58
有些命令的输出捕捉不到，很奇怪。