控制台程序重定向(同步方式)

2010-04-22 01:34:38 304 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows下实现控制台程序输出重定向到其他进程(iperf为例) 本篇文章主要介绍windows下如何将一个应用程序的输出重定向到另一个进程中，主要原理是通过匿名管道实现进程信息的重定向。工作中有时会遇到这样一个场景，应用程序A.exe需要调用应用程序B.exe进行一些辅助性操作，同时，A还需要获取B执行后的输出结果，以便于在A中根据B的输出结果进行相关的操作。本文主要解决的就是上述问题。以iperf为例，iperf是一个网络吞吐量测试工具，它可以测试当前的... 阅读详情

...全文

控制台程序的标准输入输出的重定向控制台程序的标准输入输出的重定向今天终于解决这个问题困扰我几个月的问题，心里很高兴！！！在使用重定向技术需要注意以下几个问题：1、子进程程序每一句输出代码后需要调用fflush(stdout)函数，这样把输出的内容放入缓冲区，父进程才能及时的读到输出数据2、如果不是使用fflush(stdout)函数,子进程使用gets()函数会阻止子进程的线程运行3、重定向最好使用完成端口，这样可阅读详情

feixuyue

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

feixuyue 2010-04-29

打赏
举报

异步代码给上:
Imports System.IO
Imports System.Threading
''' <summary>
''' 此类实现将程序实现重定位输入和输出(异步方式读取)
''' </summary>
''' <remarks></remarks>
Public Class Shell_exe
#Region "声明"
Implements IDisposable

Dim CmdPcs As New Process
Dim Displayer As TextBoxBase = Nothing
Dim file_name As String = String.Empty
Protected disposed As Boolean = False
Private Delegate Sub Write(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
#End Region
#Region "构造和析构"
Public Sub New(ByRef filename As String)
file_name = filename
End Sub
Public Sub New(ByRef filename As String, ByRef sender As TextBoxBase)
file_name = filename
Displayer = sender
End Sub

Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposed Then
If disposing Then
CmdPcs.CancelErrorRead()
CmdPcs.CancelOutputRead()
CmdPcs = Nothing
file_name = Nothing
End If
Displayer = Nothing
End If
Me.disposed = True
End Sub

Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub

Protected Overrides Sub Finalize()
Dispose(False)
MyBase.Finalize()
End Sub

#End Region
#Region "方法"
Public Function Shell(ByRef sender As Object, ByRef sw As StreamWriter) As Boolean
Displayer = sender
Shell(sw)
End Function

Public Sub Shell(ByRef sw As StreamWriter)
Try
CmdPcs = New Process
With CmdPcs.StartInfo
.FileName = file_name
.UseShellExecute = False
.CreateNoWindow = True
' .WindowStyle = ProcessWindowStyle.Hidden
.RedirectStandardInput = True
.RedirectStandardOutput = True
.RedirectStandardError = True
End With
CmdPcs.Start()
sw = CmdPcs.StandardInput
CmdPcs.BeginErrorReadLine()
CmdPcs.BeginOutputReadLine()
AddHandler CmdPcs.ErrorDataReceived, AddressOf Output
AddHandler CmdPcs.OutputDataReceived, AddressOf Output
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Public Sub Kill()
Try
CmdPcs.Kill()
Catch ex As Exception
End Try
End Sub
Private Sub Output(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
Try
If Not String.IsNullOrEmpty(e.Data) Then
If Displayer.InvokeRequired Then
Displayer.Invoke(New Write(AddressOf Output), sender, e)
Else
Displayer.AppendText(e.Data & vbCrLf)
Displayer.ScrollToCaret()
End If
End If
Catch ex As Exception
End Try
End Sub
#End Region
End Class
其实上面的代码基本满足我的需要,就是当程序提示要输入数据时,没有提示语言,
因为DataReceivedEventArgs只有当有回车符号时,才触发,所以就没有提示语言,
只有输入数据后,提示语言跟数据一起显示.

兔子-顾问 2010-04-29

打赏
举报

我想了一下，不是很明白你最终要实现的。大概的理解是你想实现
.net程序->调用控制台->调用dos命令->用户确认->继续执行->...
这样效果么？

如果这样，你要考虑，用户确认这个地方可能太多了，用户可能直接敲exit退出命令窗口的哦。我能想到的方法是这样的。
1.新建的是个控制台程序
2.你要调用就调用，结果定向输出到控制台
3.操作完都回到循环状态等待用户输入，如果用户输入的是dos命令则后台执行，结果送回给控制台，模拟一个这样效果。

wsk200209 2010-04-23

打赏
举报

不清楚

feixuyue 2010-04-22

打赏
举报

有没有人能给个代码,感激不尽!

feixuyue 2010-04-22

打赏
举报

控制台程序重定向(同步方式)

相关推荐