Textdatei offen? [gelöst]

[diogenes]

Ich würde gerne feststellen, ob bestimmte Textdateien, spezifisch Output und StdErr, überhaupt zum Schreiben offen sind., Wie geht das am besten, bitte?

[Winni]

Hi!

Output und StdErr sind immer offen per Definition. Das braucht man nicht testen.

Winni

[diogenes]

Auch unter Wind...ows? Zu XP-Zeiten hatte ich feststellen müssen, dass man da extra aufmachen musste. Außer ich erinnere mich falsch.

[Winni]

Hi!

Auch unter Windows. Auch unter XP. Auch unter ... was hättest Du denn gerne? BSD? Mac? ....

Winni

[diogenes]

Passt schon. Wenn die immer offen sind, sind sie halt immer offen. Hab ich mich eben falsch erinnert.

Danke

[Socke]

Auch unter Windows. Auch unter XP. Auch unter ... was hättest Du denn gerne? BSD? Mac? ....

Dies gilt aber nur für Konsolenanwendungen. Ist der Compilerschalter -WG (Win32-GUI-Anwendung) gesetzt, sind StdOut/-In/-Err nicht automatisch geöffnet.

Edit: In einer Win32-GUI-Anwendung muss man die Verbindung zur Konsole selbst herstellen.

[diogenes]

Ah ja. Das war's also. Und wie stelle ich zur Laufzeit dann fest, ob die besagten Textdateien offen sind?

[Socke]

Ah ja. Das war's also. Und wie stelle ich zur Laufzeit dann fest, ob die besagten Textdateien offen sind?

Ich denke, es ist sicher, den Zustand je nach Betriebssystem anzunehmen. Im Wesentlichen hängt es ja nicht von der Laufzeit sondern von der Compilezeit ab.
Alternativ kannst du einfach fehlertolerant auf die Dateien zugreifen. Falls du einen Fehler erhälst, ist die Datei entweder nicht offen oder das Zielvolume voll (usw.).

[diogenes]

Das mit der Fehlertoleranz habe ich mir schon überlegt. Ich wollte (auch) wissen, ob's da eine elegantere Methode gibt

[PascalDragon]

Gibt es:

Code: Alles auswählen

program tfiletest;

begin
  if TextRec(Output).Mode = fmClosed then
    ExitCode := 1
  else
    ExitCode := 2;
end.

Je nachdem, ob du (unter Windows) mit oder ohne -WG kompilierst, ist der Exitcode (echo %ERRORLEVEL%)entweder 1 oder 2 (du musst im Fall von -WG mit start /WAIT tfiletest.exe starten, da sonst die Anwendung von der Kommandozeile abgetrennt wird und der Exitcode nicht durchkommt).

Der Trick funktioniert übrigens mit jedem TextFile (für file musst du FileRec nehmen, da gilt aber das gleiche).

[diogenes]

Danke, sieht gut aus!

Wenn der Wert also fmClosed ist, dann müsste man auch mit Assign zuweisen, oder? Meines Wissens nach ist der Modus auch fmClosed nach einem Assign, aber vor Rewrite, Reset oder Append. Oder irre ich mich da? Wenn nicht, was ist der Modus für nicht zugewiesene Texdateien?

[PascalDragon]

Danke, sieht gut aus!

Wenn der Wert also fmClosed ist, dann müsste man auch mit Assign zuweisen, oder? Meines Wissens nach ist der Modus auch fmClosed nach einem Assign, aber vor Rewrite, Reset oder Append. Oder irre ich mich da? Wenn nicht, was ist der Modus für nicht zugewiesene Texdateien?

Der Zustand vor einem Assign-Aufruf ist undefiniert, da ein TextRec oder FileRec nicht automatisch initialisiert wird. Eine Datei wird erst durch den Aufruf von Reset, Rewrite oder Append geöffnet (eine Assign-Funktion setzt normal nur die OpenFunc-Funktion des TextRec/FileRec und eben Mode auf fmClosed (und was halt noch nötig ist, damit die OpenFunc-Funktion dann korrekt funktioniert)).

[diogenes]

Verstehe.

[diogenes]

Problem gelöst. Durch Euch inspiriert, hae ich ein wenig im Internetz gewühlt und gefunden, dass Windows eine AllocConsole-Funktion hat, die die Kanäle öffnet. Alles gut, danke!

[PascalDragon]

Problem gelöst. Durch Euch inspiriert, hae ich ein wenig im Internetz gewühlt und gefunden, dass Windows eine AllocConsole-Funktion hat, die die Kanäle öffnet. Alles gut, danke!

Dann musst du aber dennoch manuell Output und StdErr öffnen, da diese nichts von deiner Nutzung einer Windows Funktion mitbekommen. Außerdem führt das glaube ich dazu, dass ein neues Konsolenfenster aufgemacht wird, wenn du aus einer Konsole heraus startest, da die eigentliche Anwendung von der Konsole bereits abgelöst wurde (und PowerShell statt CMD hat auch noch ihren eigenen Spaß mitgebracht... )