Stdout from program

[tomek]

Is there any way to catch/redirect stdout of program in program ?
I want to get like debugln messages in my app (as ex. in Memo component) ? Something like catch self stdout.

[eny]

Not tested, but maybe this does the trick:
http://stackoverflow.com/questions/1060591/opening-a-tstream-on-stdin-stdout-in-a-delphi-console-app

[Leledumbo]

wiki.lazarus.freepascal.org/Executing_External_Programs

[tomek]

@leledumbo, you do not understand me, I want to catch self output.

@eny, thanks for hint, but it doesn't work, I also try with:

Code: [Select]

GetStdHandle(STD_OUTPUT_HANDLE)
 ReadConsoleOutputCharacter
and it's work only with nogui app (without -WG) or if I use AllocConsole before GetStdHandle(STD_OUTPUT_HANDLE).
It seams that it will work only with console.
I wonder how can help  --debug-log application parameter, which probably redirects STDOUT.

[eny]

The question is: why do want to access stdout?
If it's for logging purposes it might be better to use a logging package like log4delphi (which has a FPC port).

[theo]

Or this:
http://wiki.lazarus.freepascal.org/MultiLog

[tomek]

The question is: why do want to access stdout?
...

I use dll in the program, that dll provides only output as "print to stdout". And I want to have this output in gui app (without console). That's the problem.

[eny]

Google reveals this link: http://stackoverflow.com/questions/2639144/delphi-capture-stdout-and-stderr-output-from-statically-linked-msvc-compiled
That might help.

[tomek]

Google reveals this link: http://stackoverflow.com/questions/2639144/delphi-capture-stdout-and-stderr-output-from-statically-linked-msvc-compiled
That might help.

THANKS. That's it.
I use with Pipe, CreatePipe and SetStdHandle(STD_OUTPUT_HANDLE, hWriteToPipe) and I have output wherever I want. 

[mirco]

I use with Pipe, CreatePipe and SetStdHandle(STD_OUTPUT_HANDLE, hWriteToPipe) and I have output wherever I want. 

Could you share your solution, please?
Thank you.