TProcess freeze

[LemonParty]

I have this code, that by design should compile several units:

Code: Pascal  [Select][+][-]

1.   P.Executable:= CFPC;
2.   P.Options:= P.Options + [poWaitOnExit, poUsePipes];
3.  
4.   Writeln('---32 bit targets---');
5.   for i:= 0 to High(CUnitNames) do begin
6.     Write('  COMPILING ', CUnitNames[i]);
7.     P.Parameters[0]:= CUnitNames[i];
8.     P.Execute;
9.     SL.LoadFromStream(P.Output);
10.     if P.ExitCode = 0
11.       then Writeln(' OK')
12.       else Writeln(SL.Text);
13.   end;

P is TProcess, SL – TStringList. When I run this code it freeze at P.Execute. What the problem?

[marcov]

Search for large output here, and implement it.

https://wiki.freepascal.org/Executing_External_Programs

[LemonParty]

No, still freeze.

[marcov]

Then you maybe need stderr processing too, see implementation of runcommandloop. (or use runcommand)

[LemonParty]

I solved this by using RunCommandInDir this way:

Code: Pascal  [Select][+][-]

1. RunCommandInDir('', CFPC, RunSwitches, Output, ExitCode)

RunCommandInDir by default wait until process finish.
Thank you for help.