👨🏽‍💻 🆒 🥡 डेल्फी के लिए एक ओआरएम लिखना 🏑 🧑🏼‍🤝‍🧑🏻 😇

सभी को नमस्कार!
आज मैं आपको डॉक्ट्रिन और जावा ईई प्रथाओं के प्रभाव में आरटीटीआई का उपयोग करके डेल्फी के लिए ओआरएम लिखने के अपने अनुभव के बारे में बताऊंगा।

क्यों?

हाल ही में, डेल्फी 7 पर एक पुरानी परियोजना मेरे अधिकार के तहत गिर गई, जो सक्रिय रूप से इंटरबेस 2009 के तहत डेटाबेस के साथ काम कर रही है। इस परियोजना में कोड मनभावन था, लेकिन वास्तव में जब तक यह डेटाबेस के साथ बातचीत में नहीं आया। डेटा प्राप्त करना, अपडेट करना, नई प्रविष्टियाँ बनाना, हटाना - यह सब एप्लिकेशन लॉजिक में बहुत सारी लाइनें ले गया, जिससे कोड का पता लगाना काफी मुश्किल हो गया (उद्धार एक ईमानदार डेवलपर में है जिसने घड़ी के चारों ओर मेरे मूर्खतापूर्ण सवालों के जवाब दिए)। पुरानी परेशानियों को खत्म करने और इसमें एक नया मॉड्यूल जोड़ने के लिए परियोजना मुझे सौंपी गई थी, जिसका कार्य नए डेटाबेस तालिकाओं को कवर करना है।

मुझे एमवीसी दृष्टिकोण पसंद है और वास्तव में मॉडल कोड के साथ तर्क कोड साझा करना चाहता था। और यहां तक कि पवित्रता के लिए - मैं एक नई तालिका के लिए सभी प्राप्त / निर्धारित विधियों को फिर से लिखना नहीं चाहता था। कुछ साल पहले मुझे ओआरएम की अवधारणा का पता चला और मुझे यह पसंद आया। मुझे सिद्धांत पसंद आया और मैं इसे अपने काम में लगाने में प्रसन्न था।
उसी क्षण, मैं डेल्फी 7 में डॉक्ट्रिन के समान कम से कम कुछ के लिए खोज करने के लिए दौड़ा या शायद टेबलों के लिए एंटिटी / मुखौटा कक्षाओं के जनरेटर ... न तो एक और न ही अन्य। लेकिन खोज परिणामों में कई तैयार समाधान थे। उदाहरण के लिए DORM । सामान्य तौर पर, एक बड़ी बात और, वास्तव में, आपको क्या चाहिए!

लेकिन, मुझे नहीं पता कि अगर यह आपके साथ होता है, तो मैंने तैयार समाधान से इनकार कर दिया, क्योंकि मुझे बहुत सीमित कार्यक्षमता की आवश्यकता है, और DORM या tiOPF की संपूर्ण सामग्री के साथ खींचने की कोई आवश्यकता नहीं है। सभी कमियों की समझ के साथ मैं जो चाहता हूं, उसकी प्राप्ति के साथ, मैंने इस फिसलन ढलान को लिया और, ऐसा लगता है, पहुंच गया ...

सोच

ओआरएम में कम से कम कुछ समानता की अनुपस्थिति गर्दन में दर्द है। मैं इस बारे में बात कर रहा हूं - जावा में, बॉक्स से बाहर, आप तैयार किए गए डेटाबेस का उपयोग करके बनाई गई संस्थाओं के साथ काम करने के लिए इकाई वर्गों और facades का एक सेट बना सकते हैं। इन वर्गों का उद्देश्य डेवलपर को एक निश्चित डेटाबेस के साथ बातचीत करने के लिए तैयार उपकरण प्रदान करना है, क्वेरी पाठ से एप्लिकेशन लॉजिक के मुख्य कोड को साफ़ करना और उनके निष्पादन के परिणामों को पार्स करना है। एक ही रूप में या किसी अन्य में क्यूटी (यदि मेमोरी मुझे अच्छी तरह से काम करती है) में सभी लोकप्रिय PHP फ्रेमवर्क में समान चीजों का उपयोग किया जाता है।

ऑब्जेक्ट मैपिंग और आईडीई में इसे शामिल करने के लिए एक उच्च गुणवत्ता वाले पुस्तकालय को लागू करने में क्या कठिनाई थी? कार्य डेटाबेस से कनेक्ट करना है, उपयोगकर्ता से पूछें कि उसे आवेदन में किन तालिकाओं की आवश्यकता है, तालिकाओं के क्षेत्र और उनके बीच के रिश्तों को पढ़ें (विदेशी कुंजी द्वारा), स्पष्ट करें कि क्या सभी रिश्तों को सही तरीके से समझा गया था और एकत्र किए गए डेटा से कक्षाएं उत्पन्न करता है। पीढ़ी के अनुसार, मेरा मतलब है - इकाई वर्गों का निर्माण जिसका कार्य किसी तालिका से एक रिकॉर्ड का भंडार होना है। तालिका का नाम जानने के बाद, आप इसके सभी क्षेत्रों, फ़ील्ड प्रकारों का पता लगा सकते हैं और इस जानकारी से आवश्यक जानकारी की घोषणा करते हैं, एक प्रकाशित अनुभाग उत्पन्न करते हैं, आवश्यक सेटर और गेटर्स जोड़ते हैं ... सामान्य तौर पर, कार्य समय लेने वाला है, लेकिन साकार होता है।
संस्था की कक्षाएं बनाने के बाद, आईडीई मुखौटा कक्षाएं उत्पन्न करना शुरू कर सकता है (या, जैसा कि मैं उन्हें कहता हूं, एडेप्टर)। एडेप्टर प्रोग्रामर और डेटाबेस के बीच एक परत है और इसका मुख्य कार्य एक निश्चित कुंजी के अनुरूप एक इकाई प्राप्त करने में सक्षम होना है, इसमें परिवर्तन सहेजें, इसे हटाएं। सामान्य तौर पर, एडेप्टर का सार डेटाबेस के साथ काम करने के लिए डेवलपर तरीकों को पेश करना है, जिसके परिणाम उन्हें संबंधित संस्थाओं की वस्तुओं के रूप में प्रस्तुत किया जाएगा।

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

मैं नायकों के कंधों पर संस्थाओं की पीढ़ी को स्थानांतरित करने के लिए तैयार हूं। शायद कोई इसे कैस्टलिया के रूप में आईडीई में भी एम्बेड कर सकेगा। लेकिन मुझे प्रत्येक इकाई के नमूने, अद्यतन, हटाने के तरीकों के लिए अलग से लिखने का कोई कारण नहीं दिखता है। मुझे नहीं चाहिए। मुझे एक वर्ग चाहिए, जिसके लिए मैं उस इकाई का नाम पास करूंगा जिसके लिए मैं findAll पद्धति को कॉल करूंगा और वांछित तालिका से सभी रिकॉर्ड प्राप्त करूंगा। या मैं खोज (5) लिखूंगा और संख्यात्मक कुंजी 5 के साथ एक रिकॉर्ड प्राप्त करूंगा।

प्रक्रिया है

हम TUAdapter क्लास विकसित कर रहे हैं।
परिणामस्वरूप एडॉप्टर को क्या करना चाहिए:

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

मेरी सीमाएँ:

कोई पीडीओ - एक डेटाबेस के लिए विकास - इंटरबेस
डेल्फी 7 में अभी भी RTTI का पुराना संस्करण है। (रेड 2010 आरटीटीआई में बहुत सुधार किया गया है)। आप केवल प्रकाशित फ़ील्ड प्राप्त कर सकते हैं
रिश्तों द्वारा रिश्तों और संस्थाओं को प्राप्त करना (कुछ आंतरिक कारणों से) साकार नहीं होगा।

0. सार वर्ग TUEntity - सभी इकाई का जनक

TPersistent से विरासत में प्राप्त करना चाहिए, अन्यथा हम RTTI को पूरी तरह से लागू नहीं कर पाएंगे। इसमें हम संस्थाओं के इंटरफेस को भी विनियमित करते हैं। अपने काम के दौरान एडेप्टर इकाई को उस तालिका का नाम पूछेगा जिस पर वह मेल खाती है, उस कुंजी फ़ील्ड का नाम प्रदान करें जिसके द्वारा खोज होगी, इस फ़ील्ड का मान, साथ ही इकाई के स्ट्रिंग प्रतिनिधित्व के लिए एक विधि (उदाहरण के लिए लॉग्स के लिए)।

कोड। TUEntity

TUEntity = class (TPersistent) function getKey():integer; virtual; abstract; function getKeyName() : AnsiString; virtual; abstract; function toString(): AnsiString; virtual; abstract; function getTableName(): AnsiString; virtual; abstract; function getKeyGenerator():AnsiString; virtual; abstract; end;

1. किसी वस्तु को उसके नाम से बनाना

यह पहले से ही ऊपर इंगित किया गया था कि संस्थाएं TPersistent वर्ग से विरासत में मिली हैं, लेकिन नाम से बनाई जाने वाली एक इकाई के लिए, सभी आवश्यक संस्थाओं के वर्ग को पंजीकृत करने के लिए देखभाल की जानी चाहिए। मैं पहली पंक्ति में TUAdapter.Create () कंस्ट्रक्टर में ऐसा करता हूं।

कोड। TUAdapter.Create

 constructor TUAdapter.Create(db : TDBase; entityName : AnsiString); begin RegisterClasses([TUObject, TUGroup, TUSource, TUFile]); self.db := db; self.entityName := 'TU' + entityName; uEntityObj := CreateEntity(); self.tblName := uEntityObj.getTableName; self.fieldsSql := getFields(); end;

निर्माण विधि स्वयं इस तरह दिखती है। मैं तर्क के साथ इकाई का नाम क्यों नहीं पास करूं? क्योंकि यह मेरे कार्य के संदर्भ में है, मैं ऐसा करने के बिंदु को नहीं देखता, क्योंकि कार्य के दौरान वस्तुओं को अतिरिक्त रूप से बनाया जाता है, और इकाई का नाम हमेशा एक ही रहता है - एडेप्टर बनाते समय प्रेषित

कोड। अपने नाम से एक इकाई बनाना

 function TUAdapter.CreateEntity(): TUEntity; begin result := TUEntity(GetClass(self.entityName).Create); end;

2. वर्ग फ़ील्ड प्राप्त करना

मुझे लगता है कि यह एक ऐसा सवाल है जो अक्सर डेल्फी के तहत डेवलपर्स द्वारा पूछा जाता है। मुख्य "विशेषता" यह है कि हम सभी फ़ील्ड नहीं प्राप्त कर सकते हैं जैसा कि हम चाहेंगे, लेकिन प्रकाशित अनुभाग से केवल संपत्ति फ़ील्ड। वास्तव में, यह बहुत अच्छा है, क्योंकि यह हमारे कार्य में गुणों का उपयोग करने के लिए बहुत सुविधाजनक है।

कोड। क्लास फील्ड हो रही है

 procedure TUAdapter.getProps(var list: TStringList); var props : PPropList; i: integer; propCount : integer; begin if (uEntityObj.ClassInfo = nil) then begin raise Exception.Create('Not able to get properties!'); end; try propCount := GetPropList(uEntityObj.ClassInfo, props); for i:=0 to propCount-1 do begin list.Add(props[i].Name); end; finally FreeMem(props); end; end;

3. फ़ील्ड नाम से ऑब्जेक्ट फ़ील्ड का मान प्राप्त करना

ऐसा करने के लिए, आप GetPropValue विधि का उपयोग कर सकते हैं। मैं PreferStrings पैरामीटर पर ध्यान केंद्रित करूँगा - यह प्रभावित करता है कि tkEnumeration और tkSet प्रकार के फ़ील्ड्स का परिणाम कैसे वापस आएगा। यदि यह सत्य है, तो enum tkEnumeration से वापस आएगा, और SetProp tkSet से वापस आ जाएगा।

 (Instance: TObject; const PropName: string; PreferStrings: Boolean): Variant;.

कोड। GetPropValue का उपयोग करना

 VarToStr(GetPropValue(uEntityObj, props.Strings[i], propName, true)

4,5,6 ... डेटाबेस के साथ काम करें

मुझे लगता है कि पूरे कोड का हवाला देना बुरा रूप है (और लेख के अंत में इसकी जगह)। और यहां मैं केवल एक हिस्सा दूँगा, सभी डेटा के चयन के लिए अनुरोध के गठन के उदाहरण पर।
डेटा सैंपलिंग के लिए, एक रीड ट्रांजैक्शन उत्पन्न होता है, एक अनुरोध बनाया जाता है। हम क्वेरी और लेनदेन को बांधते हैं, फिर उन्हें चलाते हैं और TIbSQL में सभी मान प्राप्त करते हैं। TIbSQL.EoF और TIbSQL का उपयोग करते हुए, आगे आप सभी रिकॉर्डों पर पुनरावृति कर सकते हैं, जो हम करते हैं - बदले में एक नई इकाई बनाते हुए, इसे एक सरणी में रखें और इसके फ़ील्ड भरें।

कोड। TUAdapter.FindAll विधि

 function TUAdapter.FindAll(): TEntityArray; var rTr : TIBTransaction; rSQL : TIbSQL; props: TStringList; i, k: integer; rowsCount : integer; begin db.CreateReadTransaction(rTr); rSql := TIbSQL.Create(nil); props := TStringList.Create(); try rSql.Transaction := rTr; rSQL.SQL.Add('SELECT ' + fieldsSql + ' FROM '+ tblName); if not rSql.Transaction.Active then rSQL.Transaction.StartTransaction; rSQL.Prepare; rSQl.ExecQuery; rowsCount := getRowsCount(); SetLength(result, rowsCount); getProps(props); i := 0; while not rSQl.Eof do begin result[i] := CreateEntity(); for k:=0 to props.Count-1 do begin if (not VarIsNull(rSql.FieldByName(props.Strings[k]).AsVariant)) then SetPropValue(result[i], props.Strings[k], rSql.FieldByName(props.Strings[k]).AsVariant); end; inc(i); rSql.Next; end; finally props.Destroy; rTr.Destroy; rSQL.Destroy; end; end;

अन्य मामलों में, मैं कुछ कठिनाइयों का उल्लेख करना नहीं भूलूंगा। सबसे पहले, एन्कोडिंग। यदि आपका डेटाबेस WIN1251 एन्कोडिंग के साथ बनाया गया है और Coll12 win1251 के साथ स्थापित किया गया है और आपको डेल्फी के इस डेटाबेस के साथ काम करना है, तो आप बस सिरिलिक वर्णों के साथ एक प्रविष्टि नहीं ले और जोड़ सकते हैं। इस मामले में, लिंक पर जानकारी पढ़ें IBase.ru Rus FAQ । तब वे आपको सिखाएंगे और आपकी उंगली को सभी नुकसानों में डाल देंगे।

मैंने जो पढ़ा उसका एकत्रीकरण निम्नलिखित क्रियाओं की तरह दिखता है:

फ़ोल्डर से bdeAdmin.exe चलाएँ Borland साझा \ BDE \
कॉन्फ़िगरेशन में -> सिस्टम -> Init डिफ़ॉल्ट ड्राइवर विरोधाभास और Langdriver = Pdox Ansi Cyrrilic का चयन करें
कॉन्फ़िगरेशन में -> ड्राइवर -> मूल निवासी, ड्राइवरों में Langdriver = Pdox Ansi Cyrrilic: Microsfot विरोधाभास ड्राइवर, डेटा प्रत्यक्ष ODBC से इंटरबेस, Microsoft dBase ड्राइवर।
हम लागू करें पर क्लिक करके ऑब्जेक्ट के मुख्य मेनू में परिवर्तित तत्वों पर शेष परिवर्तनों को सहेजते हैं।

क्रियाओं का यह क्रम अपडेट या इंसर्ट के अनुरोधों के साथ समस्या नहीं होने में मदद करता है। (और चयन के साथ, सिरिलिक वर्णमाला के साथ कोई समस्या नहीं है)।
कुछ मामलों में, यह इसके बजाय भी मदद करता है:
UPDATE tablename SET field = '';
लिखें:
UPDATE tablename SET field = _win1251'';
यदि आप पैरामीटर के साथ क्वेरी का उपयोग करते हैं तो यह काम नहीं करेगा, क्योंकि TIbSQL _win1251 फ़ंक्शन से परिचित नहीं है।
उदाहरण के लिए, ऐसा कोड काम नहीं करेगा और अपवाद फेंक देगा।

 IbSQL.SQL.Add("UPDATE tablename SET field = _win1251 :field"); IbSQL.Prepare(); // <- Exception IbSQL.Params.byName('field').asString := '';

अन्य मामलों में, उपरोक्त 4 चरणों को पूरा करने के बाद, आपको _win1251 का उपयोग करने की आवश्यकता नहीं है और आप अनुरोध करने के लिए स्वतंत्र हैं। मैंने इसे साकार किए बिना एक कठिन रास्ता चुना और स्वतंत्र रूप से अनुरोध करने का फैसला किया। मुझे इस बात का ध्यान नहीं था कि परिसीमन कुछ बोझों के साथ संचरित मापदंडों को फ़िल्टर करने पर ले जाएगा। यह स्पष्ट नहीं है कि मेरा क्या मतलब है?

मैं एक समस्या में भाग गया जब एक क्षेत्र के पाठ मूल्य में उद्धरण चिह्न या लाइन फ़ीड होता है। और मुझे इन पात्रों को मान्य लोगों के साथ बदलने के लिए एक विधि लिखनी थी:

कोड। TUAdapter.Escape ()

 function TUAdapter.StringReplaceExt(const S : string; OldPattern, NewPattern: array of string; Flags: TReplaceFlags):string; var i : integer; begin Assert(Length(OldPattern)=(Length(NewPattern))); Result:=S; for i:= Low(OldPattern) to High(OldPattern) do Result:=StringReplace(Result,OldPattern[i], NewPattern[i], Flags); end; function TUAdapter.escape(const unescaped_string : string ) : string; begin Result:=StringReplaceExt(unescaped_string, [ #39, #34, #0, #10, #13, #26], ['`','`','\0','\n','\r','\Z'] , [rfReplaceAll] ); end;

परिणाम

सामान्य तौर पर, हमने एनिटिटी वर्गों के लिए आवश्यकताएं विकसित की हैं:

निजी क्षेत्रों का वर्णन करें
प्रकाशित अनुभाग में संपत्ति के रूप में तालिका के स्तंभों के अनुरूप फ़ील्ड का वर्णन करें
संपत्तियों के नाम उनके संबंधित कॉलम के नामों से मेल खाना चाहिए
यदि आवश्यक हो, तो खेतों के लिए (बूलियन, TDateTime के लिए, बूँद क्षेत्रों के लिए) गेट / सेट विधियों को लागू करें

तो चलिए बताते है हमारे पास निम्नलिखित डेटाबेस है

हम दो इकाई वर्ग TUser और TPost बनाते हैं।

कोड। ट्यूसर घोषणा

 TUsersArray = Array of TUser; TUser = class(TUEntity) private f_id: longint; f_name : longint; f_password : AnsiString; f_email : AnsiString; f_last_login : TDateTime; f_rate: integer; published property id: integer read f_id write f_id; property name : AnsiString read f_name write f_name ; property password : AnsiString read f_password write f_password ; property email : AnsiString read f_email write f_email ; property last_login: AnsiString read getLastLogin write setLastLogin; property rate: integer read f_rate write f_rate; public constructor Create(); procedure setParams(id, rate: longint; name, password, email: AnsiString); procedure setLastLogin(datetime: AnsiString); function getLastLogin(): AnsiString; function getKey(): integer; override; function getKeyName(): AnsiString; override; function toString(): AnsiString; override; function getTableName(): AnsiString; override; function getKeyGenerator():AnsiString; override; end;

टीपोस्ट को उसी तरह से घोषित किया जाता है।

और एडॉप्टर के साथ कोड में उपयोग इस तरह दिखेगा:

 var Adapter : TUAdapter; users: TUsersArray; i: integer; begin Adapter := TUAdapter.Create(db, 'User'); try users:= TUsersArray(Adapter.FindAll()); for i:=0 to Length(users) -1 do begin Grid.Cells[0, i+1] := VarToStr(users[i].id); Grid.Cells[1, i+1] := VarToStr(users[i].name); Grid.Cells[2, i+1] := VarToStr(users[i].email); Grid.Cells[3, i+1] := VarToStr(users[i].password); SetRateStars(i, VarToStr(users[i].rate)); Grid.Cells[5, i+1] := VarToStr(users[i].last_login); end; finally Adapter.Destroy; end; end;

निष्कर्ष

मैं RTTI का उपयोग करके कोड की गति पर ध्यान देना चाहूंगा। अनुभव बताता है कि आरटीटीआई के तरीकों का बार-बार उपयोग आवेदन को धीमा कर देगा, लेकिन मेरी वास्तविकता में, विकसित वर्ग की गति पर्याप्त है। मेरा मानना है कि लक्ष्य प्राप्त कर लिया गया है और परिणामस्वरूप थोड़ी कार्यक्षमता के साथ किसी प्रकार का ओआरएम है, लेकिन ईमानदारी से इसे सौंपे गए कार्यों को हल करना है।

BitBucket पर प्रोजेक्ट।

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

युपीडी:
कोड में कोई और मैसेजबॉक्स नहीं।

डेल्फी के लिए एक ओआरएम लिखना