macos - Delphi Berlin 10.1 创建文件/文件夹 OS X

Question

如何通过 delphi 在 OS X 上创建文件/文件夹？我正在尝试使用函数

System.SysUtils.FileCreate

和

System.IOUtils.TDirectory.CreateDirectory

代码:

  if FileCreate('/var/folders/bla.txt') = INVALID_HANDLE_VALUE then
 raise Exception.Create('File already exists');

或

 `TDirectory.CreateDirectory('/var/folders/mydirdelete');`

无论如何，当我运行应用程序时，我得到

Exception EFileNotFoundException in module blprtl240.dylib at 0053AFAF.
The specified file was not found. 

即使我创建文件夹。

有什么建议吗？

Answer 1

文档说 FileCreate return INVALID_HANDLE_VALUE (-1) 表示发生错误，这不仅意味着文件已经存在，例如它可能是权限被拒绝 ...等等。

关于CreateDirectory如果给定的路径无效或包含无效字符，则会引发异常。

试试这个:

const
  AFilename = '/tmp/folders/bla.txt';
begin
  if NOT FileExists(AFilename) then begin
    if NOT DirectoryExists(ExtractFilePath(AFilename)) then
      if NOT ForceDirectories(ExtractFilePath(AFilename)) then RaiseLastOSError;
    if (FileCreate(AFilename) = INVALID_HANDLE_VALUE) then RaiseLastOSError;
  end;