डेल्फी XE2

Question

में मैक ओएस फाइंडर में मेनू आइटम कैसे जोड़ें I डेल्फी XE2 एप्लिकेशन लक्ष्यीकरण मैक ओएस और विंडोज पर काम कर रहा हूं। और मैं संदर्भ मेनू में एकीकरण करना चाहता हूं। खिड़कियों के लिए यह आसान काम है। लेकिन मैक ओएस के लिए मुझे नहीं पता कि यह कैसे करें।

मैंने Providing a Service दस्तावेज पढ़ा है और डेल्फी में समान कोड की कोशिश की लेकिन बिना किसी किस्मत के।

खोजक एकीकरण परीक्षणों के लिए सरल कोड देखें।

App.dpr

program App; 
uses 
    SysUtils, 
{$IFDEF MACOS} 
    AppKit, CocoaTypes, CoreFoundation, 
    CoreServices, Foundation, Mach, ObjCRuntime, 
    ObjectiveC, OCMarshal, OpenGL, QuartzCore, Security, 
    SystemConfiguration, 
{$ENDIF} 
    MessageProvider; 
{$IFDEF MACOS} 
var 
    app: NSApplication; 
    provider: TMessageProvider; 
{$ENDIF} 

begin 
    Application.Initialize; 

{$IFDEF MACOS} 
    provider := TMessageProvider.Create(); 

    app := TNSApplication.Alloc(); 
    app.setServicesProvider(provider); 
{$ENDIF} 

    Application.CreateForm(TFormOSVersion, FormOSVersion); 
    Application.Run; 
end. 

MessageProvider.pas

unit MessageProvider; 

interface 

uses 
    FMX.Dialogs 
{$IFDEF MACOS} 
    , AppKit, CocoaTypes, CoreFoundation, 
    CoreServices, Foundation, Mach, ObjCRuntime, 
    ObjectiveC, OCMarshal, OpenGL, QuartzCore, Security, 
    SystemConfiguration 
{$ENDIF} 
    ; 

type 
    TMessageProvider = class 
    public 
    procedure simpleMessage(var userData: string; var error: string); 
    end; 

implementation 

procedure TMessageProvider.simpleMessage(var userData: string; var error: string); 
begin 
    ShowMessage('Simple message from service.'); 
    error := ''; 
end; 

end. 

जोड़ा विन्यास Info.plist को

<key>NSServices</key> 
<array> 
    <dict> 
    <key>NSKeyEquivalent</key> 
    <dict> 
     <key>default</key> 
     <string>e</string> 
    </dict> 
    <key>NSMenuItem</key> 
    <dict> 
     <key>default</key> 
     <string>App/Message</string> 
    </dict> 
    <key>NSMessage</key> 
    <string>simpleMesage</string> 
    <key>NSPortName</key> 
    <string>App</string>    
    </dict> 
</array> 

जब मैक ओएस आवेदन hungs पर इस चलाने के लिए और कभी कभी के साथ 'दुर्घटनाओं बस त्रुटि 'अपवाद।

क्या कोई इस समस्या से मदद कर सकता है?

या शायद डेल्फी XE2 इस तरह की कार्यक्षमता का समर्थन नहीं करता है?

Answer 1

मैं दो संभावित समस्याओं

1. आप अपनी खुद की NSApplication वस्तु का आवंटन कर रहे हैं देखते हैं। मुझे संदेह है कि यह सही है - डेल्फी आंतरिक रूप से भी नहीं बनाता है? और यदि ऐसा नहीं होता है, तो आपको शायद NSApplication की run विधि को किसी बिंदु पर दर्ज करना होगा ताकि यह वास्तव में संदेशों को संभालने में सक्षम हो सके।

2. सेवा प्रदाता applicationDidFinishLaunching: प्रतिनिधि विधि में पंजीयक होना चाहिए। आप अपना NSApplication उदाहरण बनाने के तुरंत बाद इसे पंजीकृत करने का प्रयास करते हैं।

मुझे लगता है कि आप के बजाय NSApplication के setServicesProvider: का उपयोग कर के दोनों समस्याओं से बचने के लिए यदि आप NSRegisterServicesProvider(id provider, NSString *portName) का उपयोग आपकी सेवा रजिस्टर करने के लिए प्रदान कर सकते हैं,।

Answer 2

अंत में, मैं इस परियोजना में लौट आया और सफलतापूर्वक पंजीकृत सेवा प्रदाता और संभाला गया सेवा अनुरोध।

सबसे पहले मैंने NSRegisterServicesProvider विधि का उपयोग करने की कोशिश की, लेकिन मैकापी स्रोतों में ऐसी कोई विधि नहीं है, इसलिए मैंने एप्लिकेशनडिडफिनिश लॉन्चिंग प्रतिनिधि की खोज की। इसका इस्तेमाल करते हुए मैं अपने सेवा प्रदाता पंजीकृत:

procedure TApplicationDelegate.applicationDidFinishLaunching(Notification: Pointer); 
var 
    autoReleasePool: NSAutoreleasePool; 
    app: NSApplication; 
    provider: TMessageProvider; 
begin 
    autoReleasePool := TNSAutoreleasePool.Create; 
    try 
    autoReleasePool.init(); 

    app := TNSApplication.Wrap(TNSApplication.OCClass.sharedApplication); 

    provider := TMessageProvider.Create(); 
    app.setServicesProvider(provider.ObjId); 
    finally 
    autoReleasePool.release(); 
    end; 
end; 

इसके अलावा, मैं सेवा प्रदाता के लिए इंटरफेस (मुझे लगता है कि यह ObjectiveC-डेल्फी पुल का कार्य के लिए आवश्यक है) बनाया है:

IMessageProvider = interface(IObjectiveC)['{1EA9319A-8F99-4445-B435-48D5E73876FA}'] 
    procedure simpleMessage(pBoard: Pointer; userData: Pointer; error: PPointer); cdecl; 
end; 

और इस इंटरफ़ेस से TMessageProvider विरासत में मिला और TOCLocal कक्षा।

इसके बाद मेरा ऐप संदर्भ मेनू से सेवा अनुरोध पर प्रतिक्रिया कर सकता है।

मैंने अपनी परियोजना के स्रोत साझा किए हैं। Here वे हैं।