Всем доброго утра! Суть в чем: есть такое консольное приложение (скрипт Perl)
for($x=0; $x<20; $x++) {
print "$x\n";
sleep 1;
}
Нужно перехватить его вывод в TextBox WinForms приложения.
Мой код:
Process _procPerl;
private void bStartProc_Click(object sender, EventArgs e)
{
_procPerl = new Process();
_procPerl.StartInfo.FileName = "perl.exe";
_procPerl.StartInfo.UseShellExecute = false;
_procPerl.StartInfo.RedirectStandardOutput = true;
_procPerl.StartInfo.CreateNoWindow = true;
_procPerl.StartInfo.Arguments = tbParams.Text;
_procPerl.EnableRaisingEvents = true;
_procPerl.Exited += _procPerl_Exited;
_procPerl.OutputDataReceived += _procPerl_OutputDataReceived;
if (_procPerl.Start())
{
_procPerl.BeginOutputReadLine();
bStopProc.Enabled = true;
bStartProc.Enabled = false;
}
}
void _procPerl_Exited(object sender, EventArgs e)
{
Action Exited = delegate() {
bStopProc.Enabled = false;
bStartProc.Enabled = true;
};
Invoke(Exited);
}
void _procPerl_OutputDataReceived(object sender, DataReceivedEventArgs e)
{
Action<object> Received = delegate(object s) {
if(s != null)
tbOutput.AppendText(s.ToString() + Environment.NewLine);
};
Invoke(Received, (object)e.Data);
}
private void bStopProc_Click(object sender, EventArgs e)
{
if (_procPerl != null && !_procPerl.HasExited)
_procPerl.Kill();
bStopProc.Enabled = false;
bStartProc.Enabled = true;
}
Проблема в том, что _procPerl_OutputDataReceived срабатывает только после завершения процесса _procPerl, а надо, чтобы срабатывало по мере реального вывода (чтобы выводило как в консоли, каждая строка через одну секунду, см. код Perl).