在 Ada 中，为什么我尝试打开文件进行写入失败？

Question

当我尝试打开要写入的文件时，出现 Ada.IO_Exceptions.Name_Error。

文件名为“C:\CC_TEST_LOG.TXT”。该文件不存在。

这是在 Windows XP 上的 NTFS 分区上。用户具有创建和写入目录的权限。 文件名远低于 WIN32 最大路径长度。

 name_2 : String := "C:\CC_TEST_LOG.TXT"
 if name_2'last > name_2'first then
    begin
       Ada.Text_IO.Create(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;

Answer 1

我突然想到：

• 在调用 Create 时，file 尚未与另一个打开的文件关联，是吗？
• 你使用什么编译器？ Gnat 是基于 mingw 的，可能不喜欢 Windows 的“C:\”指示符。尝试取出该部分并查看它是否创建该文件（某处）。
• 正如 Xandy 提到的，该文件可能已被另一个程序打开。该 Create 调用需要对该文件的独占访问权限。

顺便说一句，Create 之后的 Put_Line 有何意义？ 成功打开文件是否也会由于某种原因出现错误？看起来它可能会产生误导，让人认为程序实际上成功打开了文件却失败了。