[solved] TProcess with Windows getting Output

[relocate]

Hi,

I'm trying to get the output of an Executeable (for example ipconfig) but it always hungs itself up whenever I use the Pipes Option.

  AProcess := TProcess.Create(nil);
  AProcess.Executable := 'C:\Windows\System32\ipconfig.exe';
  AProcess.Parameters.Add('/all');
  AProcess.Options := AProcess.Options + [poWaitOnExit,poNoConsole,poUsePipes];
  AProcess.Execute;

After that I want to catch the output with an Stringlist, but the program just stops before that, no error.
Without the poUsePipes Option the programs works, but the output is a empty so it throws an exepction (access violation).

What do I miss? (The stringlist is created properly!)

Regards relocate

[marcov]

Read the wiki  ( https://wiki.freepascal.org/Executing_External_Programs ), specially the large output case.

In general you the easy way is to use runcommand, that is already a wrapper to simplify straightforward cases. It is also described in the wiki.

[relocate]

I've read the document, the program just stops after execute (it hungs there), if I use the [poUsePipes] option.
So what else should I do?

May be I give runcommand a try, but look at my foot, I use fpc 2.4.4 (runcommand needs 2.6.2+)
(I know, but actually I do not want to change my setup). And, TProcess has to work, or not.

[marcov]

I've read the document, the program just stops after execute (it hungs there), if I use the [poUsePipes] option.
So what else should I do?

You need to have a loop there that reads incrementally. As said simple example is in the large output paragraph, but the runcommand version is more elaborate. (most notably for both stdout and stderr)

And yes, you should upgrade. 2.4.4 is over ten years old. Not upgrading everytime is ok, but ten years is a bit too much.

[Jurassic Pork]

hello,
have a look to tProcessEx. TprocessEx includes Real time output management. --> see here

Friendly, J.P

[Edson]

You can use https://github.com/t-edson/UnTerminal and do:

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

1. proc.RunInLoop('cmd','/c dir', -1, outText);
2.  

There you can specify the timeout in seconds (-1 for infinite) and get the output in "outText".

I don't know if it works OK in your compiler version.

[pcurtis]

Try this (attachment)

[relocate]

@marcov
I rearranged it and it works.

   AProcess            := TProcess.Create(nil);
   AProcess.Executable := 'help';
   AProcess.Parameters.Add('/?');
   AProcess.Options := AProcess.Options + [poWaitOnExit,poUsePipes];
   AProcess.Execute;
   AStringList := TStringlist.create;
   AStringlist.LoadFromStream(AProcess.Output);
   AStringlist.SaveToFile('output.txt');

And now it does what it should. It really was the large output issue.

Yes, I once (back then) I updated to version 2.4.4 and suddenly older but working sourcecode couldn't be compiled anymore.
It took me a while to get it back compiling. So upgrading burned me a bit, and I'm not willingly updating if it is not necassary.

@Jurassic Pork (didn't knew they had pork back in jurassic time).
I really prefer out of the box solutions, sometimes I use external extentions if I see no other possibility.

@Edson (same as above)

@pcurtis
Thank you for your example, I do not use lazarus, but I will break it down to FPC only

@all
Thanks for the support.