命令行管道重定向问题（双向）,请tseug进来看看 (200分)

skyweb · 2002-03-06

我做的一个函数用于执行一个命令行程序，向该程序的标准输入写数据，然后从该程序 的标准输出中读出处理结果。这个函数在Windows NT/XP下调试通过，可以正常运行， 但在Win9x（我用的是WinMe）下却不能工作，分析的结果大致是该命令行程序以为其标 准输入尚未结束，所以不输出也不结束，头痛~~~。 简言之，我需要一个能在Win9x/Me下工作的双管道重定向命令行输入输出的例子。 各位高手看看有什么好建议？ procedure ExecInterpreter(const Interpreter: string;   AppInput, AppOutput: TStrings); var   StartupInfo:TStartupInfo;   ProcessInfo:TProcessInformation;   SecurityAttributes: TSecurityAttributes;   // MyOutput和ChildInput分别为输出管道（本进程送往被调进程）的写入和读出端   MyOutput,   ChildInput,   // MyOutput和ChildInput分别为输入管道（被调进程送往本进程）的写入和读出端   ChildOutput,   MyInput,   TempHandle: THandle;   Buffer: array[0..$100]of char;   Bytes,ExitCode: Cardinal;   Stream: TStream;   s: string; begin   FillChar(StartupInfo,SizeOf(StartupInfo), 0);   FillChar(SecurityAttributes, SizeOf(SecurityAttributes), 0);   with SecurityAttributes do   begin     nLength:= Sizeof(SecurityAttributes);     bInheritHandle:= true   end;   // 建立输入管道（从被调进程送往本进程）   if not CreatePipe(MyInput, ChildOutput, @SecurityAttributes, $10000) then     RaiseLastWin32Error;   // 建立输出管道（从本进程送往被调进程）   if not CreatePipe(ChildInput, MyOutput, @SecurityAttributes, 0) then     RaiseLastWin32Error;   with StartupInfo do   begin     cb:= SizeOf(StartupInfo);     dwFlags:= STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;     wShowWindow:= SW_HIDE;     hStdOutput:= ChildOutput;     hStdInput:= ChildInput;     hStdError:= ChildOutput;   end;   if not CreateProcess(nil, PChar(Interpreter),      nil, nil,      true,      CREATE_NO_WINDOW,      nil,      nil,      StartupInfo,      ProcessInfo) then    RaiseLastWin32Error;   CloseHandle(ChildOutput);   CloseHandle(ChildInput);   // 输出数据到子进程，然后关闭输出管道   s:=AppInput.Text;   WriteFile(MyOutput, s[1], length(s), Bytes, nil);   CloseHandle(MyOutput);   Stream:=TMemoryStream.Create;   try     repeat       GetExitCodeProcess(ProcessInfo.hProcess,ExitCode);       if not PeekNamedPipe(MyInput,nil,0,nil,@Bytes,nil) then         RaiseLastWin32Error;       Application.ProcessMessages;       if Bytes>0 then       begin         if not ReadFile(MyInput, Buffer, SizeOf(Buffer), Bytes, nil) then           RaiseLastWin32Error;         Stream.WriteBuffer(Buffer,Bytes);       end;     until (Bytes=0) and (ExitCode<>STILL_ACTIVE);     // 将读入的数据装入输出文本列表     Stream.Position:=0;     AppOutput.LoadFromStream(Stream);   finally     Stream.Free;     CloseHandle(ProcessInfo.hProcess);     CloseHandle(MyInput);   end end;

ASCII · 2002-03-07

在建立子进程后等待一会儿后再向子进程输入也许有帮助

008chs · 2002-03-07

[

]大家闲着也是闲着，无风险的 Make 些 Money 呗！钱拿到手别忘了请客哟！ 网上挣不错!可惜钱太少,现在好了

，反正闲着也是闲着，找了一个不要身份证，不要会 员费，只要有个地址，就能挣到钱的网站，不用开广告条哦! 申请成了会员……（反正挣 不到钱也不会吃亏^o^）等了一个月，两个月…… 什么汇款单？连个影子都没有！不过一 想，无所谓了……反正也没吃亏… ^^ 就当是鬼迷心窍一回吧! 可一直到了3个月…… 突 然……汇款单到了？！不看不知道，一看吓一跳！ 9百多美金？折合人民币不就是7千多了 吗？半信半疑，到了银行，换回了7千多…… 真像做梦一样……买了一些一直想买的东 东…… 兴奋之余，又开始了我的宣传！宣传越多，挣的越多吗 ^o^ 果然，不到一个月，又 飞来了一张单子！ 1千3百多美金…… 真是难以置信！又过了一个月上涨到了2千4百多美 金…… 如今，不用上班也有钱花了，真是乐哉乐哉！你不信？那没办法！只可惜这白花花 的银子喽…… 不过，古人云：“宁可信其有，不可信其无”啊…… 反正也不吃亏，就当疯 一回试试看嘛…… 相信我，没错的！ ****加入方法*** 很简单的哦***　 http://www.MintMail.com/?m=2292875 进入上面网站（复制、粘贴到地址栏）打开网页， 点击右上方 click here 活动图标，或点击蓝色 FREE Sign-up page 字样也可！然后， 跟着提示，一步一步输入信息就ok了。值得高兴的是它能识别中文信息，而能100%加入！ 下面是我为了方便大家的加入详细说明了加入过程中的细节 - First name*: 名字（例：文 杰） - Last Name*: 姓（例：肖） - Company Name: 可不填 - Street Address*: 家 庭住址：（一定要详细填写，不然收不到汇款单喽！）例：上海市 **地方 - City*: 城市 名 (例：ShangHai 英文填写 ) - State*: 可不填 - Zip*: 邮编（填 000-000 ） - Country*: 国家（选 china ） - Phone*: 电话号码（国家代码 86 + 去掉区位号前0 的电话号码）例：010-64243365 → 86-10-64243365） - Fax: 可不填 - E-mail*: 电子 信箱（所有的交流都通过信箱传递，所以务必填写正确） - Confirm E-mail*: 再次输入信 箱地址 ***** - Year of birth*: 出生年例：1970、1980 - Gender*: 性别 Male（男）, Femaie （女） - Password*: 密码（6位以上）****** - Confirm Password: 确认密码 （必须与上相同）****** - how do you want to receive commission E-mail- how do you want to receive commissions that you earn? 以什么形式接收礼品？ *gift certificates(double$$) 奖品 *cash 现金如要奖品能收到双倍价格的东西，但都是一些 英文版的书籍、磁带、光盘等对于中国人来说，还是选择现金比较合算些，请选择 cash - do you want to be notified when your referrals sing up? 加入会员成功时通 知你吗？选 yes - MintMail.com 请选择自己的爱好或兴趣（最多可选10种） - Submit 点击它屏幕上就会出现 thank you 的字样大家有钱一起赚!!!试试看吧. 　想推广的话, 把以上这短话完全拷贝,.再将它复制到各网站的留言录，过几天你的邮箱会多了许多得钱 通知。一个月左右就收到过钱了.爽!!!

skyweb · 2002-03-07

这个的问题太难了吗？我愿意再加300分！！！

savenight · 2002-03-08

.... WaitForSingleObject(ProcessInfo.hProcess, INFINITE); // 将读入的数据装入输出文本列表

skyweb · 2002-03-08

to savenight: 这招早就用过了,没效果. 我的函数中有两个管道,一个向子进程写(第一动作),一个从子进程读(第二动作), 现在的情况是,在win9x系统下子进程的ReadFile函数未返回,所以子进程不会结束, 用WaitForSingleObject(ProcessInfo.hProcess, INFINITE);永远等不到. 另外我上面的程序用GetExitCodeProcess(ProcessInfo.hProcess,ExitCode);做判 断,其效果与WaitForSingleObject是一样的,但是至少我还可以在调试窗里知道我的 程序还在运作,同时保证处理Windows消息,不致于看上去程序象完全死掉一样.

lufang · 2002-03-08

学习

zhumoo · 2002-03-09

关注

HD_Copy · 2002-03-09

在http://www.delphibbs.com/delphibbs/dispq.asp?lid=618422中，tseug的回答应该是你所需要的。

skyweb · 2002-03-10

to HD_Copy:   tseug的例子有两个,一个讲通过管道读取命令行输出,这个我已经做到了; 另一个讲用一个文件做命令行的输入,另一个文件接收出输出,但我想要的是 通过管道输入/输出.另外我的这个函数在WinXP/NT上是可以实现我的要求的, 只是在Win9x/Me下不行而已.   谢谢.

HD_Copy · 2002-03-11

to skyweb:    我昨天自己试了一下，也没弄明白。我对用管道技术操纵控制台程序研究得并不深，只是以前用    C++Builder写了一个UPX的Windows外壳，下面这个帖子中就是我的那段C++代码，我之所以这么关心    你这个题目，是因为我对这方面挺感兴趣的    下面是那个帖子中xianjun给我发过来的代码，由于工程文件损坏了，打不开，代码又不多，只有    两个单元文件，我就都给你贴上来了，希望你早日成功！     //-------------------------------------------------------------------------------------- unit Main; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, uRedirect, ComCtrls; type   TForm1 = class(TForm)     Memo1: TRichEdit;     Edit1: TEdit;     procedure Edit1KeyPress(Sender: TObject; var Key: Char);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormShow(Sender: TObject);   private     { Private declarations }     FRedirector: TRedirector;     procedure NewData(Sender: TRedirector; Buffer: Pointer; BufferSize:       Integer);   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.NewData(Sender: TRedirector; Buffer: Pointer;   BufferSize: Integer); var   Temp: PChar; begin   Temp := StrAlloc(BufferSize + 1);   try     StrLCopy(Temp, Buffer, BufferSize);     Temp[BufferSize] := #0;     Memo1.Lines.Add(string(Temp));     Memo1.Perform(WM_VSCROLL, SB_BOTTOM, 0);   finally     StrDispose(Temp);   end; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var   cmd: string; begin   if Key = #13 then   begin     cmd := Edit1.Text;     if cmd = 'NEWCMD' then     begin       if FRedirector <> nil then         FRedirector.SendText('exit');       FreeAndNil(FReDirector);     end;     if FRedirector = nil then     begin       FRedirector := TRedirector.Create;       FRedirector.KillOnDestroy := True;       FRedirector.OnData := NewData;       FRedirector.CommandLine := 'cmd';       FRedirector.Directory := 'C:/';       FRedirector.Execute;       FRedirector.SendText('请不要使用需要用户介入的DOS命令(如Edit)'#13#10'否则会死得很难看的!  --- XJG在此忠告市民'#10#13);     end;     if UpperCase(cmd) <> 'EXIT' then       FRedirector.SendText(cmd + #10#13);     Edit1.SelectAll;   end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   if Assigned(FRedirector) then     FRedirector.Free; end; procedure TForm1.FormShow(Sender: TObject); var   Key: Char; begin   Key := #13;   Edit1KeyPress(Edit1, Key);   Edit1.Text := '请在此输入你要执行的DOS命令'; end; end. //-------------------------------------------------------------------------------------- //**************************************************************************** //* I have no idea who wrote this unit, if somebody knows drop me a line and * //* I will credit accordingly.                                               * //*                                                                          * //* Unit was taken from http://www.delphidevelopers.com                      * //**************************************************************************** {***************************************************************  *  * History:      Modified by xjg.  * 参见：http://support.microsoft.com/support/kb/articles/Q190/3/51.ASP  *  ****************************************************************} unit uRedirect; interface uses   Windows, SysUtils, Classes; type   TRedirector = class;   TPriorityClass = (pcDefault, pcIdle, pcNormal, pcHigh, pcRealtime);   TDataEvent = procedure(Sender: TRedirector; buffer: pointer; Size: integer) of     object;   TPipeError = record     hRead,       hWrite: DWORD;   end;   TRedirector = class   private     FAvailable: integer;     procedure ReadStdOutput;     procedure ReadStdError;     procedure ProcessTerminated;   protected     FProcessInfo: TProcessInformation;     FExitCode: integer;     FExecutable: string;     FCommandline: string;     FDefaultErrorMode: boolean;     FStartSuspended: boolean;     FKillOnDestroy: boolean;     FDirectory: string;     FEnvironment: pointer;     FInitialPriority: TPriorityClass;     FPipeInput,       FPipeOutput,       FPipeError: TPipeError;     FThread: TThread;     FOnData,       FOnErrorData: TDataEvent;     FOnTerminated: TNotifyEvent;     FShowWindow: integer;     procedure Error(msg: string);     procedure WinError(msg: string);     procedure CreatePipes;     procedure ClosePipes;     function GetRunning: boolean;     function GetExitCode: integer;     function GetProcessID: integer;     function GetThreadID: integer;     function GetProcessHandle: integer;     procedure SetShowWindow(value: integer);     function GetThreadHandle: integer;     procedure SetExecutable(value: string);     function GetCommandLine: string;     procedure SetCommandLine(value: string);     procedure SetDefaultErrorMode(value: boolean);     procedure SetStartSuspended(value: boolean);     procedure SetInitialPriority(value: TPriorityClass);     procedure SetDirectory(value: string);     procedure SetEnvironment(value: pointer);     property ProcessHandle: integer read GetProcessHandle;     property ThreadHandle: integer read GetThreadHandle;   public     destructor Destroy; override;     procedure Terminate(dwExitCode: integer);     procedure Execute;     procedure SendData(Buffer: pointer; BufferSize: integer);     procedure SendText(s: string);     property Running: boolean read GetRunning;     property ExitCode: integer read GetExitCode;     property ProcessID: integer read GetProcessID;     property ThreadID: integer read GetThreadID;     property Environment: pointer read FEnvironment write SetEnvironment;   published     property KillOnDestroy: boolean read FKillOnDestroy write FKillOnDestroy;     property Executable: string read FExecutable write SetExecutable;     property CommandLine: string read GetCommandLine write SetCommandLine;     property ShowWindow: integer read FShowWindow write SetShowWindow default       SW_SHOWDEFAULT;     property DefaultErrorMode: boolean read FDefaultErrorMode write       SetDefaultErrorMode;     property StartSuspended: boolean read FStartSuspended write       SetStartSuspended;     property InitialPriority: TPriorityClass read FInitialPriority write       SetInitialPriority;     property Directory: string read FDirectory write SetDirectory;     property OnData: TDataEvent read FOnData write FOnData;     property OnErrorData: TDataEvent read FOnErrorData write FOnErrorData;     property OnTerminated: TNotifyEvent read FOnTerminated write FOnTerminated;   end; implementation const   DUPLICATE_CLOSE_SOURCE = 1;   DUPLICATE_SAME_ACCESS = 2; type   TRedirectorThread = class(TThread)   protected     FRedirector: TRedirector;     procedure Execute; override;     constructor Create(ARedirector: TRedirector);   end;   ////////////////////////////////////////////////////////////////////////////////   // Misc. internal methods   //////////////////////////////////////////////////////////////////////////////// procedure TRedirector.Error(msg: string); begin   TerminateProcess(ProcessHandle, 0);   raise Exception.Create(msg); end; procedure TRedirector.WinError(msg: string); begin   Error(msg + IntToStr(GetLastError)); end; procedure TRedirector.CreatePipes; var   SecAttr: TSecurityAttributes; begin   SecAttr.nLength := SizeOf(SecAttr);   SecAttr.lpSecurityDescriptor := nil;   SecAttr.bInheritHandle := TRUE;   with FPipeInput do   begin     if not CreatePipe(hRead, hWrite, @SecAttr, 1024) then       WinError('Error on STDIN pipe creation : ');     if not DuplicateHandle(GetCurrentProcess, hRead, GetCurrentProcess,       @hRead, 0, TRUE, DUPLICATE_CLOSE_SOURCE or DUPLICATE_SAME_ACCESS) then       WinError('Error on STDIN pipe duplication : ');   end;   with FPipeOutput do   begin     if not CreatePipe(hRead, hWrite, @SecAttr, 1024) then       WinError('Error on STDOUT pipe creation : ');     if not DuplicateHandle(GetCurrentProcess, hWrite, GetCurrentProcess,       @hWrite, 0, TRUE, DUPLICATE_CLOSE_SOURCE or DUPLICATE_SAME_ACCESS) then       WinError('Error on STDOUT pipe duplication : ');   end;   with FPipeError do   begin     if not CreatePipe(hRead, hWrite, @SecAttr, 1024) then       WinError('Error on STDERR pipe creation : ');     if not DuplicateHandle(GetCurrentProcess, hWrite, GetCurrentProcess,       @hWrite, 0, TRUE, DUPLICATE_CLOSE_SOURCE or DUPLICATE_SAME_ACCESS) then       WinError('Error on STDERR pipe duplication : ');   end; end; procedure TRedirector.ClosePipes; begin   with FPipeInput do   begin     if hRead <> 0 then       CloseHandle(hRead);     if hWrite <> 0 then       CloseHandle(hWrite);     hRead := 0;     hWrite := 0;   end;   with FPipeOutput do   begin     if hRead <> 0 then       CloseHandle(hRead);     if hWrite <> 0 then       CloseHandle(hWrite);     hRead := 0;     hWrite := 0;   end;   with FPipeError do   begin     if hRead <> 0 then       CloseHandle(hRead);     if hWrite <> 0 then       CloseHandle(hWrite);     hRead := 0;     hWrite := 0;   end; end; //////////////////////////////////////////////////////////////////////////////// // Property implementations //////////////////////////////////////////////////////////////////////////////// function TRedirector.GetRunning: boolean; begin   Result := ProcessHandle <> 0; end; function TRedirector.GetExitCode: integer; begin   if Running then     Result := STILL_ACTIVE   else     Result := FExitCode; end; function TRedirector.GetProcessID: integer; begin   Result := FProcessInfo.dwProcessID; end; function TRedirector.GetThreadID: integer; begin   Result := FProcessInfo.dwThreadID; end; function TRedirector.GetProcessHandle: integer; begin   Result := FProcessInfo.hProcess; end; function TRedirector.GetThreadHandle: integer; begin   Result := FProcessInfo.hThread; end; procedure TRedirector.SetExecutable(value: string); begin   if (ANSICompareText(value, Executable) = 0) or not Running then     FExecutable := value   else if Running then     Error('Cannot change Executable while process is active'); end; procedure TRedirector.SetCommandLine(value: string); begin   if (ANSICompareText(value, Commandline) = 0) or not Running then     FCommandline := value   else if Running then     Error('Cannot change Commandline while process is active'); end; function TRedirector.GetCommandLine: string; begin   Result := FExecutable;   if Result = '' then     Result := FCommandline   else     Result := FExecutable + ' ' + FCommandline; end; procedure TRedirector.SetDefaultErrorMode(value: boolean); begin   if (value = DefaultErrorMode) or not Running then     FDefaultErrorMode := value   else if Running then     Error('Cannot change DefaultErrorMode while process is active'); end; procedure TRedirector.SetStartSuspended(value: boolean); begin   if (value = DefaultErrorMode) or not Running then     FStartSuspended := value   else if Running then     Error('Cannot change StartSuspended while process is active'); end; procedure TRedirector.SetInitialPriority(value: TPriorityClass); begin   if (value = InitialPriority) or not Running then     FInitialPriority := value   else if Running then     Error('Cannot change InititalPriority while process is active'); end; procedure TRedirector.SetDirectory(value: string); begin   if (ANSICompareText(value, Directory) = 0) or (not Running) then     FDirectory := value   else if Running then     Error('Cannot change Directory while process is active'); end; procedure TRedirector.SetEnvironment(value: pointer); begin   if (value = Environment) or not Running then     FEnvironment := value   else if Running then     Error('Cannot change Environment while process is active'); end; procedure TRedirector.SetShowWindow(value: integer); begin   if (value = ShowWindow) or not Running then     FShowWindow := value   else if Running then     Error('Cannot change ShowWindow while process is active'); end; procedure TRedirector.ReadStdOutput; var   BytesRead: DWORD;   buffer: pointer; begin   GetMem(Buffer, FAvailable);   try     if not ReadFile(FPipeOutput.hRead, buffer^, FAvailable, BytesRead, nil) then     begin       FThread.Terminate;       WinError('Error reading STDOUT pipe : ');     end;     if Assigned(FOnData) then     begin       FOnData(Self, buffer, BytesRead);     end;   finally     FreeMem(buffer);   end; end; procedure TRedirector.ReadStdError; var   BytesRead: DWORD;   buffer: pointer; begin   GetMem(Buffer, FAvailable);   try     if not ReadFile(FPipeError.hRead, buffer^, FAvailable, BytesRead, nil) then     begin       FThread.Terminate;       WinError('Error reading STDERR pipe : ');     end;     if Assigned(FOnErrorData) then     begin       FOnErrorData(Self, buffer, BytesRead);     end;   finally     FreeMem(buffer);   end; end; procedure TRedirector.ProcessTerminated; begin   FThread.Terminate;   if Assigned(FOnTerminated) then     FOnTerminated(Self);   ClosePipes;   CloseHandle(FProcessInfo.hProcess);   CloseHandle(FProcessInfo.hThread);   FillChar(FProcessInfo, SizeOf(FProcessInfo), 0); end; //////////////////////////////////////////////////////////////////////////////// // Public methods //////////////////////////////////////////////////////////////////////////////// procedure TRedirector.Terminate(dwExitCode: integer); begin   if Running then     TerminateProcess(ProcessHandle, dwExitCode)   else     Error('Cannot Terminate an inactive process'); end; procedure TRedirector.Execute; var   StartupInfo: TStartupInfo;   szExecutable,     szCommandline,     szDirectory: PChar; begin   if Running then     Error('Process is already active');   if Trim(CommandLine) = '' then     Error('No commandline to run');   try     CreatePipes;     FillChar(StartupInfo, SizeOf(StartupInfo), 0);     StartupInfo.cb := SizeOf(StartupInfo);     StartupInfo.wShowWindow := FShowWindow;     StartupInfo.hStdInput := FPipeInput.hRead;     StartupInfo.hStdOutput := FPipeOutput.hWrite;     StartupInfo.hStdError := FPipeError.hWrite;     StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;     if Trim(Executable) = '' then       szExecutable := nil     else       szExecutable := PChar(FExecutable);     if Trim(Commandline) = '' then       szCommandline := nil     else       szCommandline := PChar(FCommandline);     if Trim(Directory) = '' then       szDirectory := nil     else       szDirectory := PChar(FDirectory);     if CreateProcess(       szExecutable,       szCommandline,       nil,       nil,       TRUE,       (CREATE_DEFAULT_ERROR_MODE and integer(FDefaultErrorMode))       or (CREATE_SUSPENDED and integer(FStartSuspended)),       Environment,       szDirectory,       StartupInfo,       FProcessInfo) then     begin       //WaitForSingleObject(FProcessInfo.hProcess, 5000);       FThread := TRedirectorThread.Create(Self);     end     else       WinError('Error creating process : ');   except     on Exception do     begin       ClosePipes;       CloseHandle(FProcessInfo.hProcess);       CloseHandle(FProcessInfo.hThread);       FillChar(FProcessInfo, SizeOf(FProcessInfo), 0);       raise;     end;   end; end; procedure TRedirector.SendData(Buffer: pointer; BufferSize: integer); var   BytesWritten: DWORD; begin   if not Running then     Error('Can''t send data to an inactive process');   if not WriteFile(FPipeInput.hWrite, Buffer^, BufferSize, BytesWritten, nil)     then     WinError('Error writing to STDIN pipe : '); end; procedure TRedirector.SendText(s: string); begin   SendData(PChar(s), Length(s)); end; destructor TRedirector.Destroy; begin   if Running and KillOnDestroy then   begin     FOnTerminated := nil;     FThread.Terminate;     Terminate(0);   end;   inherited Destroy; end; constructor TRedirectorThread.Create(ARedirector: TRedirector); begin   FRedirector := ARedirector;   inherited Create(FALSE); end; procedure TRedirectorThread.Execute; var   Idle: boolean; begin   FreeOnTerminate := TRUE;   while not Terminated do   begin     Idle := TRUE;     if PeekNamedPipe(FRedirector.FPipeOutput.hRead, nil, 0, nil,       @FRedirector.FAvailable, nil) and (FRedirector.FAvailable > 0) then     begin       Synchronize(FRedirector.ReadStdOutput);       Idle := FALSE;     end;     if PeekNamedPipe(FRedirector.FPipeError.hRead, nil, 0, nil,       @FRedirector.FAvailable, nil) and (FRedirector.FAvailable > 0) then     begin       Synchronize(FRedirector.ReadStdError);       Idle := FALSE;     end;     if Idle and (WaitForSingleObject(FRedirector.ProcessHandle,       100) = WAIT_OBJECT_0) then     begin       if not Terminated then         Synchronize(FRedirector.ProcessTerminated);     end;   end; end; end. //--------------------------------------------------------------------------------------

skyweb · 2002-03-15

to HD_Copy:   你给的那个uRedirector我试了一下，在Win9x/Me下对付Command.com确实没问题， 但是在对付象perl或者php还有我写的一个很简单的测试程序时，仍然工作不正常。 我的测试程序如下： program testpipe; var s: string; begin   read(s);write(s); end. 这类程序大多是调用ReadFile函数读数据，直到缓冲区满了或者文件（管道）结束， ReadFile才返回。在WinNT/XP下，关闭管道的一端时，对管道另一端的程序来说， 文件就结束了，于是ReadFile返回。但是在Win9x下，管道另一端的程序似乎检测不 到文件的结束，于是继续等待……，程序挂起。而Command.com似乎不是这样的原 理……。 总之目前为止，在Win9x/Me系统下我仍然无法用管道向被调用进程的标准输入写数据 （command.com除外）。：（ 不过，活人当然不能让尿憋死，因为就我的需求来说，主要是向被执行的子程序输出 数据，然后从子程序接收数据。这样的话，不用管道，使用临时文件来做重定向，也 可以达到要求：）。 晚一点再贴出我的代码。

skyweb · 2002-05-21

好久没怎么来了，忘了还有未结的贴子：）

命令行管道重定向问题（双向）,请tseug进来看看 (200分)

skyweb

Unregistered / Unconfirmed

ASCII

Unregistered / Unconfirmed

008chs

Unregistered / Unconfirmed

skyweb

Unregistered / Unconfirmed

savenight

Unregistered / Unconfirmed

skyweb

Unregistered / Unconfirmed

lufang

Unregistered / Unconfirmed

zhumoo

Unregistered / Unconfirmed

HD_Copy

Unregistered / Unconfirmed

skyweb

Unregistered / Unconfirmed

HD_Copy

Unregistered / Unconfirmed

skyweb

Unregistered / Unconfirmed

skyweb

Unregistered / Unconfirmed

Similar threads