在Ada中，为什么我尝试打开一个写入失败的文件？

当我尝试打开要写入的文件时，我得到一个Ada.IO_Exceptions.Name_Error。在Ada中，为什么我尝试打开一个写入失败的文件？

文件名是“C：\ CC_TEST_LOG.TXT”。该文件不存在。

这是在NTFS分区上的Windows XP上。用户有权创建并写入目录。文件名远远低于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;

来源

2010-03-10 mat_geek

我可以使用虚拟化XP中发布的代码创建并打开（或覆盖）该文本文件。我唯一能想到的是，在你的情况下，文件已经存在，运行该代码的用户没有正确的权限来访问或修改它。哪一个是你的情况中抛出的异常？ – Xandy 2010-03-10 02:22:04

关闭我的头顶：

当时Create被调用时，file尚未与另一个打开的文件关联是什么呢？
你使用什么编译器？ Gnat是基于mingw的，可能不喜欢windows的“C：\”标志。尝试把这部分拿出来，看看它是否创建文件（某处）。
正如Xandy提到的那样，该文件可能已经被另一个程序打开。 Create调用需要独占访问该文件。

顺便说一句，那是什么PUT_LINE的Create右后点？成功由于某种原因打开文件也出错？它似乎可能会引起误解，让人认为程序在成功时无法打开文件。

来源

2010-03-10 13:51:32

在Ada中，为什么我尝试打开一个写入失败的文件？

回答

相关问题