PureBasic पर एडोब एयर के लिए एक एक्सटेंशन लिखना

यहां प्योरबेसिक की बढ़ती लोकप्रियता के मद्देनजर , मैं इस भाषा के आवेदन के एक अन्य क्षेत्र से परिचित होने का प्रस्ताव करता हूं।

वायु के तीसरे संस्करण से शुरू होकर, एक्सटेंशन (फ्लैश रनटाइम एक्सटेंशन) के कारण सीमित एसडीके के लिए क्षतिपूर्ति करना संभव हो गया। एक्सटेंशन को C / C ++ / Java (Android) और किसी भी अन्य भाषा में लिखा जा सकता है जो आपको प्रासंगिक प्लेटफार्मों के लिए देशी लाइब्रेरी बनाने की अनुमति देता है।

कम्प्यूटिंग गति, मल्टीथ्रेडिंग, ऑपरेटिंग सिस्टम के साथ बातचीत - यह सब एक्सटेंशन के लिए उपलब्ध है। कुछ समय पहले मैंने मैक और विंडोज के लिए सी में एक एक्सटेंशन लिखा था - HIDAPI क्रॉस-प्लेटफॉर्म लाइब्रेरी के लिए एक आवरण। कुछ कठिनाइयों के बावजूद, सुविधा पुस्तकालय के क्रॉस-प्लेटफ़ॉर्म प्रकृति में निहित है, जिसने एक बार विस्तार कोड लिखना और न्यूनतम प्रयास के साथ प्रत्येक प्लेटफ़ॉर्म के लिए इसे इकट्ठा करना संभव बना दिया।

PureBasic, बदले में, कई प्रणालियों के लिए एप्लिकेशन (dll, इसलिए, ड्राइवर ) बनाने की क्षमता प्रदान करता है। अनुकूलन की संभावना है, यूनिकोड समर्थन, रेडी-मेड ऑब्जेक्ट्स (सूची, मानचित्र), क्रॉस-प्लेटफ़ॉर्म फ़ंक्शंस (संपीड़न, छवि प्रसंस्करण, एन्क्रिप्शन एल्गोरिदम) का एक सेट, अधिकांश WinAPI, मैक्रोज़ और यहां तक ​​कि OOP विंडोज के तहत आयात किए जाते हैं। यह सब काफी विकास को गति देता है (उन लोगों के लिए जिनके पास सी / सी ++ अनुभव नहीं है), नंगे सी की तुलना में।

उदाहरण - सिस्टम मोडल डायलॉग

स्रोत और विंडोज के लिए एक डेमो एप्लीकेशन code.google.com पर उपलब्ध है।

पहला कदम FlashRuntimeExtensions.lib लाइब्रेरी (विंडोज़, {AIR SDK} \ lib \ win \) से फ़ंक्शंस आयात करने के लिए था, यह अपेक्षाकृत सरल है यदि आपके पास FlashRuntimeExtensions.h ({AIR SDK \ "शामिल हैं):

ImportC "../lib/FlashRuntimeExtensions.lib" ;returns FRE_OK ; FRE_WRONG_THREAD ; FRE_INVALID_ARGUMENT If nativeData is null. ;FREResult FREGetContextNativeData( FREContext ctx, void** nativeData ); ;-FREGetContextNativeData FREGetContextNativeData.l (ctx.l, nativeData.l) ... EndImport 

कंपाइलर सेटिंग्स में, आपको साझा डीएलएल प्रारूप निर्दिष्ट करना होगा, यदि आवश्यक हो तो यूनिकोड समर्थन सक्षम करें (+ फ़ाइल / प्रारूप मेनू में UTF8 स्रोत एन्कोडिंग का चयन करें), थ्रेड सुरक्षा या असेंबली समर्थन।

केवल असुविधा PureBasic में एक अहस्ताक्षरित लंबे प्रकार की कमी है, इसके लिए मुझे अतिरिक्त फ़ंक्शन लिखना पड़ा।

एक्सटेंशन डिस्क्रिप्टर में, प्लेटफ़ॉर्म, एक्सटेंशन लाइब्रेरी और 2 सिंगल एक्सपोर्टेड फ़ंक्शंस (इनिशियलाइज़र और फाइनल) निर्दिष्ट करें:

 <?xml version="1.0" encoding="UTF-8"?> <extension xmlns="http://ns.adobe.com/air/extension/3.1"> <id>com.pure.Extension</id> <name>pureair</name> <copyright>compile4fun 2012</copyright> <description>Extenion for Adobe AIR</description> <versionNumber>1.0.0</versionNumber> <platforms> <platform name="Windows-x86"> <applicationDeployment> <nativeLibrary>pureair.dll</nativeLibrary> <initializer>initializer</initializer> <finalizer>finalizer</finalizer> </applicationDeployment> </platform> </platforms> </extension> 

आईडी को एप्लिकेशन मेनिफ़ेस्ट और एक्सटेंशन पैकेज (एक्शनस्क्रिप्ट) में निर्दिष्ट होना चाहिए, आवेदन प्रोफ़ाइल को विस्तारित किया जाना चाहिए।

विस्तार का अनिवार्य हिस्सा अटैचप्रोसेस (इंस्टेंस), डिटैचप्रोसेस (इंस्टेंस), अटैचथ्रेड (इंस्टेंस) और डिटैचह्रेड (इंस्टेंस) कार्य है, साथ ही:

 ... ;CDecl ProcedureC contextInitializer(extData.l, ctxType.s, ctx.l, *numFunctions.Long, *functions.Long) *log\info("create context: " + Str(ctx) + "=" + Utf8ToUnicode(ctxType)) Define result.l ;exported extension functions count: Define size.l = 1 ;Array of FRENamedFunction: Dim f.FRENamedFunction(size - 1) ;there is no unsigned long type in PB setULong(*numFunctions, size) ;If you want to return a string out of a DLL, the string has to be declared as Global before using it. ;method name f(0)\name = asGlobal("showDialog") ;function data example f(0)\functionData = asGlobal("showDialog") ;function pointer f(0)\function = @showDialog() *functions\l = @f() ;some additional data can be stored extData = #Null ;native data example result = FRESetContextNativeData(ctx, asGlobal("FRESetContextNativeData")) *log\Debug(ResultDescription(result, "FRESetContextNativeData")) *log\info("create context complete"); EndProcedure ;CDecl ProcedureC contextFinalizer(ctx.l) *log\info("dispose context: " + Str(ctx)) EndProcedure ;CDecl ProcedureCDLL initializer(extData.l, *ctxInitializer.Long, *ctxFinalizer.Long) *ctxInitializer\l = @contextInitializer() *ctxFinalizer\l = @contextFinalizer() EndProcedure ;CDecl ;this method is never called on Windows... ProcedureCDLL finalizer(extData.l) ;do nothing EndProcedure 

FRENamedFunction सरणी में हमारे एक्सटेंशन के तरीके हैं (इस मामले में, केवल एक - showDialog), यह एक्सटेंशन के फ़ंक्शन या उदाहरण के लिए किसी भी डेटा को बांधना संभव है। आपको CDecl कॉल के प्रकार और AsGlobal फ़ंक्शन पर ध्यान देना चाहिए, जो विशेष रूप से मुख्य कार्यक्रम के विस्तार से स्थानांतरित किए गए स्ट्रिंग्स के लिए मेमोरी आवंटित करता है, यह PureBasic dll मदद में उल्लिखित है।

हमारा एक्सटेंशन बटन और टेक्स्ट के एक मनमाने सेट के साथ एक मोडल डायलॉग दिखाएगा और एक डायलॉग क्लोजिंग इवेंट भेजेगा:

 Structure MessageParameters text.s title.s dwFlags.l ctx.l EndStructure Procedure ModalMessage(*params.MessageParameters) Define result.l, code.l code = MessageRequester(*params\title, *params\text, *params\dwFlags) result = FREDispatchStatusEventAsync(*params\ctx, asGlobal("showDialog"), asGlobal(Str(code))) *log\Debug (ResultDescription(result, "FREDispatchStatusEventAsync")) EndProcedure ;CDecl ProcedureC.l showDialog(ctx.l, funcData.l, argc.l, *argv.FREObjectArray) *log\info("Invoked showDialog") Define result.l ;ActionScriptData example Define actionScriptObject.l, actionScriptInt.l, type.l result = FREGetContextActionScriptData(ctx, @actionScriptObject) *log\Debug(ResultDescription(result, "FREGetContextActionScriptData")) result = FREGetObjectType(actionScriptObject, @type) *log\Debug("result=" + ResultDescription(result, "FREGetObjectType")) *log\info("ContextActionScriptData: type=" + TypeDescription(type)) result = FREGetObjectAsInt32(actionScriptObject, @actionScriptInt) *log\Debug("result=" + ResultDescription(result, "FREGetObjectAsInt32")) *log\info("ContextActionScriptData: actionScriptInt=" + Str(actionScriptInt)) ;function data example Define funcDataS.s funcDataS = PeekS(funcData, -1, #PB_Ascii) *log\info("FunctionData: " + funcDataS) *log\info("Method args size: " + Str(fromULong(argc))) Define resultObject.l, length.l, booleanArg.l, dwFlags.l, message.s, *string.Ascii result = FREGetObjectAsBool(*argv\object[0], @booleanArg) *log\Debug("result=" + ResultDescription(result, "FREGetObjectAsBool")) result = FREGetObjectAsInt32(*argv\object[1], @dwFlags) *log\Debug("result=" + ResultDescription(result, "FREGetObjectAsInt32")) result = FREGetObjectAsUTF8(*argv\object[2], @length, @*string) *log\Debug("result=" + ResultDescription(result, "FREGetObjectAsUTF8")) message = PeekS(*string, fromULong(length) + 1) *log\info("Argument: booleanArg=" + Str(fromULong(booleanArg))) *log\info("Argument: dwFlags=" + Str(dwFlags)) *log\info("Argument: message=" + Utf8ToUnicode(message)) ;native data example Define native.l, nativeData.s result = FREGetContextNativeData(ctx, @native) *log\Debug(ResultDescription(result, "FREGetContextNativeData")) nativeData = PeekS(native, -1, #PB_Ascii) *log\info("FREGetContextNativeData: " + nativeData) Define *params.MessageParameters = AllocateMemory(SizeOf(MessageParameters)) *params\ctx = ctx *params\title = "PureBasic" *params\text = Utf8ToUnicode(message) *params\dwFlags = dwFlags CreateThread(@ModalMessage(), *params) ;return Boolean.TRUE result = FRENewObjectFromBool(toULong(1), @resultObject) *log\Debug(ResultDescription(result, "FRENewObjectFromBool")) ProcedureReturn resultObject EndProcedure 

एयर की तरफ, यह इस तरह दिखता है:

 package com.pure { import flash.events.StatusEvent; import flash.external.ExtensionContext; import mx.logging.ILogger; import mx.logging.Log; /** * Wrapper for PureBasic extension */ public class Extension { /** * Extension id, must be specified in air-manifest.xml and extension.xml */ public static const CONTEXT:String = "com.pure.Extension"; private static const log:ILogger = Log.getLogger(CONTEXT); /** * @private */ private var _context:ExtensionContext; /** * @private */ private var contextType:String; /** * Creates context * @param contextType default value is "PureAir" * @param actionScriptData any number */ public function Extension(contextType:String = "PureAir", actionScriptData:int = 4) { //random type this.contextType = contextType + Math.round(Math.random() * 100000); try { log.debug("Creating context: {0}, contextType: {1}", CONTEXT, this.contextType); _context = ExtensionContext.createExtensionContext(CONTEXT, this.contextType); if (_context == null) { //creation failed log.error("Failed to create context: {0}, contextType: {1}", CONTEXT, this.contextType); } else { log.debug("Context was created successfully"); //listen for extension events _context.addEventListener(StatusEvent.STATUS, onStatusEvent); //set actionScript data _context.actionScriptData = actionScriptData; } } catch(e:Error) { log.error("Failed to create context: {0}, contextType: {1}, stacktrace: {2}", CONTEXT, this.contextType, e.getStackTrace()); } } private function get contextCreated():Boolean { return _context != null; } /** * Test method, shows YesNoCancel modal dialog * @param booleanArg boolean parameter * @param flags integer parameter, #PB_MessageRequester_YesNoCancel=3, #MB_APPLMODAL = 0 * @param message string parameter * @return */ public function showDialog(booleanArg:Boolean, flags:int, message:String):Boolean { if (!contextCreated) return false; var result:Boolean = false; try { result = _context.call('showDialog', booleanArg, flags, message) as Boolean; if (!result) { log.error("Invocation error: test({0}, {1}, {2})", booleanArg, flags, message); } } catch (e:Error) { log.error("Invocation error: test({0}, {1}, {2}), stacktrace: {3}", booleanArg, flags, message, e.getStackTrace()); } return result; } private function onStatusEvent(event:StatusEvent):void { log.info("Status event received: contextType={0} level={2}, code={1}", this.contextType, event.code, event.level); } /** * Performs clean-up */ public function dispose():void { if (_context) { _context.dispose(); //clean all references _context.removeEventListener(StatusEvent.STATUS, onStatusEvent); _context = null; log.info("Disposed {0}", this.contextType); } else { log.warn("Can not dispose {0}: Context is null", this.contextType); } } } } 

StatusEvent एकमात्र प्रकार की घटना है जिसे एक्सटेंशन भेज सकता है।

कार्य का परिणाम स्क्रीनशॉट में देखा जा सकता है:


आपका ध्यान देने के लिए धन्यवाद।