[OSIRIS]

ситуация следующая:
есть консольное приложение, после запуска надо в него предавать данные и считывать результат соответственно

перекопал много чего - рабочего примера так и не нашел

самое близкое - исходники redirect-a ( http://vovan-ve.fatal.ru/download/55 )
но там проблема с кодировкой

пробовал

компонент RusCod1 - не помогло

функции

Код:

function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

//---------------------------------------------------------------
function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

Админ: Пользуемся тегами для оформления кода!

тоже не спасают

PS:
Embarcadero® RAD Studio XE 2010
Windows 7 проф.