将我的应用程序与其在OSX中的自定义文件类型相关联，并在双击时打开文件

时间：2018-03-06 08:14:32

标签： macos firemonkey

我的FMX应用程序（比如说MyApp）使用自己的自定义文件类型来存储数据文件。假设这些文件的扩展名为* .myext。

我已设法设置info.plist，以便OSX将MyApp注册为文件类型* .myext的所有者。

如果MyApp尚未打开，则双击具有该扩展名的文件时会打开。当然，文件没有打开，因为我没有编写任何代码来处理事件，因为我不知道如何在OSX中检测到事件已经发生。

如果MyApp已经打开，我知道，我收到一条消息“文件”xxxx.myext“无法打开。 [MyApp]无法以“[MyApp file]”格式打开文件。'

所以我的问题是MyApp如何知道双击文件以便它可以启动文件打开过程？

1 个答案:

答案 0 :(得分：0)

我最终回答了自己的问题。三位作者各自给出了包含大部分必要代码的相当相似的单元。

Chris Rolliston：https://delphihaven.wordpress.com/2012/08/14/associating-a-file-type-on-osx-part3/

Victor Fedorenkov：https://pastebin.com/r4y6KmWz

Remy Lebeau：https://forums.embarcadero.com/thread.jspa?messageID=934522

三个单元中没有一个可以在没有修改的情况下在Delphi Tokyo 10.2中使用，毫无疑问是由于自发布帖子以来在Firemonkey中发生的变化。

我参考了三个版本中的每一个版本并进行了各种编辑，以便到达下面的单元，该单元适用于Delphi 10.2 Update 3：

unit NSApplicationOpenFileDelegateUnit.Mac;

interface

type

  TOpenFileEvent = reference to procedure(const AFileName: string);

procedure InstallApplicationDelegate2(const AOnOpenFile: TOpenFileEvent);

implementation

uses
  System.SysUtils, System.RTLConsts, System.Messaging, System.Classes,
  Macapi.ObjectiveC, Macapi.CoreFoundation, Macapi.CocoaTypes, Macapi.AppKit,
  Macapi.Foundation, FMX.Forms,
  Macapi.ObjCRuntime,
  FMX.Platform, FMX.Platform.Mac, FMX.Helpers.Mac;

type
  NSApplicationDelegate2 = interface(NSApplicationDelegate)
    ['{BE9AEDB7-80AC-49B1-8921-F226CC9310F4}']
    function application(theApplication: Pointer; openFile: CFStringRef)
      : Boolean; cdecl;
  end;

  TNSApplicationDelegate2 = class(TOCLocal, NSApplicationDelegate2)
  private
    FOnOpenFile: TOpenFileEvent;
  public
    constructor Create(const AOnOpenFile: TOpenFileEvent);
    procedure applicationDidFinishLaunching(Notification
      : NSNotification); cdecl;
    procedure applicationDidHide(Notification: NSNotification); cdecl;
    procedure applicationDidUnhide(Notification: NSNotification); cdecl;
    function applicationShouldTerminate(Notification: NSNotification)
      : NSInteger; cdecl;
    function applicationDockMenu(sender: NSApplication): NSMenu; cdecl;
    procedure applicationWillTerminate(Notification: NSNotification); cdecl;
    function application(theApplication: Pointer; openFile: CFStringRef)
      : Boolean; cdecl;
  end;

constructor TNSApplicationDelegate2.Create(const AOnOpenFile: TOpenFileEvent);
begin
  inherited Create;
  FOnOpenFile := AOnOpenFile;
end;

procedure TNSApplicationDelegate2.applicationDidFinishLaunching
  (Notification: NSNotification); cdecl;
begin
  // Seems we have to have this method even though it is empty.
end;

procedure TNSApplicationDelegate2.applicationDidHide(Notification
  : NSNotification); cdecl;
begin
  // Seems we have to have this method even though it is empty.
end;

procedure TNSApplicationDelegate2.applicationDidUnhide
  (Notification: NSNotification); cdecl;
begin
  // Seems we have to have this method even though it is empty.
end;

function TNSApplicationDelegate2.applicationShouldTerminate
  (Notification: NSNotification): NSInteger; cdecl;
begin
  Result := NSTerminateNow;
end;

function TNSApplicationDelegate2.applicationDockMenu(sender: NSApplication)
  : NSMenu; cdecl;
begin
  Result := nil;
end;

procedure TNSApplicationDelegate2.applicationWillTerminate
  (Notification: NSNotification); cdecl;
begin
  FreeAndNil(FMX.Forms.application);
end;

function TNSApplicationDelegate2.application(theApplication: Pointer;
  openFile: CFStringRef): Boolean; cdecl;
var
  Range: CFRange;
  S: String;
begin
  Result := Assigned(FOnOpenFile);
  if not Result then
    Exit;
  Range.location := 0;
  Range.length := CFStringGetLength(openFile);
  SetLength(S, Range.length);
  CFStringGetCharacters(openFile, Range, PChar(S));
  try
    FOnOpenFile(S);
  except
    on E: Exception do
    begin
      FMX.Forms.application.HandleException(E);
      Result := False;
    end;
  end;
end;

var
  Delegate: NSApplicationDelegate2;

procedure InstallApplicationDelegate2(const AOnOpenFile: TOpenFileEvent);
var
  NSApp: NSApplication;
begin
  NSApp := TNSApplication.Wrap(TNSApplication.OCClass.sharedApplication);
  Delegate := TNSApplicationDelegate2.Create(AOnOpenFile);
  NSApp.setDelegate(Delegate);
end;

end.

要使用本机，请在主窗体的FormCreate中包含此行：

InstallApplicationDelegate2(OpenFile);

并且还包括文件打开过程

procedure TMyMainForm.OpenFile(const AFileName: String);
begin
// Application-specific code to open the file
end;

在Finder中双击文件现在可以在应用程序中打开文件。

以上假设您的应用和专有文件扩展名已通过info.plist文件关联。以下是将文件扩展名“.myext”与应用程序MyApp关联的info.plist。

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" 
http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
    <key>CFBundleName</key>
    <string>My App Full Name</string>
    <key>CFBundleDisplayName</key>
    <string>My App Full Name</string>
    <key>CFBundleIdentifier</key>
    <string>com.mycompany.MyAppName</string>
    <key>CFBundleVersion</key>
    <string>1.0.6662</string>
    <key>CFBundlePackageType</key>
    <string>APPL</string>
    <key>CFBundleSignature</key>
    <string>????</string>
    <key>CFBundleAllowMixedLocalizations</key>
    <string>YES</string>
    <key>CFBundleExecutable</key>
    <string>MyAppName</string>
    <key>NSHighResolutionCapable</key>
    <string>true</string>
    <key>LSApplicationCategoryType</key>
    <string>public.app-category.productivity</string>
    <key>NSLocationAlwaysUsageDescription</key>
    <string>The reason for accessing the location information of the 
    user</string>
    <key>NSLocationWhenInUseUsageDescription</key>
    <string>The reason for accessing the location information of the 
    user</string>
    <key>NSContactsUsageDescription</key>
    <string>The reason for accessing the contacts</string>
    <key>CFBundleShortVersionString</key>
    <string>1.0.0</string>

    <key>CFBundleIconFile</key>
    <string>MyAppName.icns</string>
    <key>CFBundleSupportedPlatforms</key>
    <array>
        <string>MacOSX</string>
    </array>

<key>CFBundleDocumentTypes</key>
    <array>
    <dict>
        <key>CFBundleTypeRole</key>
        <string>Editor</string>
        <key>LSItemContentTypes</key>
        <array>
            <string>com.mycompany.MyAppName.myext</string>
        </array>
        <key>LSHandlerRank</key>
        <string>Owner</string>
        <key>CFBundleTypeIconFile</key>
        <string>MyAppName.icns</string>
    </dict>
    </array>
    <key>UTExportedTypeDeclarations</key>
    <array>
    <dict>
        <key>UTTypeIdentifier</key>
        <string>com.mycompany.MyAppName.myext</string>
        <key>UTTypeTagSpecification</key>
        <dict>
            <key>public.filename-extension</key>
            <array>
                <string>myext</string>
            </array>
        </dict>
        <key>UTTypeConformsTo</key>
        <array>
            <string>public.data</string>
        </array>
        <key>UTTypeDescription</key>
        <string>My App Full Name document</string>
        <key>UTTypeIconFile</key>
        <string>MyAppName.icns</string>
    </dict>
    </array>
</dict>
</plist>
相关问题
最新问题