вывод TMemoryStream (в консоль или passthru)

[TrUsTeR]

Что-то я торможу... Как осуществить сабж? Внутри потока бинарные данные, то есть если выводить через StringList, то им становится плохо.
То есть нужно вывести данные, как это может сделать cat.
С другой стороны php скрипт, который принимает их через passthru. Самим скриптом данные грузить не предлагать.

[v-t-l]

Код: Выделить всё

var
  m: TMemoryStream;
  o: THandleStream;
...
  o := THandleStream.Create(StdOutputHandle);
  m.Seek(0, soFromBeginning);
  o.CopyFrom(m, m.Size);
  o.Free;

[TrUsTeR]

v-t-l
Работает. Спасибо громадное за помощь! Про StdOutputHandle не знал, буду просвещаться.