Вывод содержимого консоли в TextBox

[Lamer_Pavel]

Я хочу,чтобы содержимое консоли выводилось в TextBox.
Но,пользуясь своим кодом,приложение зависает,
и покажет,что было в консоли,после того,как я закрою консоль(и
после этого перестает зависать само приложение).
Что у меня неправильно в коде?

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

Private SWOutput As IO.StreamReader
Private CmdProc As Process
Private StartInfo As ProcessStartInfo

    Public Sub Initialise(ByVal Console As String,arg as String)
        StartInfo = New ProcessStartInfo(Console,arg)
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False
        StartInfo.CreateNoWindow = True
        CmdProc = Process.Start(StartInfo)

    End Sub

    Public Function Read() As String
        On Error GoTo err

        SWOutput = CmdProc.StandardOutput
        read = SWOutput.ReadToEnd
        SWOutput.Close()
err:
    End Function


[Ramzes]

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


PS RTFM

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

[Lamer_Pavel]

Понял ошибку,надо заменить

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

read = SWOutput.ReadToEnd


на

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

read = SWOutput.ReadLine


Убрать обработчик ошибок,а также

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

SWOutput.Close()


И прога не тормозит

[brigval]

У меня вот так заработало считывание с консоли.

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

Public Function Read() As String
       
        SWOutput = CmdProc.StandardOutput

        cmdProc.WaitForExit(1)
        If Not cmdProc.HasExited Then cmdProc.Kill()

        read = SWOutput.ReadToEnd
        SWOutput.Close()
        cmdProc.Close()

End Function