home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / os / msdos / programm / 8671 < prev    next >
Encoding:
Internet Message Format  |  1992-08-20  |  3.3 KB
  1. Xref: sparky comp.os.msdos.programmer:8671 comp.lang.pascal:4935
  2. Path: sparky!uunet!gumby!wupost!waikato.ac.nz!canterbury.ac.nz!phys169
  3. Newsgroups: comp.os.msdos.programmer,comp.lang.pascal
  4. Subject: Re: How can I redirect STDERR into a file ?
  5. Message-ID: <1992Aug21.113845.448@csc.canterbury.ac.nz>
  6. From: phys169@csc.canterbury.ac.nz
  7. Date: 21 Aug 92 11:38:44 +1200
  8. References: <4117@bimacs.BITNET>
  9. Organization: University of Canterbury, Christchurch, New Zealand
  10. Lines: 91
  11.  
  12. In article <4117@bimacs.BITNET>, tamari@bimacs.BITNET (tamari zvi) writes:
  13. >   I wrote a program in Turbo Pascal that executes dos command and redirect it's
  14. >   output into a file.
  15. >   However, when an error accours the error message appear on the screen rather
  16. >   than find it's way into the output file.
  17. > 
  18. >   So, the question is how can I redirect these error messages into a file ?
  19. >   (it does'nt have to be the output file.
  20.  
  21. You can redirect any of the standard handles by duplicating the file handle,
  22. closing the original file, openning it again using a different file, and
  23. putting things back the way they were after executing the DOS commands.
  24.  
  25. There does seem to a be problem in Turbo Pascal, though, if you redirect a
  26. standard handle then exit the program... Turbo's wrap-up code seems to restore
  27. things automatically, undoing the redirection.
  28.  
  29. Here's a bit of Turbo Pascal to do something like what you ask...
  30.  
  31. program TryRedirect; {redirect StdErr during execution of a command}
  32. uses DOS;
  33. const
  34.   StandardInputHandle = 0;
  35.   StandardOutputHandle= 1;
  36.   StandardErrorHandle = 2;
  37.   StandardPrinterHandle=4;
  38.   StandardAuxHandle   = 3;
  39.  
  40. var RedirectionFile : text;
  41.     OldHandle       : word;
  42.     reg             : registers;
  43.     st,
  44.     param1,
  45.     param2          : string;
  46.  
  47. procedure WriteToStandardFile(Handle : word; st : string);
  48. begin
  49. with reg do begin
  50.             AH:=$40; BX:=handle; CX:=length(st);
  51.             DS:=seg(st); DX:=ofs(st[1]);
  52.             MsDos(reg);
  53.             if odd(Flags) then DosError:=AX else DosError:=0;
  54.             end;
  55. end;
  56.  
  57.  
  58. function RedirectHandle(HandleToRedirect,NewFileHandle : word) : word;
  59. begin
  60. with reg do
  61.      begin
  62.      AH:=$45;
  63.      BX:=HandleToRedirect;
  64.      MsDos(reg);   {Duplicate a file handle}
  65.      RedirectHandle:=AX; {Return the temporary copy of the original handle}
  66.      AH:=$46;
  67.      CX:=HandleToRedirect;
  68.      BX:=NewFileHandle;
  69.      if BX<>CX then MsDos(reg); {MSDOS might hang if BX=CX!}
  70.      end;
  71. end;
  72.  
  73. procedure UnRedirect(HandleToRedirect,OldFileHandle : word);
  74. begin
  75. with reg do
  76.      begin
  77.      AH:=$46;  {force duplicate handle}
  78.      CX:=HandleToRedirect;
  79.      BX:=OldFileHandle;
  80.      if BX<>CX then MsDos(reg); {MSDOS might hang if BX=CX!}
  81.      AH:=$3E;  {close a handle}
  82.      BX:=OldFileHandle;
  83.      MsDos(reg);
  84.      end;
  85. end;
  86.  
  87.  
  88. begin
  89. writeln('Redirection of stderr to a file (LPT1 in this demo)');
  90. writeToStandardFile(StandardErrorHandle,' This was teh StdErr file...'^M^J);
  91. assign(RedirectionFile,'LPT1');
  92. rewrite(RedirectionFile);
  93. writeln(RedirectionFile,'This is the file to get the redirected output...');
  94. OldHandle:=Redirect(StandardErrorHandle,TextRec(RedirectionFile).handle);
  95. close(RedirectionFile);
  96. WriteToStandardFile(StandardErrorHandle,'This goes to the standard error file');
  97. exec('c:\COMMAND.COM','/C something');
  98. UnRedirect(StandardErrorHandle,OldHandle);
  99. end.
  100.  
  101. Hope this helps,
  102. Mark Aitchison, University of Canterbury, New Zealand.
  103.