🤶🏽 🤡 ⬛️ स्क्रिप्ट कॉलबैक फ़ंक्शंस 🌥️ Ⓜ️ ⚠️

कभी-कभी हमारे COM घटक को ग्राहक को एक सूचना भेजनी चाहिए या कॉलबैक फ़ंक्शन को कॉल करना होगा। योजना सरल है: घटक इंटरफ़ेस प्रकाशित करता है, क्लाइंट इंटरफ़ेस से विरासत में मिली एक वस्तु बनाता है और इसे घटक को पास करता है, घटक बदले में इंटरफ़ेस फ़ंक्शन को कॉल करता है, जिससे क्लाइंट पक्ष पर फ़ंक्शन कॉल होते हैं।

आवेदक के लिए विजुअल बेसिक या विज़ुअल बेसिक के मामले में, हम किसी भी इंटरफ़ेस से विरासत में प्राप्त एक वर्ग लिख सकते हैं, लेकिन वीबीएसस्क्रिप्ट स्क्रिप्ट फ़ाइलों के लिए यह संभव नहीं है।

यहाँ IDispatch इंटरफ़ेस हमारी सहायता के लिए जाता है। इस इंटरफ़ेस का उपयोग करते हुए, हमारे शक्तिशाली घटक विनम्रतापूर्वक एक ग्राहक की मामूली भूमिका ग्रहण करेंगे, और एक छोटी स्क्रिप्ट एक वास्तविक स्वचालन सर्वर में बदल जाएगी।

हम FreeBASIC प्रोग्रामिंग भाषा में घटक विकसित करेंगे।

स्क्रिप्ट फ़ाइल में कक्षाएं

आप स्क्रिप्ट फ़ाइलों में कक्षाओं की घोषणा और उपयोग कर सकते हैं। इस तरह की कक्षाएं स्पष्ट रूप से IDispatch इंटरफ़ेस से विरासत में मिली हैं और वास्तविक COM कक्षाएं हैं।

हम एक वर्ग की घोषणा करते हैं, जिसका एक उदाहरण हम बाद में अपने घटक के पास करेंगे:

 Class CallBack Function CallBack(Param) '    WScript.Echo Param CallBack = 0 End Function End Class

हमारे घटक को CallBack वर्ग का एक उदाहरण प्राप्त होगा, CallBack फ़ंक्शन को कॉल करें और इसे पैरामीटर में पाठ के साथ एक स्ट्रिंग पास करें।

 '  Dim Component Set Component = CreateObject("BatchedFiles.TestCOMServer") '    ,      Dim objCallBack Set objCallBack = New CallBack '       Component.SetCallBack objCallBack, "" '       result = Component.InvokeCallBack() WScript.Echo result Set objCallBack = Nothing Set Component = Nothing

IDispatch

यह इंटरफ़ेस ऑटोमेशन की ठोकर है। आमतौर पर, IDispatch कार्यान्वयन ITypeInfo->Invoke CreateStdDispatch या CreateStdDispatch फ़ंक्शन के माध्यम से एक प्रकार की लाइब्रेरी पर आधारित CreateStdDispatch है, लेकिन इस मामले में स्वचालन सर्वर एक स्क्रिप्ट में स्थित होता है और इसमें एक प्रकार की लाइब्रेरी नहीं होती है, और हमारा क्लाइंट के रूप में कार्य करता है। सरल बनाने के लिए, IDipatch इस तरह काम करता है: फ़ंक्शन का नाम लेता है और उस पर नियंत्रण स्थानांतरित करता है।

इंटरफ़ेस की परिभाषा "oaidl.bi" शीर्षक में है (पठनीयता के लिए इंडेंट और लाइन ब्रेक जोड़े जाते हैं):

 Type IDispatch As IDispatch_ Type LPDISPATCH As IDispatch Ptr Type IDispatchVtbl '   IUnknown Dim InheritedTable As IUnknownVtbl GetTypeInfoCount As Function( _ ByVal this As IDispatch Ptr, _ ByVal pctinfo As UINT Ptr _ )As HRESULT GetTypeInfo As Function( _ ByVal this As IDispatch Ptr, _ ByVal iTInfo As UINT, _ ByVal lcid As LCID, _ ByVal ppTInfo As ITypeInfo Ptr Ptr _ )As HRESULT GetIDsOfNames As Function( _ ByVal this As IDispatch Ptr, _ ByVal riid As Const IID Const Ptr, _ ByVal rgszNames As LPOLESTR Ptr, _ ByVal cNames As UINT, _ ByVal lcid As LCID, _ ByVal rgDispId As DISPID Ptr _ )As HRESULT Invoke As Function( _ ByVal this As IDispatch Ptr, _ ByVal dispIdMember As DISPID, _ ByVal riid As Const IID Const Ptr, _ ByVal lcid As LCID, _ ByVal wFlags As WORD, _ ByVal pDispParams As DISPPARAMS Ptr, _ ByVal pVarResult As VARIANT Ptr, _ ByVal pExcepInfo As EXCEPINFO Ptr, _ ByVal puArgErr As UINT Ptr _ )As HRESULT End Type Type IDispatch_ lpVtbl As IDispatchVtbl Ptr End Type

इस इंटरफ़ेस में GetIDsOfNames और Invoke फ़ंक्शन सबसे दिलचस्प हैं।

GetIDsOfNames

यह फ़ंक्शन का नाम लेता है और अपनी प्रेषण पहचानकर्ता DISPID । DISPID , LONG प्रकार के लिए एक अन्य नाम है।

क्लाइंट के दृष्टिकोण से, DISPID बस एक अनुकूलन उपकरण है जो लाइन DISPID से बचा जाता DISPID । सर्वर के लिए, DISPID उस फ़ंक्शन की पहचानकर्ता है जिसे ग्राहक कॉल करना चाहता है।

पैरामीटर	विवरण
riid	आरक्षित। IID_NULL को एक पॉइंटर पास किया जाना चाहिए।
rgszNames	फ़ंक्शन नामों की एक सरणी जिसके लिए पहचानकर्ता को वापस भेजना चाहिए।
CNAME उपलब्ध	सरणी का आकार।
LCID	स्थानीयकरण की जानकारी।
rgDispId	एक सरणी जहां फ़ंक्शन प्रत्येक फ़ंक्शन नाम या `DISPID_UNKNOWN` यदि यह उस नाम से फ़ंक्शन नहीं `DISPID_UNKNOWN` ।

आह्वान

प्रेषण द्वारा पहचानकर्ता संबंधित कार्य करता है।

पैरामीटर	विवरण
dispIdMember	बुलाया समारोह के डिस्पैचर पहचानकर्ता।
riid	आरक्षित। IID_NULL को एक पॉइंटर पास किया जाना चाहिए।
LCID	स्थानीयकरण की जानकारी।
wFlags	झंडे प्रकार के कार्य। साधारण कार्यों के लिए, संपत्ति मान प्राप्त करने के लिए `DISPATCH_PROPERTYGET` पर सेट करें - `DISPATCH_PROPERTYPUT` , संपत्ति मूल्य निर्धारित करने के लिए - `DISPATCH_PROPERTYPUT` , संदर्भ द्वारा - `DISPATCH_PROPERTYPUTREF` ।
pDispParams	फ़ंक्शन कॉल मापदंडों के साथ विशेष संरचना।
pVarResult	सूचक के प्रकार को `VARIANT` जहां फ़ंक्शन कार्य का परिणाम लाएगा।
pExcepInfo	संरचना के लिए एक संकेतक जहां फ़ंक्शन फेंक दिया गया अपवाद लिखेगा। `NULL` को सेट किया जा सकता `NULL` ।
puArgErr	तर्कों के सूचक जो त्रुटि का कारण बने। `NULL` को सेट किया जा सकता `NULL` ।

DISPPARAMS

इस संरचना में तथाकथित फ़ंक्शन के पैरामीटर शामिल हैं। सभी पैरामीटर VARIANT में पैक किए गए हैं।

 Type tagDISPPARAMS '      rgvarg As VARIANTARG Ptr '      rgdispidNamedArgs As DISPID Ptr '    cArgs As UINT '    cNamedArgs As UINT End Type Type DISPPARAMS As tagDISPPARAMS

कोड को सरल बनाने के लिए, हम नामित तर्कों का उपयोग नहीं करेंगे, हम इसके बजाय NULL सेट करेंगे।

अंग

लिपियों में उपयोग के लिए, घटकों को सीधे या अप्रत्यक्ष रूप से IDipatch से प्राप्त होना चाहिए।

ITestCOMServer इंटरफ़ेस

ITestCOMServer इंटरफ़ेस ITestCOMServer निर्माण दो फ़ंक्शन SetCallBack और InvokeCallBack । पहला ऑटोमेशन सर्वर ऑब्जेक्ट को बचाएगा, दूसरा ऑब्जेक्ट फ़ंक्शन को कॉल करेगा।

 Type ITestCOMServer As ITestCOMServer_ Type LPITESTCOMSERVER As ITestCOMServer Ptr Type ITestCOMServerVirtualTable '   IDispatch Dim InheritedTable As IDispatchVtbl Dim SetCallBack As Function( _ ByVal this As ITestCOMServer Ptr, _ ByVal CallBack As IDispatch Ptr, _ ByVal UserName As BSTR _ )As HRESULT Dim InvokeCallBack As Function( _ ByVal this As ITestCOMServer Ptr _ )As HRESULT End Type Type ITestCOMServer_ Dim pVirtualTable As ITestCOMServerVirtualTable Ptr End Type

कक्षा TestCOMServer

अब आप COM - वर्ग घोषित कर सकते हैं:

 Type TestCOMServer '      Dim pVirtualTable As ITestCOMServerVirtualTable Ptr '   Dim ReferenceCounter As ULONG '    Dim CallBackObject As IDispatch Ptr '   Dim UserName As BSTR End Type

फंक्शन सेटेलबैक

SetCallBack फ़ंक्शन SetCallBack कार्यान्वयन सरल है: हम क्लाइंट और फ़ंक्शन कॉल पैरामीटर द्वारा प्रेषित स्वचालन सर्वर ऑब्जेक्ट को सहेजते हैं।

 Function TestCOMServerSetCallBack( _ ByVal pTestCOMServer As TestCOMServer Ptr, _ ByVal CallBack As IDispatch Ptr, _ ByVal UserName As BSTR _ )As HRESULT '      ,      If pTestCOMServer->CallBackObject <> NULL Then IDispatch_Release(pTestCOMServer->CallBack) End If pTestCOMServer->CallBackObject = CallBack '    If pTestCOMServer->CallBackObject <> NULL Then IDispatch_AddRef(pTestCOMServer->CallBack) End If '    SysFreeString(pTestCOMServer->UserName) '      pTestCOMServer->UserName = SysAllocStringLen(UserName, SysStringLen(UserName)) Return S_OK End Function

InvokeCallBack फ़ंक्शन

लेकिन InvokeCallBack फ़ंक्शन के लिए कड़ी मेहनत करनी होगी। सबसे पहले आपको स्वचालन सर्वर के CallBack फ़ंक्शन के डिस्पैचर पहचानकर्ता को प्राप्त करने की आवश्यकता है।

 Function TestCOMServerInvokeCallBack( _ ByVal pTestCOMServer As TestCOMServer Ptr _ )As HRESULT If pTestCOMServer->CallBack = NULL Then Return E_POINTER End If '    Const cNames As UINT = 1 '     Dim rgszNames(cNames - 1) As WString Ptr = {@"CallBack"} '   DISPID Dim rgDispId(cNames - 1) As DISPID = Any Dim hr As HRESULT = IDispatch_GetIDsOfNames( _ pTestCOMServer->CallBackObject, _ @IID_NULL, _ @rgszNames(0), _ cNames, _ GetUserDefaultLCID(), _ @rgDispId(0) _ ) If FAILED(hr) Then MessageBoxW(NULL, "  DISPID", NULL, MB_OK) Return E_FAIL End If

फ़ंक्शन की DISPID प्राप्त होने के बाद, इसे कॉल किया जा सकता है:

  '     «, %UserName%» Dim Greetings As BSTR = SysAllocString(", ") Dim GreetingsUserName As BSTR = Any VarBstrCat(Greetings, pTestCOMServer->UserName, @GreetingsUserName) Const ParamsCount As Integer = 1 '    Dim varParam(ParamsCount - 1) As VARIANT = Any For i As Integer = 0 To ParamsCount - 1 VariantInit(@varParam(i)) Next '   —  varParam(0).vt = VT_BSTR varParam(0).bstrVal = GreetingsUserName Dim Params(0) As DISPPARAMS = Any Params(0).rgvarg = @varParam(0) Params(0).cArgs = ParamsCount Params(0).rgdispidNamedArgs = NULL Params(0).cNamedArgs = 0 '      Dim VarResult As VARIANT = Any Dim ExcepInfo As EXCEPINFO = Any Dim uArgErr As UINT = Any '     hr = IDispatch_Invoke( _ pTestCOMServer->CallBackObject, _ rgDispId(0), _ @IID_NULL, _ GetUserDefaultLCID(), _ DISPATCH_METHOD, _ @Params(0), _ @VarResult, _ NULL, _ NULL _ ) '    For i As Integer = 0 To ParamsCount - 1 VariantClear(@varParam(i)) Next SysFreeString(Greetings) Return S_OK End Function

निष्कर्ष

जैसा कि आप देख सकते हैं, यहां तक कि एक स्क्रिप्ट फ़ाइल के साथ, एक घटक को प्रतिक्रिया मिल सकती है। घटक द्वारा पूर्ण किए गए कार्यों के क्लाइंट को सूचित करने के लिए यह उपयोगी है।

लिपियों में कक्षाएं रजिस्ट्री में पंजीकृत की जा सकती हैं, जिस स्थिति में वे ProgID का उपयोग करते हुए पूरी प्रणाली के लिए उपलब्ध होंगी, लेकिन यह पूरी तरह से पूरी कहानी है।

संदर्भ

Github साइट पर प्रोजेक्ट कोड: https://github.com/zamabuvaraeu/TestCOMServer

PS किसी तरह बेसिक सिंटैक्स के लिए हाइलाइट गायब हो गया, इसके बजाय इसमें VBScript का उपयोग किया गया, और कुछ ऑपरेटरों को इसके साथ हाइलाइट नहीं किया गया है।

स्क्रिप्ट कॉलबैक फ़ंक्शंस