Qt एप्लिकेशन से mail.app पर निर्यात करें

ईमेल करने के लिए कुछ फ़ाइलों को निर्यात करने की आवश्यकता थी (उपयोगकर्ता बहुत पूछ रहे हैं)। समस्या यह है कि इसे मैक ओएस एक्स में कैसे किया जाता है। ठीक है, मान लीजिए कि हम मेल.एप के अलावा किसी अन्य मेलर को नहीं मानते हैं। Developer.apple.com पर मुझे Qt के बिना यह करने का विवरण मिला। इसे कार्यान्वित करने का पहला प्रयास बहुत से प्रश्नों का जवाब देता है, जिनका उत्तर developer.apple.com में नहीं दिया जा सकता है। सामान्य तौर पर, मुझे बहुत नुकसान हुआ और फिर मैं AppleScript का उपयोग करके ऐसी सुविधा को लागू करने के लिए एक तैयार नुस्खा पोस्ट करता हूं।



1. हेडर फ़ाइल कार्बन से कनेक्ट करें:

# include <Carbon/Carbon.h>
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

2. हम दो स्थिर चर (स्थिरांक) घोषित करते हैं जिनमें दो पूर्ण AppleScript टेक्स्ट होते हैं - एक अनुलग्नक भेजने के लिए और दूसरा दो अनुलग्नक भेजने के लिए:

 char sendMailScript_singAtt[] = "on send_email_message(subjectLine, messageText, fileAttachment)\n" " tell application \"Mail\"\n" " (* CREATE THE MESSAGE *)\n" " activate\n" " set newMessage to make new outgoing message at end of outgoing messages with properties {subject:subjectLine, content:messageText & return, visible:true}\n" " \n" " (* SPECIFY THE ATTACHMENT *)\n" " tell newMessage\n" " make new attachment with properties {file name:fileAttachment} at after last paragraph\n" " end tell\n" " (*set frontmost to true*)\n" " end tell\n" "end send_email_message"; char sendMailScript_doubAtt[] = "on send_email_message(subjectLine, messageText, fileAttachmentA, fileAttachmentB)\n" " tell application \"Mail\"\n" " (* CREATE THE MESSAGE *)\n" " activate\n" " set newMessage to make new outgoing message at end of outgoing messages with properties {subject:subjectLine, content:messageText & return, visible:true}\n" " \n" " (* SPECIFY THE ATTACHMENT *)\n" " tell newMessage\n" " make new attachment with properties {file name:fileAttachmentA} at after last paragraph\n" " make new attachment with properties {file name:fileAttachmentB} at after last paragraph\n" " end tell\n" " (*set frontmost to true*)\n" " end tell\n" "end send_email_message";
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

जैसा कि आप देख सकते हैं, स्क्रिप्ट दो कार्य हैं जो विषय के लिए पाठ, संदेश का मुख्य पाठ और पैरामीटर के रूप में एक या दो अनुलग्नक लेते हैं। भेजने की विधि उपरोक्त लेख में वर्णित विधि से लगभग पूरी तरह से अलग है, जाहिर है कि लेख पुराना है, और ऐप्पल ने जानकारी को अपडेट करने की जहमत नहीं उठाई। वास्तव में स्क्रिप्ट स्वयं काफी तुच्छ है, केवल एक चीज जिस पर मैं ध्यान देना चाहता हूं वह है सक्रिय करने के लिए कॉल। इसके बिना, Mail.app विंडो पृष्ठभूमि में खुलती है।



3. नवीनतम स्क्रिप्ट मापदंडों पर ध्यान दें - ये केवल फ़ाइल पथ नहीं हैं, ये तथाकथित उपनाम हैं। इसलिए, निम्नलिखित फ़ंक्शन को पथ से इन समान उपनामों को प्राप्त करने के लिए डिज़ाइन किया गया है:

 GetAliasHandleForFile(QString fname, AliasHandle * ahandle) { FSRef fref; if(FSPathMakeRef((const UInt8 *)fname.toLocal8Bit().data(), &fref, NULL) == noErr) if(FSNewAlias(0, &fref, ahandle) == noErr && (*ahandle)) return true; return false; }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

यदि प्रकार QString के तर्क में पारित फ़ाइल पथ से उपनाम सफलतापूर्वक प्राप्त होता है, तो फ़ंक्शन सही, अन्यथा गलत है



4. AppleScript को कॉल करने के लिए, हमें स्क्रिप्ट पाठ से एक ईवेंट ऑब्जेक्ट बनाने की आवश्यकता होती है, जिसे हम ईमेल में फ़ाइल को निर्यात करने के लिए इसे तर्क पारित करके कॉल करेंगे। यहाँ दोनों लिपियों के लिए इस तरह के आयोजन बनाने के लिए कार्य दिए गए हैं:

 OSStatus CreateEmailMessageEvent1(AppleEvent *theEvent, char* subjectLine, char* messageText, AliasHandle fileAttachment) { OSStatus err; ProcessSerialNumber PSN = {0, kCurrentProcess}; /* create the container list */ err = AEBuildAppleEvent( 'ascr', kASSubroutineEvent, typeProcessSerialNumber, (Ptr) &PSN, sizeof(PSN), kAutoGenerateReturnID, kAnyTransactionID, theEvent, NULL, "'----':[TEXT(@),TEXT(@),alis(@@)]," "'snam':TEXT(@)", subjectLine, messageText, fileAttachment, "send_email_message"); return err; } OSStatus CreateEmailMessageEvent2(AppleEvent *theEvent, char* subjectLine, char* messageText, AliasHandle fileAttachmentA, AliasHandle fileAttachmentB) { OSStatus err; ProcessSerialNumber PSN = {0, kCurrentProcess}; /* create the container list */ err = AEBuildAppleEvent( 'ascr', kASSubroutineEvent, typeProcessSerialNumber, (Ptr) &PSN, sizeof(PSN), kAutoGenerateReturnID, kAnyTransactionID, theEvent, NULL, "'----':[TEXT(@),TEXT(@),alis(@@),alis(@@)]," "'snam':TEXT(@)", subjectLine, messageText, fileAttachmentA, fileAttachmentB, "send_email_message"); return err; }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

कहे जाने वाले कार्यों के विवरण के लिए Apple दस्तावेज़ीकरण देखें (मैं बहुत अधिक विवरण में नहीं गया, मैंने उन्हें इंटरनेट पर पाए गए विभिन्न उदाहरणों से खींच लिया)



5. अब ऊपर वर्णित कार्यों का उपयोग करके बनाई गई घटना की वास्तविक कॉल:

 OSStatus ExecuteAppleScriptEvent(const void* text, long textLength, AppleEvent *theEvent, AEDesc *resultData) { ComponentInstance theComponent; AEDesc scriptTextDesc; OSStatus err; OSAID contextID, resultID; /* set up locals to a known state */ theComponent = NULL; AECreateDesc(typeNull, NULL, 0, &scriptTextDesc); contextID = kOSANullScript; resultID = kOSANullScript; /* open the scripting component */ theComponent = OpenDefaultComponent(kOSAComponentType, typeAppleScript); if(theComponent != NULL) { /* put the script text into a Apple event descriptor record */ err = AECreateDesc(typeChar, text, textLength, &scriptTextDesc); if(err == noErr) { /* compile the script into a new context. The flag 'kOSAModeCompileIntoContext' is used when compiling a script containing a handler into a context. */ err = OSACompile(theComponent, &scriptTextDesc, kOSAModeCompileIntoContext, &contextID); if(err == noErr) { /* run the script */ err = OSAExecuteEvent( theComponent, theEvent, contextID, kOSAModeNull, &resultID); /* collect the results - if any */ if(resultData != NULL) { AECreateDesc(typeNull, NULL, 0, resultData); if(err == errOSAScriptError) OSAScriptError(theComponent, kOSAErrorMessage, typeChar, resultData); else if(err == noErr && resultID != kOSANullScript) OSADisplay(theComponent, resultID, typeChar, kOSAModeDisplayForHumans, resultData); } } } } else err = paramErr; AEDisposeDesc(&scriptTextDesc); if(contextID != kOSANullScript) OSADispose(theComponent, contextID); if(resultID != kOSANullScript) OSADispose(theComponent, resultID); if(theComponent != NULL) CloseComponent(theComponent); return err; }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

जैसा कि आप देख सकते हैं, एक फ़ंक्शन कॉल के परिणामों को एईडीस्क के माध्यम से वापस कर सकता है। स्क्रिप्ट पाठ और उसकी लंबाई फ़ंक्शन के लिए दी जाती है। यह इस फ़ंक्शन में है कि स्क्रिप्ट का संकलन (OSACompile) और लॉन्च (OSAExecuteEvent) होता है, और ईवेंट बनाने के लिए पिछला फ़ंक्शन केवल कॉल विवरण और मापदंडों के लिए एक कंटेनर बनाता है जो स्क्रिप्ट निष्पादित होने पर उपयोग किए जाते हैं।



6. अच्छा, अब हम इसे एक साथ रख रहे हैं:

 void SendSingleFileToEmail(QString subj, QString body, QString attPath) { AliasHandle ahandle; AppleEvent theEvent; if(!GetAliasHandleForFile(attPath, &ahandle)) return; if(CreateEmailMessageEvent1(&theEvent, subj.toLocal8Bit().data(), body.toLocal8Bit().data(), ahandle) == noErr) ExecuteAppleScriptEvent(sendMailScript_singAtt, strlen(sendMailScript_singAtt), &theEvent, NULL); } void SendDoubleFileToEmail(QString subj, QString body, QString attPathA, QString attPathB) { AliasHandle ahandleA, ahandleB; AppleEvent theEvent; if(!GetAliasHandleForFile(attPathA, &ahandleA) || !GetAliasHandleForFile(attPathB, &ahandleB)) return; if(CreateEmailMessageEvent2(&theEvent, subj.toLocal8Bit().data(), body.toLocal8Bit().data(), ahandleA, ahandleB) == noErr) ExecuteAppleScriptEvent(sendMailScript_doubAtt, strlen(sendMailScript_doubAtt), &theEvent, NULL); }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

यहां हमारे पास दो कार्य हैं, क्रमशः एक अनुलग्नक भेजने के लिए और दो अनुलग्नक भेजने के लिए। अंत में, मैं यह नोट करना चाहता हूं कि यह कोड फाइलें नहीं भेजता है, लेकिन एक नया संदेश बनाता है और इसे संपादन के लिए खोलता है, प्राप्तकर्ता का पता दर्ज करता है या रद्द करता है।

खैर, एक और महत्वपूर्ण बिंदु। यदि आप विशेषाधिकार प्राप्त मोड (यानी रूट) में काम करते हैं तो आप इस कोड का उपयोग नहीं कर सकते, क्योंकि आप वास्तव में कोई AppleScript नहीं चला सकते हैं।

आज के लिए बस इतना ही।