Warum sind meine Versuche, eine Datei mit Open zum Schreiben zu öffnen? ADA 95
Frage
Wenn ich versuche, eine Datei zum Schreiben zu öffnen, bekomme ich eine ada.io_exceptions.name_error.
Der Verfahrensanruf ist Ada.text_io.open
Der Dateiname "C: cc_test_log.txt". Diese Datei existiert nicht.
Dies ist unter Windows XP auf einer NTFS -Partition. Der Benutzer verfügt über Berechtigungen zum Erstellen und Schreiben in das Verzeichnis. Der Dateiname ist weit unter der Win32 Max -Pfadlänge.
name_2 : String := "C:\CC_TEST_LOG.TXT"
if name_2'last > name_2'first then
begin
Ada.Text_IO.Open(file, Ada.Text_IO.Out_File, name_2);
Ada.Text_IO.Put_Line(
"CC_Test_Utils: LogFile: ERROR: Open, File "
& name_2);
return;
exception
when The_Error : others =>
Ada.Text_IO.Put_Line(
"CC_Test_Utils: LogFile: ERROR: Open Failed; "
& Ada.Exceptions.Exception_Name(The_Error)
& ", File " & name_2);
end;
end if;
Lösung
Wenn die "Datei nicht existiert", sollten Sie Create
es zuerst.
Wenn dies mit Ihrem zusammenhängt Vorherige Frage, Es kann helfen, weitere Details zu liefern.
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow