exception EInoutError in the Data Module at 000C50BC I/O Error 103

Question

I was running an application in Delphi4 and then I got the error

Exception EInoutError in the Data Module at 000C50BC I/O Error 103

I basically ...could not make head or tails of it....i was not able to open/run the .exe file through the Delphi GUI but was able to run it.

Kindly help.

    {
****************************************************************************
* The WritelnXx routines are used to send status information to standard
* output.
****************************************************************************
}
procedure WritelnIn(const s: string; level: integer = 0); overload;
  var
    i: Integer;
  begin
    for i := 1 to level do Write('    ');
    **Writeln(s);**
  end;

procedure WritelnIn(const s: string; e: Exception; level: integer = 0); overload;
  begin
    WritelnIn(s + '[' + e.message + ']', level);
  end;

procedure WritelnAb(const s: string; level: integer = 0); overload;
  begin
    WritelnIn(s, level);
    Abort;
  end;

procedure WritelnAb(const s: string; e: Exception; level: integer = 0); overload;
  begin
    WritelnIn(s, e, level);
    Abort;
  end;

The error is showing at " Writeln(s);"...in the same file DataMagr.dpr

Answer 1

I/O Error 103 is File Not Open. According to the Delphi 7 help file:

"Reported by CloseFile, Read/Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open."

Also, what does this have to do with your other question that you've provided a link to above?

Answer 2

Make sure the application is compiled as a console application {$APPTYPE CONSOLE} since calling Write or Writeln to write to stdout and the console is not opened, it will fail like this. Using {$APPTYPE CONSOLE} will have the side-effect of either using the existing console from which the application is started, or create a new console window to use.

Another solution is to redirect the Output standard text file (stdout) to a file. Try this:

AssignFile(Output, 'logfile.log');
Rewrite(Output);

Now all regular "Write" or "Writeln" calls will go to "logfile.log" file.