Sorry, I misled you. I did move it higher up, earlier, to test
something, and I forgot to put it back.
This version has exactly the same behaviour:
-rw-r--r-- 1 peterbrooks wheel 0 21 May 13:00 output.txt
Program nmp(input,output);
uses
Classes, SysUtils, Process;
var
AProcess: TProcess;
AStringList: TStringList;
n :Integer;
begin { main }
for n := 0 to 20 do
begin { for }
AStringList := TStringList.Create;
AProcess := TProcess.Create(nil);
AProcess.Executable := 'ping';
AProcess.Parameters.Add('-c 1');
AProcess.Parameters.Add('www.freepascal.org');
AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
AProcess.Execute;
Writeln(n,' Execution Over: Exit Status: ',AProcess.ExitStatus);
AStringList.Add('stdout:');
AStringList.LoadFromStream(Aprocess.Output);
AStringList.Add('stderr:');
AStringList.LoadFromStream(AProcess.Stderr);
AStringList.LoadFromStream(AProcess.Output);
AStringList.SaveToFile('output.txt');
writeln(AStringList.Text);
AstringList.Free;
AProcess.Free;
end; {for}
close(output);
close(input);
end.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
