- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的 FMX 应用程序(比如 MyApp)使用它自己的自定义文件类型来存储数据文件。假设这些文件的扩展名为 *.myext。
我已设法设置 info.plist,以便 OSX 将 MyApp 注册为文件类型 *.myext 的所有者。
如果 MyApp 尚未打开,它会在双击具有该扩展名的文件时打开。当然,文件没有打开,因为我没有编写任何代码来处理事件,因为我不知道如何在 OSX 中检测到事件已经发生。
如果 MyApp 已经打开,我会收到一条消息“无法打开文档“xxxx.myext”。 [MyApp] 无法打开“[MyApp 文件]”格式的文件。'
所以我的问题是 MyApp 如何知道文件已被双击,以便它可以启动文件打开过程?
最佳答案
我最终回答了我自己的问题。三位作者各自给出了包含大部分必要代码的相当相似的单元。
克里斯·罗利斯顿:https://delphihaven.wordpress.com/2012/08/14/associating-a-file-type-on-osx-part3/
维克多·费多伦科夫:https://pastebin.com/r4y6KmWz
雷米勒博: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>
关于macos - 将我的应用与其在 OSX 中的自定义文件类型相关联并双击打开文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49126150/
我正在通过 labrepl 工作,我看到了一些遵循此模式的代码: ;; Pattern (apply #(apply f %&) coll) ;; Concrete example user=> (a
我从未向应用商店提交过应用,但我会在不久的将来提交。 到目前为止,我对为 iPhone 而非 iPad 进行设计感到很自在。 我了解,通过将通用PAID 应用放到应用商店,客户只需支付一次就可以同时使
我有一个应用程序,它使用不同的 Facebook 应用程序(2 个不同的 AppID)在 Facebook 上发布并显示它是“通过 iPhone”/“通过 iPad”。 当 Facebook 应用程序
我有一个要求,我们必须通过将网站源文件保存在本地 iOS 应用程序中来在 iOS 应用程序 Webview 中运行网站。 Angular 需要服务器来运行应用程序,但由于我们将文件保存在本地,我们无法
所以我有一个单页客户端应用程序。 正常流程: 应用程序 -> OAuth2 服务器 -> 应用程序 我们有自己的 OAuth2 服务器,因此人们可以登录应用程序并获取与用户实体关联的 access_t
假设我有一个安装在用户设备上的 Android 应用程序 A,我的应用程序有一个 AppWidget,我们可以让其他 Android 开发人员在其中以每次安装成本为基础发布他们的应用程序推广广告。因此
Secrets of the JavaScript Ninja中有一个例子它提供了以下代码来绕过 JavaScript 的 Math.min() 函数,该函数需要一个可变长度列表。 Example:
当我分别将数组和对象传递给 function.apply() 时,我得到 NaN 的 o/p,但是当我传递对象和数组时,我得到一个数字。为什么会发生这种情况? 由于数组也被视为对象,为什么我无法使用它
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界. 这篇CFSDN的博客文章ASP转换格林威治时间函数DateDiff()应用由作者收集整理,如果你
我正在将列表传递给 map并且想要返回一个带有合并名称的 data.frame 对象。 例如: library(tidyverse) library(broom) mtcars %>% spl
我有一个非常基本的问题,但我不知道如何实现它:我有一个返回数据框,其中每个工具的返回值是按行排列的: tmp<-as.data.frame(t(data.frame(a=rnorm(250,0,1)
我正在使用我的 FB 应用创建群组并邀请用户加入我的应用群组,第一次一切正常。当我尝试创建另一个组时,出现以下错误: {"(OAuthException - #4009) (#4009) 在有更多用户
我们正在开发一款类似于“会说话的本”应用程序的 child 应用程序。它包含大量用于交互式动画的 JPEG 图像序列。 问题是动画在 iPad Air 上播放正常,但在 iPad 2 上播放缓慢或滞后
我关注 clojure 一段时间了,它的一些功能非常令人兴奋(持久数据结构、函数式方法、不可变状态)。然而,由于我仍在学习,我想了解如何在实际场景中应用,证明其好处,然后演化并应用于更复杂的问题。即,
我开发了一个仅使用挪威语的应用程序。该应用程序不使用本地化,因为它应该仅以一种语言(挪威语)显示。但是,我已在 Info.plist 文件中将“本地化 native 开发区域”设置为“no”。我还使用
读完 Anthony's response 后上a style-related parser question ,我试图说服自己编写单体解析器仍然可以相当紧凑。 所以而不是 reference ::
multicore 库中是否有类似 sapply 的东西?还是我必须 unlist(mclapply(..)) 才能实现这一点? 如果它不存在:推理是什么? 提前致谢,如果这是一个愚蠢的问题,我们深表
我喜欢在窗口中弹出结果,以便更容易查看和查找(例如,它们不会随着控制台继续滚动而丢失)。一种方法是使用 sink() 和 file.show()。例如: y <- rnorm(100); x <- r
我有一个如下所示的 spring mvc Controller @RequestMapping(value="/new", method=RequestMethod.POST) public Stri
我正在阅读 StructureMap关于依赖注入(inject),首先有两部分初始化映射,具体类类型的接口(interface),另一部分只是实例化(请求实例)。 第一部分需要配置和设置,这是在 Bo
我是一名优秀的程序员,十分优秀!