How do I read a console apps output as it is running. I start the console application and would like to read the output as it is printed by the console app.
+7
A:
What about this solution.
EDIT: the link leads to this solution (lightly refactored for legibility and to remove use of with
):
// The example runs 'chkdsk.exe c:\' and displays the output to Memo1.
// Put a TMemo (Memo1) and a TButton (Button1) on your form. Put this
// code in the OnCLick event procedure for Button1:
procedure TForm1.RunDosInMemo(DosApp:String;AMemo:TMemo) ;
const
ReadBuffer = 2400;
var
Security : TSecurityAttributes;
ReadPipe,
WritePipe : THandle;
start : TStartUpInfo;
ProcessInfo : TProcessInformation;
Buffer : Pchar;
BytesRead : DWord;
Apprunning : DWord;
begin
Security.nlength := SizeOf(TSecurityAttributes) ;
Security.binherithandle := true;
Security.lpsecuritydescriptor := nil;
if Createpipe (ReadPipe, WritePipe, @Security, 0) then
begin
Buffer := AllocMem(ReadBuffer + 1) ;
FillChar(Start,Sizeof(Start),#0) ;
start.cb := SizeOf(start) ;
start.hStdOutput := WritePipe;
start.hStdInput := ReadPipe;
start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
start.wShowWindow := SW_HIDE;
if CreateProcess(nil,
PChar(DosApp),
@Security,
@Security,
true,
NORMAL_PRIORITY_CLASS,
nil,
nil,
start,
ProcessInfo) then
begin
repeat
Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100);
Application.ProcessMessages;
until (Apprunning <> WAIT_TIMEOUT) ;
repeat
BytesRead := 0;
ReadFile(ReadPipe,Buffer[0],
ReadBuffer,BytesRead,nil) ;
Buffer[BytesRead]:= #0;
OemToAnsi(Buffer,Buffer) ;
AMemo.Text := AMemo.text + String(Buffer) ;
until (BytesRead < ReadBuffer) ;
end;
FreeMem(Buffer) ;
CloseHandle(ProcessInfo.hProcess) ;
CloseHandle(ProcessInfo.hThread) ;
CloseHandle(ReadPipe) ;
CloseHandle(WritePipe) ;
end;
end;
procedure TForm1.Button1Click(Sender: TObject) ;
begin
RunDosInMemo('chkdsk.exe c:\', Memo1) ;
end;
ErvinS
2009-07-31 12:52:49
nice suggestion for those who follow the link, but a link alone is not a really good answer, see: http://meta.stackoverflow.com/questions/8231/are-answers-that-just-contain-links-elsewhere-really-good-answers
Argalatyr
2009-07-31 16:17:06
I posted the code from the link.
Mick
2009-07-31 16:20:56
@Mick: oops - while you were doing that in a new answer, I was editing the old one. If someone feels my edit should be rolled back, feel free to do so.
Argalatyr
2009-07-31 16:34:18
No worries. I deleted my comment then.
Mick
2009-07-31 18:27:15
@Argalatyr: ok thanks, i will include code in the future.
ErvinS
2009-08-03 06:10:54
This does not read the output as it comes, it only reads everything right at the end ... that is not what i am looking for.
2009-08-03 12:56:27
Shame it's not quite what you're looking for, but this code is what I was looking for, thanks none the less.
Robo
2010-03-24 22:25:45
A:
You can always just run the application from the command prompt.
Frank Shearar
2009-07-31 13:07:33
He wants to read the console output in-process. So redirecting the output using CreatePipe is the solution
Scoregraphic
2009-07-31 13:11:42
A:
I usually use this ported FPC code: http://www.stack.nl/~marcov/processdelphi.zip
It contains a class to control external programs (it is the class used by Lazarus to call the cmdline compiler and other programs).
Documentation is here, but the delphi port is a bit old, so not all documented properties might exist in the above version.
Marco van de Voort
2009-08-02 10:18:11