🙋 ⛩️ 🌞 हम खरोंच से मेटास्टॉक के लिए डीएलएल लिखते हैं। भाग ३ 🏌️ ♂️ 👆🏽

इस लेख में मैं समझाऊंगा कि कैसे हमारे संकेतकों (भाग 1, भाग 2) में तर्कों को जोड़ा जाए। MSXNthArg और MSXNthCustomString: MSX डायनेमिक लायब्रेरी DLL के तर्क में दो उपयोगिता फ़ंक्शंस ज़िम्मेदार हैं।

बहस

MSXNthArg को प्रत्येक तर्क के लिए आरंभीकरण के दौरान कहा जाता है, प्रत्येक बाहरी फ़ंक्शन जिसमें तर्क होते हैं।

BOOL __stdcall MSXNthArg (int a_iNthFunc, int a_iNthArg, MSXFuncArgDef *a_psFuncArgDef)

जहाँ
• a_iNthFunc - किसी बाहरी फ़ंक्शन का सूचकांक।
• a_iNthArg इस फ़ंक्शन के तर्क का सूचकांक है।
• a_psFuncArgDef - MSXFuncArgDef डेटा संरचना की ओर इशारा करता है, जिसका उपयोग उपयोगकर्ता द्वारा किसी बाहरी फ़ंक्शन के तर्क के बारे में जानकारी भरने के लिए किया जाता है।
फ़ंक्शन देता है:
• MSX_SUCCESS अगर सब कुछ सही है और
• त्रुटि के मामले में MSX_ERROR।
सभी तर्कों को चार प्रकारों में विभाजित किया गया है:
• MSXDataArray - डेटा ऐरे
• MSXNumeric - संख्या,
• MSXString - स्ट्रिंग,
• MSXCustom - कस्टम।
तर्क का उपयोग करते समय, उपयोगकर्ता को अपना प्रकार और नाम निर्दिष्ट करना होगा। MSXCustom प्रकार का एक तर्क एक विशिष्ट सेट है, जिसके सदस्य मुझे कस्टम तर्क कहेंगे। यदि तर्क प्रकार MSXCustom है, तो आपको कस्टम तर्कों की संख्या भी निर्दिष्ट करनी होगी। यही है, जब तर्क का वर्णन करते हैं, तो हम MSXNthArg में फ़ंक्शन लिखते हैं
गैर- MSXCustom प्रकार के लिए:

 a_psFuncArgDef->iArgType = MSXDataArray; //  MSXNumeric  MSXString strcpy (a_psFuncArgDef->szArgName, " ");

MSXCustom प्रकार के लिए:

 a_psFuncArgDef->iArgType = MSXCustom; a_psFuncArgDef->iNCustomStrings = 8; //  custom- strcpy (a_psFuncArgDef->szArgName, " ");

MSXNthCustomString कस्टम तर्क के लिए ज़िम्मेदार है।

 BOOL __stdcall MSXNthCustomString (int a_iNthFunc, int a_iNthArg, int a_iNthString, MSXFuncCustomString *a_psCustomString)

जहाँ
• a_iNthFunc - किसी बाहरी फ़ंक्शन का सूचकांक।
• a_iNthArg इस फ़ंक्शन के तर्क का सूचकांक है।
• a_iNthString - कस्टम तर्क का सूचकांक।
• a_psFuncArgDef - MSXFuncCustomString डेटा संरचना की ओर इशारा करता है, जिसका उपयोग उपयोगकर्ता को किसी बाहरी फ़ंक्शन के कस्टम तर्कों के बारे में जानकारी देने के लिए किया जाता है।
फ़ंक्शन पिछले मानों के समान मान लौटाता है।
कस्टम तर्क एक जोड़ी है: स्ट्रिंग-पहचानकर्ता। MSXNthCustomString फ़ंक्शन एक स्ट्रिंग और एक संख्यात्मक पहचानकर्ता (आईडी) के पत्राचार को निर्धारित करता है। एक बाहरी फ़ंक्शन में, आईडी द्वारा कस्टम तर्क कहा जाता है। कस्टम तर्कों को परिभाषित करने के लिए उपयोग किए जाने वाले तार में केवल अल्फ़ान्यूमेरिक वर्ण शामिल होना चाहिए। रिक्त स्थान और विशेष वर्णों की अनुमति नहीं है। कस्टम तर्क संवेदनशील नहीं होते हैं।
प्रत्येक प्रकार के तर्कों की संख्या दस से अधिक नहीं हो सकती। यह मत भूलो कि फ़ंक्शन और तर्क 0 से गिने जाते हैं।

अपवाद

मेटास्टॉक क्रैश से बचने के लिए, आपको प्रत्येक बाहरी फ़ंक्शन से अपवाद हैंडलिंग को जोड़ना होगा। अपवाद निम्नानुसार हो सकते हैं:
• अमान्य तर्क,
• आने वाली (गणना के लिए प्रयुक्त) सरणी मेटास्टॉक मानकों का अनुपालन नहीं करती है (भाग 2 देखें),
• तर्क प्राप्त नहीं,
• तर्क सत्य नहीं है,
• आउटपुट (गणना परिणाम) सरणी मेटास्टॉक मानकों को पूरा नहीं करता है।
हम निम्नलिखित सामान्य रूप में इनमें से प्रत्येक स्थिति को संभालेंगे:

 if (  ,  , ) { strncpy (a_psResult->szExtendedError, "Error:  ", sizeof(a_psResult->szExtendedError)-1); //    a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; }

अपवादों को संभालने के लिए, मैंने कुछ अतिरिक्त सुविधाएँ जोड़ीं।

उदाहरण

निम्नलिखित उदाहरण में, मैंने चार संकेतक बनाए जो इसके साथ सौदा करते हैं। प्रत्येक संकेतक के दो तर्क होते हैं - एक सरणी, और दूसरा चार प्रकार का। जैसा कि पहले भाग में वादा किया गया था, मैंने चरणों के अनुक्रम को चित्रित किया।
हम तीन फ़ाइलों के साथ विज़ुअल स्टूडियो में एक प्रोजेक्ट बनाते हैं: MSXStruc.h, Add.cpp, Add.def। हमारी लाइब्रेरी का नाम Add.dll होगा।

चरण 1 - हेडर और निर्यात

कोड

 #include <string.h> #include <stdlib.h> #include <math.h> #include <float.h> #include <tchar.h> #include "MSXStruc.h" #define DLL_EXPORT extern "C" __declspec(dllexport)

चरण 2 - परिवर्तनीय पैरामीटर

यहां फ़ंक्शन और तर्कों के सभी उपयोगकर्ता-परिवर्तनीय पैरामीटर पंजीकृत हैं।

कोड

 //    const char *szMayCopyright ="VS 2010 C++ MSX DLL, Copyright (c) andrzwet, 2014"; const int MyFuncs = 4; //    (fan1,fan2,fan3,fan4) //   const char *szNfan1 = "fan1"; const char *szNfan2 = "fan2"; const char *szNfan3 = "fan3"; const char *szNfan4 = "fan4"; //   const char *szDfan1 = "Add- (DA1 + DA2)"; const char *szDfan2 = "Add- (DA1 + Number)"; const char *szDfan3 = "Add- (DA1 + DAStr)"; const char *szDfan4 = "Add- (DA1 + DACust)"; const int fan1Args = 2; // 2    fan1 - 2  //    fan1 const char *szNAfan1Arg1 = "DA1"; const char *szNAfan1Arg2 = "DA2"; const int fan2Args = 2; // 2    fan2 - 1  ,1  //    fan2 const char *szNAfan2Arg1 = "DA1"; const char *szNNfan2Arg2 = "Numeric"; const int fan3Args = 2; // 2    fan3 - 1  ,1  //    fan3 const char *szNAfan3Arg1 = "DA1"; const char *szNSfan3Arg2 = "DAStr"; const int fan4Args = 2; // 2    fan4 - 1  ,1 CustomType //    fan4 const char *szNAfan4Arg1 = "DA1"; const char *szNCfan4Arg2 = "DACust"; const int fan4ArgsCust = 8; //      fan4  Custom, //       8  () //  custom-   char *szCust1 = "Open"; char *szCust5 = "O"; int id1 = 0; char *szCust2 = "High"; char *szCust6 = "H"; int id2 = 1; char *szCust3 = "Low"; char *szCust7 = "L"; int id3 = 2; char *szCust4 = "Close"; char *szCust8 = "C"; int id4 = 3;

चरण 3 - प्रारंभिक कार्य

चार कार्य यहाँ वर्णित हैं: MSXInfo, MSXNthFunction, MSXNthArg, MSXNthCustomString।

कोड

 // ---------------------------------------------------- DLL_EXPORT BOOL __stdcall MSXInfo (MSXDLLDef *a_psDLLDef) { strncpy (a_psDLLDef->szCopyright, szMayCopyright, sizeof(a_psDLLDef->szCopyright)-1); a_psDLLDef->iNFuncs = MyFuncs; //  . a_psDLLDef->iVersion = MSX_VERSION; return MSX_SUCCESS; } // ---------------------------------------------------- DLL_EXPORT BOOL __stdcall MSXNthFunction (int a_iNthFunc, MSXFuncDef *a_psFuncDef) { BOOL l_bRtrn = MSX_SUCCESS; switch (a_iNthFunc) { case 0: // --- fan1 --- strcpy (a_psFuncDef->szFunctionName, szNfan1); //  strcpy (a_psFuncDef->szFunctionDescription, szDfan1); //  a_psFuncDef->iNArguments = fan1Args; //   break; case 1: // --- fan2 --- strcpy (a_psFuncDef->szFunctionName, szNfan2); //  strcpy (a_psFuncDef->szFunctionDescription, szDfan2); //  a_psFuncDef->iNArguments = fan2Args; //   break; case 2: // --- fan3 --- strcpy (a_psFuncDef->szFunctionName, szNfan3); //  strcpy (a_psFuncDef->szFunctionDescription, szDfan3); //  a_psFuncDef->iNArguments = fan3Args; //   break; case 3: // --- fan4 --- strcpy (a_psFuncDef->szFunctionName, szNfan4); //  strcpy (a_psFuncDef->szFunctionDescription, szDfan4); //  a_psFuncDef->iNArguments = fan4Args; //  . break; default: l_bRtrn = MSX_ERROR; break; } return l_bRtrn; } // ---------------------------------------------------- DLL_EXPORT BOOL __stdcall MSXNthArg (int a_iNthFunc, int a_iNthArg, MSXFuncArgDef *a_psFuncArgDef) { BOOL l_bRtrn = MSX_SUCCESS; //   custom- = 0 () a_psFuncArgDef->iNCustomStrings = 0; switch (a_iNthFunc) { case 0: // ---  fan1 --- switch (a_iNthArg) { case 0: a_psFuncArgDef->iArgType = MSXDataArray; //  strcpy (a_psFuncArgDef->szArgName, szNAfan1Arg1); //  break; case 1: a_psFuncArgDef->iArgType = MSXDataArray; //  strcpy (a_psFuncArgDef->szArgName, szNAfan1Arg2); //  break; default: l_bRtrn = MSX_ERROR; break; } break; case 1: // ---  fan2 --- switch (a_iNthArg) { case 0: a_psFuncArgDef->iArgType = MSXDataArray; //  strcpy (a_psFuncArgDef->szArgName, szNAfan2Arg1); //  break; case 1: a_psFuncArgDef->iArgType = MSXNumeric; //  strcpy (a_psFuncArgDef->szArgName, szNNfan2Arg2); //  break; default: l_bRtrn = MSX_ERROR; break; } break; case 2: // ---  fan3 --- switch (a_iNthArg) { case 0: a_psFuncArgDef->iArgType = MSXDataArray; //  strcpy (a_psFuncArgDef->szArgName, szNAfan3Arg1); //  break; case 1: a_psFuncArgDef->iArgType = MSXString; //  strcpy (a_psFuncArgDef->szArgName, szNSfan3Arg2); //  break; default: l_bRtrn = MSX_ERROR; break; } break; case 3: // ---  fan4 --- switch (a_iNthArg) { case 0: a_psFuncArgDef->iArgType = MSXDataArray; //  strcpy (a_psFuncArgDef->szArgName, szNAfan4Arg1); //  break; case 1: a_psFuncArgDef->iArgType = MSXCustom; //  a_psFuncArgDef->iNCustomStrings = fan4ArgsCust; // - custom- strcpy (a_psFuncArgDef->szArgName, szNCfan4Arg2); //  break; default: l_bRtrn = MSX_ERROR; break; } break; default: l_bRtrn = MSX_ERROR; break; } return l_bRtrn; } // ---------------------------------------------------- DLL_EXPORT BOOL __stdcall MSXNthCustomString (int a_iNthFunc, int a_iNthArg, int a_iNthString, MSXFuncCustomString *a_psCustomString) { BOOL l_bRtrn = MSX_SUCCESS; //  a_psCustomString->szString[0] = '\0'; a_psCustomString->iID = -1; //   typedef struct { char *szString; int iID; } LocalStringElement; //        LocalStringElement l_sTheStrings[] = { {szCust1, id1}, {szCust5, id1}, {szCust2, id2}, {szCust6, id2}, {szCust3, id3}, {szCust7, id3}, {szCust4, id4}, {szCust8, id4} }; switch (a_iNthFunc) { case 3: // Custom-       (fan4) switch (a_iNthArg) { case 1: // Custom-      fan4 //   Custom-. if(a_iNthString >= 0 && a_iNthString < fan4ArgsCust) { //     ID strncpy (a_psCustomString->szString, l_sTheStrings[a_iNthString].szString, sizeof(a_psCustomString->szString)-1); a_psCustomString->iID = l_sTheStrings[a_iNthString].iID; } break; default: l_bRtrn = MSX_ERROR; break; } break; default: l_bRtrn = MSX_ERROR; break; } return l_bRtrn; }

चरण 4 - अतिरिक्त कार्य

यहां हम अपवादों को संभालने के लिए आवश्यक कार्यों को लिखते हैं।

कोड

 /* ForceFloatRange -              float . • FLT_MAX —   ,      float (3.402823466e+38F), • FLT_MIN —   ,      float (1.175494351e-38F). */ #define MSXMax(a,b) (((a) > (b)) ? (a) : (b)) #define MSXMin(a,b) (((a) < (b)) ? (a) : (b)) double ForceFloatRange (double a_lfDbl) { if (a_lfDbl > 0.0) { a_lfDbl = MSXMin (a_lfDbl, double(FLT_MAX)); a_lfDbl = MSXMax (a_lfDbl, double(FLT_MIN)); } else { if (a_lfDbl < 0.0) { a_lfDbl = MSXMax (a_lfDbl, double(-FLT_MAX)); a_lfDbl = MSXMin (a_lfDbl, double(-FLT_MIN)); } } return a_lfDbl; } /* MSXArray -               MetaStock.       MSXDataRec    .      ,          MSXDataRec.   ,  ,              Metastock BasicData,     . ,         ,    MetaStock'. */ BOOL MSXArray(const MSXDataRec *BasicData, const MSXDataInfoRec *ArgData) { if (ArgData->iFirstValid < 0) return FALSE; if (ArgData->iLastValid < 0) return FALSE; if (ArgData->iLastValid < ArgData->iFirstValid) return FALSE; if (ArgData->iFirstValid < BasicData->sClose.iFirstValid) return FALSE; if (ArgData->iLastValid > BasicData->sClose.iLastValid) return FALSE; return TRUE; }

चरण 5 - बाहरी विशेषताएं

fan1 दो डेटा सरणियों ( ExtFml ("Add.fan1", DA1, DA2) को सारांशित करता है।
फ़ंक्शन के दो तर्क हैं, दोनों डेटा की एक सरणी है।

fan1

 DLL_EXPORT BOOL __stdcall fan1 (const MSXDataRec *a_psBasic, const MSXDataInfoRecArgsArray *a_psArrayArgs, const MSXNumericArgsArray *a_psNumericArgs, const MSXStringArgsArray *a_psStringArgs, const MSXCustomArgsArray *a_psCustomArgs, MSXResultRec *a_psResult) { int i = 0; //     (  ) int iMinRecords = a_psBasic->sClose.iFirstValid; int iMaxRecords = a_psBasic->sClose.iLastValid; //   const MSXDataInfoRec *l_psInput1 = a_psArrayArgs->psDataInfoRecs[0]; const MSXDataInfoRec *l_psInput2 = a_psArrayArgs->psDataInfoRecs[1]; int iLvi; int iFvi; // ,     if ( a_psArrayArgs->iNRecs == 2 && a_psNumericArgs->iNRecs == 0 && a_psStringArgs->iNRecs == 0 && a_psCustomArgs->iNRecs == 0) { if (!(MSXArray(a_psBasic, l_psInput1) && MSXArray(a_psBasic, l_psInput2) )) { //    ,    strncpy (a_psResult->szExtendedError, "Error: Corrupted Input Array", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } //      if (l_psInput1 && l_psInput2) { //    fan1 for (i=iMinRecords; i<=iMaxRecords; i++) a_psResult->psResultArray->pfValue[i] = float (ForceFloatRange(l_psInput1->pfValue[i] + l_psInput2->pfValue[i])); //        iFvi = MSXMax(l_psInput1->iFirstValid,l_psInput2->iFirstValid); iLvi = MSXMin(l_psInput1->iLastValid,l_psInput2->iLastValid); a_psResult->psResultArray->iFirstValid = iFvi; a_psResult->psResultArray->iLastValid = iLvi; } else { //  ! strncpy (a_psResult->szExtendedError, "Error: Data array argument missing", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } } else { //   ! strncpy (a_psResult->szExtendedError, "Error: Wrong number of arguments", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } if (!MSXArray(a_psBasic, a_psResult->psResultArray)) { //    ,    strncpy (a_psResult->szExtendedError, "Error: Corrupted Result Array.", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } return MSX_SUCCESS; }

fan2 डेटा सरणी और संख्या ( ExtFml ("Add.fan2", DA1, Numeric) को सारांशित करता है।
फ़ंक्शन में दो तर्क हैं, एक डेटा सरणी है, दूसरा एक नंबर है।

fan2

 DLL_EXPORT BOOL __stdcall fan2 (const MSXDataRec *a_psBasic, const MSXDataInfoRecArgsArray *a_psArrayArgs, const MSXNumericArgsArray *a_psNumericArgs, const MSXStringArgsArray *a_psStringArgs, const MSXCustomArgsArray *a_psCustomArgs, MSXResultRec *a_psResult) { int i = 0; //   const MSXDataInfoRec *l_psInput = a_psArrayArgs->psDataInfoRecs[0]; // float l_fNumber = a_psNumericArgs->fNumerics[0]; // // ,     if ( a_psArrayArgs->iNRecs == 1 && a_psNumericArgs->iNRecs == 1 && a_psStringArgs->iNRecs == 0 && a_psCustomArgs->iNRecs == 0) { if (!MSXArray(a_psBasic, l_psInput)) { //     strncpy (a_psResult->szExtendedError, "Error: Corrupted Input Array", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } //     if (l_psInput) { //    fan2 for (i=l_psInput->iFirstValid; i<=l_psInput->iLastValid; i++) a_psResult->psResultArray->pfValue[i] = float (ForceFloatRange(l_psInput->pfValue[i] + l_fNumber)); //        a_psResult->psResultArray->iFirstValid = l_psInput->iFirstValid; a_psResult->psResultArray->iLastValid = l_psInput->iLastValid; } else { //   ! strncpy (a_psResult->szExtendedError, "Error: Array argument missing", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } } else { //   ! strncpy (a_psResult->szExtendedError, "Error: Wrong number of arguments", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } if (!MSXArray(a_psBasic, a_psResult->psResultArray)) { //    ,    strncpy (a_psResult->szExtendedError, "Error: Corrupted Result Array", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } return MSX_SUCCESS; }

fan3 डेटा सरणी और स्ट्रिंग तर्क द्वारा निर्दिष्ट डेटा सरणी को सारांशित करता है
( ExtFml ("Add.fan3", DA1, DAStr) )।
फ़ंक्शन में दो तर्क हैं, एक डेटा सरणी है, दूसरा एक स्ट्रिंग है।

fan3

 DLL_EXPORT BOOL __stdcall fan3 (const MSXDataRec *a_psBasic, const MSXDataInfoRecArgsArray *a_psArrayArgs, const MSXNumericArgsArray *a_psNumericArgs, const MSXStringArgsArray *a_psStringArgs, const MSXCustomArgsArray *a_psCustomArgs, MSXResultRec *a_psResult) { int i = 0; int iMinRecords = a_psBasic->sClose.iFirstValid; int iMaxRecords = a_psBasic->sClose.iLastValid; const MSXDataInfoRec *l_psInput1; l_psInput1 = a_psArrayArgs->psDataInfoRecs[0]; //  const char *l_pszInput2 =a_psStringArgs->pszStrings[0]; //  const MSXDataInfoRec *l_psData; int iLvi; int iFvi; //  ,    if ( a_psArrayArgs->iNRecs == 1 && a_psNumericArgs->iNRecs == 0 && a_psStringArgs->iNRecs == 1 && a_psCustomArgs->iNRecs == 0) { if (!MSXArray(a_psBasic, l_psInput1)) { //     strncpy (a_psResult->szExtendedError, "Error: Corrupted Input Array", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } //      if (l_psInput1) { //      if (l_pszInput2) { while (*l_pszInput2) { //    switch (*l_pszInput2++) { case 'O': case 'o': l_psData = &a_psBasic->sOpen; break; case 'H': case 'h': l_psData = &a_psBasic->sHigh; break; case 'L': case 'l': l_psData = &a_psBasic->sLow; break; case 'C': case 'c': l_psData = &a_psBasic->sClose; break; default: //    ! strncpy (a_psResult->szExtendedError, "Error: Wrong String argument", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; break; } //    fan3 for (i=iMinRecords; i<=iMaxRecords; i++) a_psResult->psResultArray->pfValue[i] = float(ForceFloatRange( l_psData->pfValue[i] + l_psInput1->pfValue[i])); iFvi = MSXMax(l_psInput1->iFirstValid, l_psData->iFirstValid); iLvi = MSXMin(l_psInput1->iLastValid, l_psData->iLastValid); a_psResult->psResultArray->iFirstValid = iFvi; a_psResult->psResultArray->iLastValid = iLvi; } } else { //   ! strncpy (a_psResult->szExtendedError, "Error: String argument missing", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } } else { //   ! strncpy (a_psResult->szExtendedError, "Error: Array argument missing", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } } else { //   ! strncpy (a_psResult->szExtendedError, "Error: Wrong number of arguments", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } if (!MSXArray(a_psBasic, a_psResult->psResultArray)) { strncpy (a_psResult->szExtendedError, "Error: Corrupted Result Array", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } return MSX_SUCCESS; }

fan4 डेटा सरणी और कस्टम तर्क द्वारा परिभाषित डेटा सरणी को सारांशित करता है
( ExtFml ("Add.fan4", DA1, DACust) )।
फ़ंक्शन में दो तर्क हैं, एक डेटा की एक सरणी है, दूसरा MSXCustom प्रकार का एक तर्क है।

fan4

 DLL_EXPORT BOOL __stdcall fan4 (const MSXDataRec *a_psBasic, const MSXDataInfoRecArgsArray *a_psArrayArgs, const MSXNumericArgsArray *a_psNumericArgs, const MSXStringArgsArray *a_psStringArgs, const MSXCustomArgsArray *a_psCustomArgs, MSXResultRec *a_psResult) { int i = 0; int iMinRecords = a_psBasic->sClose.iFirstValid; int iMaxRecords = a_psBasic->sClose.iLastValid; const MSXDataInfoRec *l_psInput1; l_psInput1 = a_psArrayArgs->psDataInfoRecs[0]; //  int l_psInput2 = a_psCustomArgs->iCustomIDs[0]; // custom int iLvi; int iFvi; // ,     if ( a_psArrayArgs->iNRecs == 1 && a_psNumericArgs->iNRecs == 0 && a_psStringArgs->iNRecs == 0 && a_psCustomArgs->iNRecs == 1) { if (!(MSXArray(a_psBasic, l_psInput1) ) ) { strncpy (a_psResult->szExtendedError, "Error: Corrupted Input Array", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } //   if (l_psInput1) { switch (l_psInput2) { case 0: // Open { for (i=iMinRecords; i<=iMaxRecords; i++) a_psResult->psResultArray->pfValue[i] = float(ForceFloatRange(a_psBasic->sOpen.pfValue[ i ] + l_psInput1->pfValue[i])); iLvi = MSXMin(l_psInput1->iLastValid,iMaxRecords); iFvi = MSXMax(l_psInput1->iFirstValid,iMinRecords); a_psResult->psResultArray->iFirstValid = iFvi; a_psResult->psResultArray->iLastValid = iLvi; } break; case 1: // High { for (i=iMinRecords; i<=iMaxRecords; i++) a_psResult->psResultArray->pfValue[i] = float(ForceFloatRange(a_psBasic->sHigh.pfValue[ i ] + l_psInput1->pfValue[i])); iLvi = MSXMin(l_psInput1->iLastValid,iMaxRecords); iFvi = MSXMax(l_psInput1->iFirstValid,iMinRecords); a_psResult->psResultArray->iFirstValid = iFvi; a_psResult->psResultArray->iLastValid = iLvi; } break; case 2: // Low { for (i=iMinRecords; i<=iMaxRecords; i++) a_psResult->psResultArray->pfValue[i] = float(ForceFloatRange(a_psBasic->sLow.pfValue[ i ] + l_psInput1->pfValue[i])); iLvi = MSXMin(l_psInput1->iLastValid,iMaxRecords); iFvi = MSXMax(l_psInput1->iFirstValid,iMinRecords); a_psResult->psResultArray->iFirstValid = iFvi; a_psResult->psResultArray->iLastValid = iLvi; } break; case 3: // Close { for (i=iMinRecords; i<=iMaxRecords; i++) a_psResult->psResultArray->pfValue[i] = float(ForceFloatRange(a_psBasic->sClose.pfValue[ i ] + l_psInput1->pfValue[i])); iLvi = MSXMin(l_psInput1->iLastValid,iMaxRecords); iFvi = MSXMax(l_psInput1->iFirstValid,iMinRecords); a_psResult->psResultArray->iFirstValid = iFvi; a_psResult->psResultArray->iLastValid = iLvi; } break; default: { //   custom-! strncpy (a_psResult->szExtendedError, "Error: Invalid Custom argument", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } break; } } else { //   ! strncpy (a_psResult->szExtendedError, "Error: Array argument missing", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } } else { //   ! strncpy (a_psResult->szExtendedError, "Error: Wrong number of arguments", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } if (!MSXArray(a_psBasic, a_psResult->psResultArray)) { strncpy (a_psResult->szExtendedError, "Error: Corrupted Result Array", sizeof(a_psResult->szExtendedError)-1); a_psResult->psResultArray->iFirstValid = 0; a_psResult->psResultArray->iLastValid = -1; return MSX_ERROR; } return MSX_SUCCESS; }

चरण 6 - DEF फ़ाइल

नीचे मेरे प्रोजेक्ट के लिए एक उदाहरण DEF फ़ाइल है।
DEF फ़ाइल एक अलग पाठ फ़ाइल है, और इसमें आपकी परियोजना के समान नाम होना चाहिए।

Add.def

 LIBRARY Add EXPORTS MSXInfo MSXNthFunction MSXNthArg MSXNthCustomString fan1 fan2 fan3 fan4

मुझे उम्मीद है कि मेरे लेखों में मैं मेटास्टॉक कार्यक्रम के लिए एक गतिशील एमएसएक्स डीएलएल के निर्माण के सिद्धांतों को सुलभ तरीके से समझाने में सक्षम था।

हम खरोंच से मेटास्टॉक के लिए डीएलएल लिखते हैं। भाग ३

बहस

अपवाद

उदाहरण

More articles: