Visual Basic

Private Sub StartConsoleRead(ByRef st As Stream)
        Dim rdo As New ReadData
        'rdo.s = _conStream.BaseStream
        rdo.s = st

        Dim consoleReadAsyncCallback As New AsyncCallback(AddressOf ConsoleReadCallback)
        _conStream.BaseStream.BeginRead(rdo.buffer, 0, rdo.buffer.Length, consoleReadAsyncCallback, rdo)
    End Sub

    Private Sub ConsoleReadCallback(ByVal asyncResult As IAsyncResult)
        Dim rdo As ReadData = DirectCast(asyncResult.AsyncState, ReadData)
        Dim bytesRead As Integer = rdo.s.EndRead(asyncResult)
        Dim enc As Encoding = Encoding.ASCII
        Dim s As String = enc.GetString(rdo.buffer, 0, bytesRead)

        CmdOutput.Invoke(UpdateCmdOutputDelegate, New Object() {s})
        StartConsoleRead(rdo.s)
    End Sub
 
 

Public Class ReadData
    Public buffer(20480) As Byte
    Public s As Stream
End Class

 Private Sub Run_FAST_Tool()

    Dim sAppPath As String = ".\FAST.exe"
    Dim fileName As String = objFASTPrimaryData.FASTPrimaryFileName_FST
    Dim p As New System.Diagnostics.Process()

    Dim rtnStr As String = String.Empty

    p.StartInfo.FileName = Application.StartupPath & "\" & sAppPath
    p.StartInfo.Arguments = fileName

    'Do not use the system shell to start the program this is so we can hide the command dos window
    p.StartInfo.UseShellExecute = False
    p.StartInfo.WorkingDirectory = strOutputFilePath
    ' Show no dos window if false
    p.StartInfo.CreateNoWindow = True
    p.StartInfo.RedirectStandardOutput = True

    Dim progBarFrm As New FormProgressBar
    progBarFrm.Show()
end sub

Private Sub OnProcesited(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim p As System.Diagnostics.Process
        p = sender

        Dim rtnStr As String = String.Empty
        rtnStr = p.StandardOutput.ReadToEnd()

        If rtnStr.Contains(" FAST terminated normally.") = True Then
            rtnStr = rtnStr & vbCrLf & "Please click Postprocess -> View Output File in menu to view the file."
            updateViewMenu()
        End If
        progBarFrm.Close()
        progBarFrm.Dispose()

        Dim frm As New FormShowFASTResult
        frm.txtFASTResult.Text = rtnStr
        frm.Button1.Select()
        frm.ShowDialog()

    End Sub


    Private Sub Run_Tool()

        Dim sAppPath As String = ".\XXXXX.exe"
        Dim fileName As String = "XXXXX.txt"
        Dim p As New System.Diagnostics.Process()



        p.StartInfo.FileName = Application.StartupPath & "\" & sAppPath
        p.StartInfo.Arguments = fileName

        'Do not use the system shell to start the program this is so we can hide the command dos window
        p.StartInfo.UseShellExecute = False
        p.StartInfo.WorkingDirectory = strOutputFilePath
        ' Show no dos window if false
        p.StartInfo.CreateNoWindow = True
        p.StartInfo.RedirectStandardOutput = True
        p.EnableRaisingEvents = True
        AddHandler p.Exited, AddressOf OnProcesited


        progBarFrm = New FormProgressBar

        Try
            p.Start()

            progBarFrm.Show()
            progBarFrm.Refresh()            
        Catch ex As Exception
            ShowValidationMessage("Unexception error is caught, please close and try again.", "Error")
            
            Return
        End Try    
   End Sub

<br />
<br />
Report_DateFromTo.ParameterFields.Item(1).AddCurrentValue Me.DTPicker1.Value<br />
Report_DateFromTo.ParameterFields.Item(2).AddCurrentValue Me.DTPicker2.Value<br />
Me.CRViewer1.ReportSource = Report_DateFromTo<br />
Me.CRViewer1.ViewReport<br />
<br />
<br />