🆒 🦀 🌻 एक उदाहरण के रूप में डेल्फी का उपयोग करते हुए कैच डीबीएमएस ऑब्जेक्ट्स के साथ काम करना 👨🏿‍🏭 🙊 👨🏾‍🔧

डेल्फी के स्थायी अंतिम संस्कार के बावजूद, डेस्कटॉप अनुप्रयोगों के निर्माण के लिए यह मंच जीवित है और अच्छी तरह से है, और स्वामित्व में बदलाव के साथ, यह एक दूसरी हवा भी लेता है और दुनिया भर के हजारों डेवलपर्स के लिए मुख्य उपकरण बना हुआ है।
किसी भी अन्य DBMS के रूप में, डेल्फी Caché DBMS के साथ अच्छी तरह से बातचीत करता है।

डेल्फी से, आप निम्नलिखित इंटरफेस का उपयोग करके कैच से कनेक्ट कर सकते हैं:

कैच ऑब्जेक्ट्स (CacheObject.dll / CacheActiveX.dll पुस्तकालयों का उपयोग करके ऑब्जेक्ट);
कैच एसक्यूएल (ओडीबीसी ड्राइवर का उपयोग करके संबंधपरक);
कैच डायरेक्ट (Vism.ocx लाइब्रेरी का उपयोग कर प्रत्यक्ष);
वेब सेवाएँ
सॉकेट ।

यह आलेख Caché DBMS के साथ काम करते समय ऑब्जेक्ट इंटरफ़ेस का उपयोग करने के उदाहरणों पर चर्चा करेगा।

लेकिन सबसे पहले, मैं आपको कुछ छोटे VBScript उदाहरण देता हूं जिन्हें आप सीधे विंडोज एक्सप्लोरर से चला सकते हैं।

प्रत्यक्ष अभिगम उदाहरण:

Set f = CreateObject("VISM.VisMCtrl.1") f.Server="CN_IPTCP:localhost[1972]:_system:@ SYS" f.NameSpace="SAMPLES" f.Execute("=$zv") '   WScript.Echo f.VALUE

संबंधपरक पहुंच उदाहरण:

 Set cn=Createobject("ADODB.Connection") cn.ConnectionString="DRIVER={InterSystems ODBC35}; SERVER=127.0.0.1; PORT=1972; DATABASE=SAMPLES; UID=_system; PWD=SYS" cn.open WScript.Echo "Succesfully!"

ऑब्जेक्ट एक्सेस उदाहरण:

 Set f = CreateObject("CacheActiveX.Factory") Set rs = CreateObject("CacheActiveX.ResultSet") If Not f.IsConnected() Then f.Connect("cn_iptcp:127.0.0.1[1972]:SAMPLES:_SYSTEM:SYS") Set rs=f.DynamicSQL("select TOP 3 * from Sample.Person") rs.Execute() while rs.Next WScript.Echo rs.Get("SSN") '  SSN      Sample.Person wend rs.Close() Set person = f.Static("Sample.Person") age=person.CurrentAge(45678) '   Sample.Person WScript.Echo age End If

इसी तरह से आप JScript, Visual Basic, C ++ बिल्डर, आदि का उपयोग करके Caché DBMS के साथ काम कर सकते हैं।

नोट: जावा और .NET के लिए कई देशी इंटरफेस हैं जो बहुत अधिक सुविधाएँ प्रदान करते हैं।

देर से और जल्दी बाध्यकारी

डेल्फी से कछ वस्तुओं के साथ काम करने के लिए दो दृष्टिकोण हैं:

देर से बाध्यकारी;
जल्दी बाध्यकारी ।

इनमें से प्रत्येक दृष्टिकोण के अपने फायदे और नुकसान हैं, जो हालांकि एक दूसरे को रद्द करते हैं।

देर से बाध्यकारी के साथ, कोड संकेत डेवलपर के लिए उपलब्ध नहीं है; तदनुसार, कोड में गलती करने की एक उच्च संभावना है, जो केवल प्रोग्राम निष्पादन के दौरान पता लगाया जाएगा। कोड के गतिशील रूप से निष्पादित होने के बाद ऑपरेशन की गति शुरुआती बाध्यकारी की तुलना में थोड़ी कम है।

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

इन दोनों दृष्टिकोणों को मिलाकर, आप इष्टतम प्रदर्शन और उपयोग में आसानी प्राप्त कर सकते हैं।

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

Caché ऑब्जेक्ट्स काम करने के लिए दो पुस्तकालयों का उपयोग करता है, जो C: \ Program Files \ Common Files \ InterSystems \ Cache \ में डिफ़ॉल्ट रूप से इंस्टॉल किए जाते हैं:

CacheObject.dll (पदावनत);
CacheActiveX.dll (अनुशंसित)।

Caché 5.1 के साथ शुरू, InterSystems डेवलपर्स नए CacheActiveX.dll लाइब्रेरी का उपयोग करने की दृढ़ता से सलाह देते हैं। CacheObject.dll लाइब्रेरी केवल पुराने अनुप्रयोगों के साथ संगतता के लिए शेष है। इसलिए, इस लेख में मैं CacheActiveX.dll पर आधारित होगा।

इन पुस्तकालयों और बारीकियों के बीच के अंतर जिन्हें नए संस्करण में अपग्रेड करने पर विचार करने की आवश्यकता है, उन्हें CacheObject.dll से अपग्रेड करने में पाया जा सकता है।

ऊपर की निर्देशिका में आप अन्य फाइलें पा सकते हैं जो आपके लिए उपयोगी हो सकती हैं:

DelphiCallback.dll ;
CacheList.ocx ;
CacheQuery.ocx ;
VISM.ocx ।

डेल्फी में Caché Objects ActiveX घटकों को आयात और स्थापित करें

यह खंड बताता है कि कैसे प्रारंभिक बंधन का उपयोग करके Caché DBMS में वस्तुओं के साथ काम करने के लिए डेल्फी वातावरण में बुनियादी कक्षाएं और इंटरफेस स्थापित करना है। आप इस अनुभाग को देर से बाध्यकारी के साथ काम करने के लिए छोड़ सकते हैं।

तो, क्रम में:

मेनू आइटम का चयन करें घटक> आयात घटक ... ;
सबसे पहले, CacheActiveX 2.0 प्रकार लाइब्रेरी का चयन करें;
हमारे बुकमार्क का नाम सेट करें जहां हम अपने घटकों, साथ ही अन्य मापदंडों को स्थापित करना चाहते हैं;
हमारे मॉड्यूल बनाएं, अब तक स्थापना के बिना;
निम्नलिखित पुस्तकालयों के लिए चरण 2-4 दोहराएं:
- CacheActiveX 2.0 प्रकार पुस्तकालय ;
- CacheList ActiveX नियंत्रण मॉड्यूल ;
- कैशेविक एक्टिवएक्स कंट्रोल मॉड्यूल ;
- डेल्फीकॉलबैक 1.0 प्रकार पुस्तकालय ;
- वीएसएम 7.2 एक्टिवएक्स कंट्रोल ;
- टीएल 1.0 प्रकार पुस्तकालय ।
नोट: आप डेल्फी के साथ शामिल tlibimp.exe उपयोगिता का उपयोग करके भी मॉड्यूल बना सकते हैं।
पैकेज का एक नया प्रोजेक्ट बनाएं और इसमें पहले से बनाए गए सभी मॉड्यूलों को जोड़ें। हम परियोजना को संकलित करते हैं और अपना पैकेज स्थापित करते हैं। यहाँ हमें क्या करना चाहिए:
नोट: डेल्फी के पुराने संस्करणों के लिए, मॉड्यूल बनाने की प्रक्रिया थोड़ी अलग है:
- मेनू आइटम प्रोजेक्ट> आयात प्रकार लाइब्रेरी का चयन करें ... ;
- आगे ऊपर पैराग्राफ देखें।

कस्टम प्रॉक्सी कक्षाएं बनाना

यह खंड प्रारंभिक बाइंडिंग का उपयोग करके Caché DBMS में ऑब्जेक्ट्स के साथ काम करने के लिए कस्टम प्रॉक्सी कक्षाओं की पीढ़ी का वर्णन करता है। आप इस अनुभाग को देर से बाध्यकारी के साथ काम करने के लिए छोड़ सकते हैं।

सबसे पहले आपको एक ओडीएल फ़ाइल जनरेट करनी होगी जिसमें हमारे लिए आवश्यक सभी उपयोगकर्ता वर्ग हैं। ऐसा करने के लिए, Caché DBMS के साथ दिए गए odl_generator.exe उपयोगिता का उपयोग करें।

उदाहरण:

 odl_generator.exe -conn cn_iptcp:localhost[1972]:USER:_system:SYS -class-list test.txt -lib-name test -dir MIDL

इस उदाहरण में, उपयोगिता USER क्षेत्र से जुड़ती है, test.txt फ़ाइल में सूचीबद्ध वर्गों के लिए प्रॉक्सी कक्षाएं उत्पन्न करती है, और परिणाम को MIDL \ test.odl फ़ाइल में सहेजती है

नोट : इस प्रकार प्राप्त फ़ाइल CacheActiveX.dll लाइब्रेरी के साथ उपयोग के लिए अभिप्रेत है। पुरानी लाइब्रेरी के साथ काम करने के लिए डिज़ाइन की गई ODL फ़ाइल जनरेट करने के लिए, ExportODL विधि का % SYSTEM.OBJ वर्ग का उपयोग करें

उदाहरण:
set list= "%Library.Status,Sample.Person" do $system .OBJ . ExportODL (list, "c:\MIDL\test.odl" , "-d" ,.err)

तो, ODL फ़ाइल प्राप्त हुई है, अब आपको TLB फ़ाइल और फिर PAS फ़ाइल प्राप्त करने के लिए इसे संकलित करने की आवश्यकता है। ऐसा करने के लिए, आप दृश्य C ++ डेवलपर किट के साथ शामिल midl.exe या mktypelib.exe उपयोगिताओं का उपयोग कर सकते हैं।

उदाहरण:

 midl /I . test.odl /tlb test.tlb tlibimp.exe -C- -P+ -Hr- -Ha- -Hs- -XM- test.tlb

नोट: आप Caché DBMS MAC प्रोग्राम का उपयोग करके उपरोक्त सभी चरणों को स्वचालित कर सकते हैं।

सर्वर पर प्रारंभिक कार्य

चलो हमारे परीक्षण डेटाबेस में निम्नलिखित डेटा कक्षाएं बनाते हैं:

/// Class pas.s Extends %SerialObject { /// (64-). Property aInteger As %Integer ; /// . - 50 . Property aString As %String ; }

/// . Class pas.a Extends %Persistent { /// aA; Index aAIndex On aA; /// --, "". SQL foreign key. Relationship aA As pas.test [ Cardinality = one, Inverse = aChilds ]; Property aInteger As %Integer ; Property aString As %String ; }

/// %occIO.inc . Include %occIO /// . Class pas.test Extends %Persistent { /// , ; Parameter EXTENTQUERYSPEC As ROWSPEC [ Flags = LIST ] = aBoolean,aInteger,aString,aDate,aTimeStamp" ; /// (true/false/null); Property aBoolean As %Boolean ; Property aInteger As %Integer ; Property aString As %String ; /// ; Property aDate As %Date ; /// +; Property aTimeStamp As %TimeStamp ; /// (CLOB); Property aMemo As %GlobalCharacterStream ; /// (BLOB); Property aPhoto As %GlobalBinaryStream ; /// --, "". SQL . Relationship aChilds As pas.a [ Cardinality = many, Inverse = aA ]; /// - ; /// SQL /// -. Property aS As pas.s ; /// - ; /// SQL , , . Property aListOfString As list Of %String ; /// - ; /// SQL , , . Property aListOfA As list Of pas.a ; /// - ; /// SQL . Property aArrOfString As array Of %String ; /// - ; /// SQL . Property aArrOfA As array Of pas.a ; /// . /// , . Method %OnBeforeSave( insert As %Boolean ) As %Status [ Private , ServerOnly = 1 ] { ; write "Hello from Cache! (" , $$$CurrentClass , ":" , $$$CurrentMethod , ")" ,! quit $$$OK } /// - : . Query test1( ABoolean As %Boolean , AInteger As %Integer , AString As %String , ADate As %Date , ATimeStamp As %TimeStamp ) As %SQLQuery ( CONTAINID = 1 , ROWSPEC = "ID:%String,aBoolean:%Boolean,aInteger:%Integer,aString:%String,aDate:%Date,aTimeStamp:%TimeStamp" ) [ SqlProc ] { SELECT %ID , aBoolean , aInteger , aString , aDate , aTimeStamp FROM pas . test WHERE ( aBoolean = :ABoolean or :ABoolean is null ) AND ( aInteger = :AInteger or :AInteger is null ) AND ( aString = :AString or :AString is null ) AND ( aDate < :ADate or :ADate is null ) AND ( aTimeStamp <= :ATimeStamp or :ATimeStamp is null ) } /// - : "" /// %INLIST. Query test2( AList As %List ) As %SQLQuery ( CONTAINID = 1 , ROWSPEC = "ID:%String,aBoolean:%Boolean,aInteger:%Integer,aString:%String,aDate:%Date,aTimeStamp:%TimeStamp" ) [ SqlProc ] { SELECT %ID , aBoolean , aInteger , aString , aDate , aTimeStamp FROM pas . test WHERE ID %INLIST :AList } /// . ClassMethod test3( AList As %List ) As %Status { ; AList write AList ; set ^pastest=AList quit $$$OK } /// . ClassMethod test4() As %Status { quit $$$ERROR ( $$$GeneralError , "My error!" ) } /// . ClassMethod test5( Arg1... As %List ) As %Status { ; write "Invocation has " , $get (Arg1, 0), " element" , $select (( $get (Arg1, 0)=1): "" , 1: "s" ),! for i = 1 : 1 : $get (Arg1, 0) { write :( $data (Arg1(i))>0) "Argument[" ,i, "]:" ,?15, $get (Arg1(i), "<NULL>" ),! } quit $$$OK } /// : . /// . /// : /// <var>ID</var> - ; /// <var>A</var> - ; /// <var>BLOB</var> - ; /// <var>RS1</var> - , Borland ® MyBase (DataSnap (TM)) XML DataSet; /// <var>RS2</var> - , Borland ® MyBase (DataSnap (TM)) XML DataSet; ClassMethod test6( ID As %String , ByRef A As pas.a , Output BLOB As %BinaryStream , Output RS1 As %CharacterStream , Output RS2 As %CharacterStream ) As %Status { // , set A. aString =999 // set BLOB= ##class ( %GlobalBinaryStream ). %New () // do BLOB. Write ( "123" ) // set RS1= ##class ( %GlobalCharacterStream ). %New () set RS2= ##class ( %GlobalCharacterStream ). %New () // , XML TClientDataSet set cds= ##class ( %XML.ZMyBaseDataSet ). %New () // do cds. Prepare ( "select * from pas.a where id %inlist ?" ) // do cds. SetArgs ( $listbuild (1,2,3,9)) // XML do cds. XMLExportToStream (.RS1) // ( ) do cds. Close () do cds. Prepare ( "select ID,aBoolean,aInteger,aString,aDate,aTimeStamp from pas.test" ) do cds. XMLExportToStream (.RS2) do cds. Close () // "" quit $$$OK } }

हम उनके लिए और साथ ही निम्न कक्षाओं के लिए प्रॉक्सी कक्षाएं उत्पन्न करेंगे:

% Library.ArrayOfDataTypes
% लाइब्रेरी
% लाइब्रेरी.लिस्टऑफऑब्जेक्ट्स
% लाइब्रेरी.लिस्टऑफडाटाटाइप्स
% लाइब्रेरी

अब, यदि आप जनरेट की गई PAS फ़ाइल को प्रोजेक्ट से कनेक्ट करते हैं, तो हमारी कक्षाओं के सबसे महत्वपूर्ण तरीके और गुण उपलब्ध हो जाते हैं:

^{वृद्धि}

नोट : स्ट्रीम कक्षाएं और कुछ अन्य को Caché DBMS से आयात नहीं किया जाना चाहिए, क्योंकि वे पहले से ही CacheActiveX.dll लाइब्रेरी में वायर्ड हैं और उत्पन्न प्रॉक्सी कक्षाओं के साथ असंगत हैं।

DBMS Caché के लिए कनेक्शन

लेट बाइंडिंग (पुरानी लाइब्रेरी):

 var _f:variant; begin _f:=CreateOleObject('CacheObject.Factory'); if _f.Connect(_f.ConnectDlg('+%up')) then ShowMessage('OK') else ShowMessage('ERROR');

देर से बाध्यकारी (नया पुस्तकालय):

 var _f:variant; begin _f:=CreateOleObject('CacheActiveX.Factory'); if _f.Connect(_f.ConnectDlg('+%up')) then ShowMessage('OK') else ShowMessage('ERROR');

प्रारंभिक बाध्यकारी (नया पुस्तकालय):

 type Tfm = class(TForm) f: TFactory; ... begin ... if f.Connect1(f.ConnectDlg('+%up')) then ShowMessage('OK') else ShowMessage('ERROR'); ...

नोट : पुरानी लाइब्रेरी % Service_CacheDirect सेवा और केवल अनधिकृत एक्सेस का उपयोग करती है, नया %% Service_Bindings और अन्य एक्सेस विधियों का उपयोग करता है ।

TFactobry वर्ग, साथ ही अन्य वर्गों के तरीकों का विस्तृत विवरण ActiveX API संदर्भ में पाया जा सकता है

कॉलिंग क्वेश्चन और शुरुआती बाइंडिंग के उपयोग के तरीके

CallBack कार्यक्षमता का उपयोग करना

डेल्फी से कॉलबैक कार्यक्षमता का उपयोग करने के लिए, आपको डेल्फीकॉलबैक . dll फ़ाइल से तैयार किए गए TCallback वर्ग का उपयोग करना चाहिए।

 var f:TFactory; Callback1: TCallback; mm: TMemo; ... f.SetOutput(Callback1.OleObject); ... procedure Tfm.Callback1TextChanged(Sender: TObject; const p_bstrText: WideString); begin mm.Lines.Append(p_bstrText); end;

सभी डेटा हटाएं

  mm.Lines.Text:='KillExtent'#10#13; //   test_(f.Static('pas.test')).SYS_KillExtent(1); a(f.Static('pas.a')).SYS_KillExtent(1);

विभिन्न प्रकार की वस्तुओं को बनाने, भरने, सहेजने और जारी करने का एक उदाहरण

आप सर्गेई कुडिनोव के लेख में ActiveX के माध्यम से काम करते समय ऑब्जेक्ट्स को बंद करने की सुविधाओं के बारे में पढ़ सकते हैं: ActiveX, CPP- बाइंडिंग के माध्यम से काम करते समय ऑब्जेक्ट्स को बंद करने की विशेषताएं ।

कोड उदाहरण:

 ... uses test_TLB, AxCtrls, ComObj, ActiveX, Types; ... const N = 3; var i: integer; _t: test_; _a: A; _s: s; rel: RelationshipObject; listStr: ListOfDataTypes; listA: ListOfObjects; arrStr: ArrayOfDataTypes; arrA: ArrayOfObjects; stream: IDispatch; begin Screen.Cursor := crSQLWait; mm.Lines.Text:='Save'#10#13; try try //     pas.test _t := test_(f.New('pas.test')); //     _t.aBoolean := true; _t.aInteger := 50; _t.aString := ' '; //     null    // (%Integer,%Boolean,%Date  ..) Variant(_t).aDate := nil; _t.aDate := _t.aDateDisplayToLogical('02.03.2001'); //  t.aDate:=StrToDate('02.03.2001'); _t.aTimeStamp := _t.aTimeStampDisplayToLogical('1900-01-02 12:34:55'); //  t.aTimeStamp:=StrToDateTime('02.01.1900 12:34:55'); //     stream := _t.aMemo; ICharStream(stream).Write(' '); stream := nil; //     stream := _t.aPhoto; IBinaryStream(stream).FileRead('C:\test.jpg'); stream := nil; //  N ""   pas.a rel := RelationshipObject(_t.aChilds); for i := 1 to N do begin _a := A(f.New('pas.a')); _a.aInteger := i; _a.aString := 'rel' + IntToStr(i); rel.Insert(_a); _a.SYS_Close; end; _t.aChilds := rel; rel.SYS_Close; //     _s := s(_t.aS_); _s.aInteger := 1; _s.aString := 's1'; _s.SYS_Close; //     .     listStr := ListOfDataTypes(f.New('%ListOfDataTypes')); for i := 1 to N do listStr.Insert('str' + IntToStr(i)); _t.aListOfString := listStr; listStr.SYS_Close; //    pas.a     listA := ListOfObjects(f.New('%ListOfObjects')); for i := 1 to N do begin _a := A(f.New('pas.a')); _a.aInteger := i; _a.aString := 'listA' + IntToStr(i); listA.Insert(_a); _a.SYS_Close; end; _t.aListOfA := listA; listA.SYS_Close; //     .     arrStr := ArrayOfDataTypes(f.New('%ArrayOfDataTypes')); for i := 1 to N do arrStr.SetAt('astr' + IntToStr(i), 'arraykey' + IntToStr(i)); _t.aArrOfString := arrStr; arrStr.SYS_Close; //    pas.a     arrA := ArrayOfObjects(f.New('%ArrayOfObjects')); for i := 1 to N do begin _a := A(f.New('pas.a')); _a.aInteger := i; _a.aString := 'arrayA' + IntToStr(i); arrA.SetAt(_a, 'arraykey' + IntToStr(i)); _a.SYS_Close; end; _t.aArrOfA := arrA; arrA.SYS_Close; //         .   //          // . _t.SYS_Save(0); //          stream := _t.aPhoto; SetOlePicture(img.Picture, IBinaryStream(stream).GetPicture); stream := nil; //    .      //   ,  "" (%sysOrefs). //         //       . _t.SYS_Close; //     _t := nil; mm.Lines.Append('OK'); except on E: Exception do begin mm.Lines.Append(E.Message); end; end; finally Screen.Cursor := crDefault; //      , //      f.ForceSync; end;

अत्यधिक अनुरोध (संग्रहीत वर्ग के सभी उदाहरण प्राप्त करना)

 var mm: TMemo; rs: TResultSet; ... mm.Lines.Text:='Extent'#10#13; rs.ConnectTo(IResultSet(f.ResultSet('pas.test', 'Extent'))); rs.Execute; while rs.Next do begin mm.Lines.Append(Format('ID = %s',[rs.GetDataAsString(1)])); mm.Lines.Append(Format('aBoolean = %s',[rs.Get('aBoolean')])); mm.Lines.Append(Format('aInteger = %s',[rs.Get('aInteger')])); mm.Lines.Append(Format('aString = %s',[rs.Get('aString')])); mm.Lines.Append(Format('aDate = %s',[rs.Get('aDate')])); mm.Lines.Append(Format('aTimeStamp = %s',[rs.Get('aTimeStamp')])); mm.Lines.Append('-----'); end; rs.Close; rs.Disconnect;

प्रश्न परीक्षण १

 var i: integer; ... mm.Lines.Text:='test1'#10#13; rs.ConnectTo(IResultSet(f.ResultSet('pas.test', 'test1'))); rs.SetParam(1, null); rs.SetParam(2, 50); rs.SetParam(3, null); rs.SetParam(4, '03.03.2001'); rs.SetParam(5, '1900-01-02 12:34:55.0'); rs.Execute; while rs.Next do begin for i := 1 to rs.GetColumnCount do mm.Lines.Append(rs.GetColumnName(i)+' = '+rs.GetDataAsString(i)); mm.Lines.Append('-----'); end; rs.Close; rs.Disconnect;

प्रश्न परीक्षण २

 var i: integer; syslist: TSyslist; ... mm.Lines.Text:='test2'#10#13; //    %List syslist.Clear; syslist.Add(1); syslist.Add(2); syslist.Add(3); rs.ConnectTo(IResultSet(f.ResultSet('pas.test', 'test2'))); rs.Execute(syslist.DefaultInterface); while rs.Next do begin for i := 1 to rs.GetColumnCount do mm.Lines.Append(rs.GetColumnName(i)+' = '+rs.GetDataAsString(i)); mm.Lines.Append('-----'); end; rs.Close; rs.Disconnect;

विधि परीक्षण 3। कक्षा TSysList की एक वस्तु के साथ काम करना (Caché में% सूची)

  mm.Lines.Text:='test3'#10#13; //    %List syslist.Clear; syslist.Add('16'); syslist.Add('42'); syslist.Add('35'); test_(f.Static('pas.test')).test3(syslist.DefaultInterface);

विधि परीक्षण 4। हैंडलिंग में त्रुटि

  mm.Lines.Text:='test4'#10#13; try test_(f.Static('pas.test')).test4(); except on E: Exception do begin mm.Lines.Append(E.Message); end; end;

टेस्ट 5 विधि

  mm.Lines.Text:='test5'#10#13; //    %List syslist.Clear; syslist.Add('16'); syslist.Add('42'); syslist.Add('35'); test_(f.Static('pas.test')).test5(syslist.DefaultInterface);

टेस्ट 6 विधि

यह उदाहरण % XML.ZMyBaseDataSet वर्ग का उपयोग करता है, जो यहां पाया जा सकता है । इसकी मदद से, सर्वर पर डेटा को बोरलैंड® माईबेस (डेटास्नाप (टीएम)) एक्सएमएल डेटासेट में बनाना संभव है । वेब सेवाओं के लिए भी शामिल है।

 cds1,cds2:TClientDataSet; ... var _a:a; __a,blob,rs1,rs2:IDispatch; cs1,cs2:ICharStream; begin mm.Lines.Text:='test6'#10#13; try _a:=a(f.OpenId('pas.a','1')); __a:=_a; test_(f.Static('pas.test')).test6('1',__a,blob,rs1,rs2); cs1:=ICharStream(rs1); cs2:=ICharStream(rs2); mm.Lines.Append('A.aString = '+_a.aString); mm.Lines.Append('BLOB.Size = '+IntToStr(IBinaryStream(blob).size)); mm.Lines.Append('RS1.Size = '+IntToStr(cs1.size)); mm.Lines.Append('RS2.Size = '+IntToStr(cs2.size)); cds1.XMLData:=cs1.Data; cds2.XMLData:=cs2.Data; finally _a.SYS_Close; _a:=nil; __a:=nil; blob:=nil; rs1:=nil; rs2:=nil; cs1:=nil; cs2:=nil; f.ForceSync; end;

यूनिकोड डेटा के % XML.ZMyBaseDataSet वर्ग, साथ ही अन्य अवास्तविक डेटा प्रकारों का समर्थन करने के लिए, आपको इसे स्वयं संशोधित करने की आवश्यकता होगी।

आवेदन वितरण

नए कंप्यूटर पर एप्लिकेशन के साथ सभी आवश्यक ड्राइवरों को स्थापित करने के लिए, आपको C: \ Program Files \ Common Files \ InterSystems \ Cache \ निर्देशिका से सभी (आवश्यक फ़ाइलों के सेट को सीमित कर सकते हैं) फ़ाइलों को कॉपी करना चाहिए और regsvr32 उपयोगिता का उपयोग करके सिस्टम में उनमें से कुछ को पंजीकृत करना चाहिए। .exe ।

उदाहरण:

 regsvr32.exe /s "C:\Program Files (x86)\Common Files\Intersystems\Cache\CacheQuery.ocx" regsvr32.exe /s "C:\Program Files (x86)\Common Files\Intersystems\Cache\CacheFormWizard.dll" regsvr32.exe /s "C:\Program Files (x86)\Common Files\Intersystems\Cache\CacheList.ocx" regsvr32.exe /s "C:\Program Files (x86)\Common Files\Intersystems\Cache\CacheActiveX.dll" regsvr32.exe /s "C:\Program Files (x86)\Common Files\Intersystems\Cache\vism.ocx" regsvr32.exe /s "C:\Program Files (x86)\Common Files\Intersystems\Cache\TL.dll"

स्रोत कोड

सर्वर साइड
```
  pas.xml 
```
ग्राहक भाग
```
  Unit1.dfm
 test_TLB.pas
 Unit1.pas 
```
प्रॉक्सी कक्षाएं उत्पन्न कीं
```
  test.odl 
```

एक उदाहरण के रूप में डेल्फी का उपयोग करते हुए कैच डीबीएमएस ऑब्जेक्ट्स के साथ काम करना