VB.NET Получение статуса live из другого приложения

Question

С моим приложением я вызываю инструмент внешней командной строки, который обращается к другим файлам. Прямо сейчас я просто вызываю iso-конвертер, и он будет работать в фоновом режиме, когда вы запустите изо-конвертер через командную строку, вы увидите, что он делает, но в моем приложении он просто работает в фоновом режиме.

Прямо сейчас он дает мне статус после того, как isoconverter сделан в текстовом поле, как я могу изменить это, чтобы я мог видеть статус в реальном времени? как я увижу в инструменте командной строки?

Это код, который я вызываю для выполнения изоконвертера.

Private Sub GETCMD3() 
    Dim CMDprocess As New Process 
    Dim StartInfo As New System.Diagnostics.ProcessStartInfo 
    StartInfo.FileName = "cmd" 
    StartInfo.CreateNoWindow = True 
    StartInfo.RedirectStandardInput = True 
    StartInfo.RedirectStandardOutput = True 
    StartInfo.UseShellExecute = False 
    CMDprocess.StartInfo = StartInfo 
    CMDprocess.Start() 
    Dim SR As System.IO.StreamReader = CMDprocess.StandardOutput 
    Dim SW As System.IO.StreamWriter = CMDprocess.StandardInput 
    SW.WriteLine("Isoconvert.exe " & txtIsoFile.Text) 
    SW.WriteLine("exit") 
    txtIsoOutput.Text = SR.ReadToEnd 
    SW.Close() 
    SR.Close() 
End Sub 

Answer 1

Проблемы с текущим кодом является линией

txtIsoOutput.Text = SR.ReadToEnd 

Это читает стандартный выходной поток команды до тех пор, пока не будет завершено. Как только он будет завершен, он присваивает результат вашему текстовому полю.

Вы хотите вместо этого читать с StreamReader немного за раз, используя StreamReader.ReadLine или, возможно, ReadBlock.

Что-то вроде:

Dim line as String 
Do 
    line = SR.ReadLine() 
    If Not (line Is Nothing) Then 
     txtIsoOutput.Text = txtIsoOutput.Text + line + Environment.NewLine 
    End If 
Loop Until line Is Nothing 

Это, вероятно, не будет достаточно хорошо, хотя. Поток пользовательского интерфейса теперь занят обработкой вывода команды, поэтому TextBox не получает возможности обновить его отображение. Самый простой способ исправить это - добавить Application.DoEvents() после изменения текста. Обязательно отключите любые кнопки/меню, которые вызывают GETCMD3, когда начинается GETCMD3.

Answer 2

Я не уверен, возможно, доступ к потокам процессов и проверка статуса?

Что-то вроде этого:

CMDprocess.Threads(0).ThreadState = ThreadState.Running 

Answer 3

[Offtopic] Я просматривал ваш код, и, возможно, я нашел лучшее aproach в том, как вы можете запустить Isoconvert.exe.

Если я не ошибаюсь, вы можете запустить Isoconvert.exe, используя startinfo, без необходимости запуска консольной команды.

Dim CMDprocess As New Process 
Dim StartInfo As New System.Diagnostics.ProcessStartInfo 
StartInfo.FileName = "Isoconvert.exe" 
StartInfo.Arguments = txtIsoFile.Text 
CMDprocess.StartInfo = StartInfo 
CMDprocess.Start() 

Я думаю, вы все еще можете читать и писать stdin и stdout.