Redirect message in terminal to a log file.

[fredvs]

Hello.

PortAudio and Mpg123 libraries produces lot of debug message if you run a application via terminal.

Here how to do to redirect all those messages to a log file:

program mytmessage_redirect;
  uses   ...,  Classes, BaseUnix;
      ...
     var
        fs: TFileStream;
      begin
         fs := TFileStream.Create('error.log', fmOpenReadWrite or fmCreate);
         FpDup2(fs.Handle, StdErrorHandle);
          ...
         Application.run;
         fs.free;
      end.