TProcess не могу прочитать вывод

[zub]

Был fpc271 под win 7 64 - все работало.
Собрал под x86 - не могу прочитать вывод процесса

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

  AProcess.Options := AProcess.Options + [poUsePipes, poNoConsole];
  AProcess.Execute;

  AStringList := TStringList.Create;
  AMemoryStream := TMemoryStream.Create;

   BytesRead := 0;
  szBuffer := '';
  if AProcess.Running then
  begin
  while (AProcess.Running)or(AProcess.Output.NumBytesAvailable>0) do
  begin
    n := AProcess.Output.NumBytesAvailable;
....................


n всегда нулевой. запускаемая программа x86 если убрать [poUsePipes, poNoConsole] - она запускается в новой консоли нормально, такое впечатление что при появлении poUsePipes программа запускается, но не работает
при этом если запустить в tprocess например системный ping - все ок

Добавлено спустя 6 минут 36 секунд:
походу дело в запускаемой программе - она тоже скомпилирована fpc, старенький консольный rar нормально запускается и его вывод читается
В чем может быть проблема?

Добавлено спустя 17 минут 39 секунд:
Да, пересобрал ее 2.7.1 (до этого была собрана 2.6.0) всё заработало

[Ism]

sl:TStringList;
Process1:TProcess;

Process1.Execute;
sl := TStringList.Create;
sl.LoadFromStream(Process1.Output);

[zub]

Нет, нужно получать вывод процесса не после его завершения, а пока он работает и посылать ему в консоль нужные данные. Но вроде все заработало - спишу на непонятный глюк 2.6.0 неизвестной сборки.
Это небольшая гуи обертка над консольными программами типа такой:

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

program aplusb;
uses sysutils;
var
  a,b,c:double;
begin
     DecimalSeparator:='.';
     writeln('Hi! It A+B program!');
     writeln('Please enter A');
     readln(a);
     writeln('Please enter B');
     readln(b);
     c:=a+b;
     write(format('A+B=%F',[c]));
end.

Собственно эта aplusb и нехотела запускаться.
Пользователь в гуе вводит нужные данные, они скармливаются консольной программе и от нее получается результат.

[alexs]

Посмотри TAsyncProcess - Он позволяет читать вывод по мере его появления