Opening a TStream on stdin/stdout in a Delphi console app

Question

I'm trying to write a Delphi console application that creates a TStream for its standard input, and another TStream for its standard output.

(It will be launched by a host app with its input and output redirected to pipes, and will be passing binary data to/from that host app, so TStream will be much better-suited to the task than ReadLn/WriteLn.)

How do I go about opening a TStream on standard input or standard output?

score 41 · Accepted Answer · edited Jun 02 '11 at 12:23

41

Off the top of my head:

  InputStream := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
  OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));

Give that a go..

edited Jun 02 '11 at 12:23

Blorgbeard

101,031
48
228
272

answered Jun 29 '09 at 22:38

Allen Bauer

16,657
2
56
74

6

Indeed it does, very nicely. Thanks! – Joe White Jun 30 '09 at 17:58
2

Note that you'll need the Windows unit in your uses clause for the GetStdHandle function. – Drarok Oct 11 '11 at 16:02
3

Is there a cross-platform way to do the same? – himself May 24 '13 at 19:31

Opening a TStream on stdin/stdout in a Delphi console app

1 Answers1

Linked