Независим от платформата начин за проверка дали Writeln to Output може да се използва безопасно?

Не е окончателен отговор, но напишете {$IFDEF} зависещи от платформата извиквания към независим от платформата POSIX базиран C API функция

int fileno (FILE *stream)

..Тази функция връща файловия дескриптор, свързан с потока на потока. Ако бъде открита грешка (например, ако потокът не е валиден) или ако потокът не прави I/O към файл, fileno връща -1

...

Има също символни константи, дефинирани в unistd.h за файловите дескриптори, принадлежащи към стандартните потоци stdin, stdout и stderr...

STDOUT_FILENO .. Този макрос има стойност 1, която е файловият дескриптор за стандартен изход.

STDERR_FILENO .. Този макрос има стойност 2, която е файловият дескриптор за стандартен изход за грешка.

Така че, ако независимата от платформата заявка за fileno за поток, който съответства на изхода на конзолата, върне 2 или 1, тогава не сте пренасочени, ако върне -1, тогава изходът ви няма край

Точният код вероятно ще бъде различен за Delphi и Free Pascal и Virtual Pascal и GNU Pascal. Разгледайте библиотеките по време на изпълнение за целевите платформи, които ви интересуват, напр.

• http://svn.freepascal.org/svn/fpc/trunk/rtl/win32/system.pp

• http://svn.freepascal.org/svn/fpc/trunk/rtl/linux/system.pp

След като се разрових в System.pas, стигнах до това решение:

function CanWriteln: Boolean;
begin
{$IFOPT I+}
  {$DEFINE IOCHECK_ON}
  {$I-}
{$ENDIF}
  if TTextRec(Output).Mode <> fmClosed then
    Result := True
  else
  begin
    Rewrite(Output);
    Result := IOResult = 0;
  end;
{$IFDEF IOCHECK_ON}
  {$I+}
{$ENDIF}
end;

Тестван само на Windows с различни настройки ({$APPTYPE CONSOLE}, настройка „Генериране на конзолно приложение“, AllocConsole), но във всички случаи работи правилно.

Бих използвал механизма за изключение.

Нещо като това:

type
  trilean = (dunno, yes, no);

  TLogger = class(TSomething)
  private
    class var FConsoleIsSafe: trilean;
    function GetConsoleIsSafe: boolean;
  public
    property ConsoleIsSafe: boolean read GetConsoleIsSafe; 
  ....

implementation

function TLogger.GetConsoleIsSafe: boolean;
begin
  if (FConsoleIsSafe = dunno) then try
    WriteLn('test'); 
    FConsoleIsSafe:= yes;
  except
    FConsoleIsSafe:= no;
  end;
  Result:= (FConsoleIsSafe = yes);
end;