TProcess, poUsePipes и Subversion (решено).

[Sagrer]

Здравствуйте.

Пытаюсь добавить в свою консольную программку возможность вытягивать кой-какую инфу из рабочей копии с помощью вызова клиента subversion (всё под windows). Для пробы есть такой код:

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

  SvnProcess := TProcess.Create(nil);
  AStringList := TStringList.Create;
  SvnProcess.Executable := 'svn';
  SvnProcess.Options := [poUsePipes, poWaitOnExit];
  SvnProcess.Parameters.Add('help');
  SvnProcess.Execute;
  //AStringList.LoadFromStream(SvnProcess.Output);
  //Writeln(AStringList.Text);
  SvnProcess.Free;
  AStringList.Free;


Так вот, если в опции проставлена poUsePipes - всё зависает на SvnProcess.Execute; (дальше не исполняется, ждёт, т.е. будто бы висит сам svn). Если убрать poUsePipes - всё работает т.е. svn выводит свое сообщение посреди вывода моей программки в её консоль. Собсно, возможно ли чего-нибудь с этим сделать кроме как лезть в WinApi и TProcess-ом вообще не пользоваться? Ибо если я прально понял - единственный способ получить вывод процесса, запущенного TProcess-ом - включить пайпы и читать из них...

[Mr.Smart]

Под винду я смог такое провернуть только с анонимными пайпами. Если честно, то с TProccess особо не разбирался. Не получилось сразу и я на него плюнул.

[Sagrer]

в общем курил-курил это дело и докурился до такого:

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

  SvnProcess := TProcess.Create(nil);
  AStringList := TStringList.Create;
  TheStringList := TStringList.Create;
  TheStringList.Clear;
  SvnProcess.Executable := 'svn';
  SvnProcess.Options := [poUsePipes];
  SvnProcess.Parameters.Add('help');
  SvnProcess.CloseInput;
  SvnProcess.Execute;
  repeat
    Writeln('!');
    AStringList.LoadFromStream(SvnProcess.Output);
    TheStringList.AddStrings(AStringList);
  until SvnProcess.Running = false;
  Writeln(TheStringList.Text);
  SvnProcess.Free;
  AStringList.Free;

Т.е. svn похоже не хочет умирать до тех пор пока вызвавший процесс не прочитает всё что оно там написало в output, так и висит в процессах, как только LoadFromStream отрабатывает (можно проследить при отладке) - процесс svn сразу умирает, такие дела.