Run DOS program inside Delphi on NT, capturing output. (Proctest dont work)
scaddenp
with a DOS
program (16bit not a console-mode app) under Win NT. I want to capture the
output from the DOS program which does write to standard output (piping
works) into a memo for inspection.
I have used David Rifkind's excellent Proctest for my code and it has no
problem with
32bit console-mode programs. When I try to execute the DOS program, the
createprocess
call dies with "Access denied" (error 5). Presume createprocess is not
configured for
starting a dos mode box???
The command is mkchrt -C -Dfile.
If I instead execute
cmd /c mkchrt -C -Dfile,
mkchrt runs perfectly except:
1/ A dos box window appears on the screen (though it is always empty)
2/ I dont get any output captured from program.
Any ideas please??
Colin Lees
the DOS program to complete then read the file back into the DELPHI program.
Colin.
scaddenp wrote in message <8ncbb8$2bf3$1...@news.comnet.co.nz>...
Johan Smit
<co...@broomfield-elland.freeserve.co.uk> wrote:
>I send the output from the DOS program to a file, wait on a timer to allow
>the DOS program to complete then read the file back into the DELPHI program.
>
>Colin.
>
>scaddenp wrote in message <8ncbb8$2bf3$1...@news.comnet.co.nz>...
Hi,
First of all, I know nothing about Win2000 or NT, and I am no expert.
Even so, maybe I can point in the right direction because I ran into
the same problem on Win95.
Quoting MS:
Due to implementation differences on the Microsoft Windows 95, Windows
98, and Microsoft Windows NT platforms, programs need an intermediate
Win32 Console Application to successfully redirect the output of
16-bit console based applications (MS-DOS applications and batch
files) on Windows 95 and Windows 98.
unquote (Q190351 and others)
The pipe hangs if you do not have an intermediate Win32 console based
app to run the Dos app from.
Basically, what you need to do is to
1. allocate a console window (AllocConsole) for your dos app.
2. use SetWindowPlacement to hide the console window
3. use CreateProcess to launch the dos app.
4. periodically check for the output in the (hidden) console window,
use ReadConsoleOutputCharacter to read lines from the console window.
StartUpInfo : TStartupInfo;
WinPlacement:TWindowPlacement;
FillChar(StartupInfo,Sizeof(TStartupInfo),#0);
StartupInfo.cb := Sizeof(TStartupInfo);
AllocConsole;
WinPlacement.Length:=sizeOf(TWindowPlacement);
WinPlacement.showCmd:=sw_hide;
SetWindowPlacement(GetForegroundWindow,@WinPlacement);
st := ExtractFilePath(Application.ExeName) + DosApp name and command
line
CreateProcess(nil,PChar(st),nil,nil,FALSE,0,nil,nil,StartupInfo,ProcessInfo);
then use ReadConsoleOutputCharacter(GetStdHandle(Std_Output_Handle),
Readbuffer,80,CoordArray,CharsRead) to read output if you like.
to check if Dos app is done:
if WaitForSingleObject(ProcessInfo.hProcess,0)=WAIT_OBJECT_0 THEN
FreeConsole; { "deletes" the console window }
David Rifkind's excellent Proctest? Please tell me more, where to get
please?
Regards
Johan Smit
scaddenp
>David Rifkind's excellent Proctest? Please tell me more, where to get
>please?
http://www.subnormal.com/download/proctest.zip
But it doesnt handle the intermediary console. Thanks very much for that!
Smola
>If I instead execute
>
>cmd /c mkchrt -C -Dfile,
>
>mkchrt runs perfectly except:
>1/ A dos box window appears on the screen (though it is always empty)
>2/ I dont get any output captured from program.
>
>Any ideas please??
>
What happens if you run this :
cmd /c mkchrt -C -Dfile >> output.txt
If the file output.txt is filled, you can analyze that. If it's not
working,maybe you can put this line in a batch file.
Smola
--
And, then you read this...
(use "ansmolci@" to reply)
(http://www.katedrala.com/ass}
scaddenp
Smola wrote in message <39a08316...@news.iskon.hr>...
>What happens if you run this :
>
>cmd /c mkchrt -C -Dfile >> output.txt
>
>If the file output.txt is filled, you can analyze that. If it's not
>working,maybe you can put this line in a batch file.
This is indeed what I did until found out about the intermediary console. It
worked fine except that you got no feedback till the program completed.