DataSnap Callback उदाहरण: सर्वर विधि कॉल के दौरान उपयोगकर्ता से डेटा का अनुरोध करना

यह क्या है और इसके लिए क्या है:

डेटास्नेप के साथ काम करना एक डेटा सर्वर से अनुरोध करना और उदाहरण के लिए सर्वर विधियों को कॉल करना है:
- सर्वर (डेटासेट) से उत्पादों की सूची का अनुरोध करें
- एक नया दस्तावेज़ बनाएं
- इसमें आइटम जोड़ें
- दस्तावेज़ बंद करें

कभी-कभी जब आप एक स्थिति जोड़ते हैं, तो आपको एक अतिरिक्त विकल्प बनाने की आवश्यकता होती है, उदाहरण के लिए, एक कंसाइनमेंट या कट चुनें।

यह एक त्रुटि कोड (कुछ तैयार करें / निष्पादित करें) को वापस करके किया जा सकता है ताकि ग्राहक उपयोगकर्ता से अनुरोध करे और फिर से ऑपरेशन करने का प्रयास करे।
या सर्वर को ऑपरेशन के दौरान क्लाइंट से सीधे अनुरोध करने की क्षमता प्रदान करता है कि उसे सभी डेटा की आवश्यकता हो।



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

कॉल करें:

procedure TForm2.btnRegisterWareClick(Sender: TObject); begin TThread.CreateAnonymousThread( procedure() begin clmClient.ServerMethods1Client.RegisterWare(seWareID.Value, clmClient.DSClientCallbackChannelManager1.ManagerId) end).Start; end; 

कॉलबैक फ़ंक्शन स्वयं:

  TmyCallback = class(TDBXCallback) protected FSelectedString: Integer; procedure SelectString(const Arg: TJSONValue); public function Execute(const Arg: TJSONValue): TJSONValue; override; end; { TmyCallback } function TmyCallback.Execute(const Arg: TJSONValue): TJSONValue; begin TThread.Synchronize(nil, procedure() //     -     begin SelectString(Arg); end); Result := TJSONNumber.Create(FSelectedString); end; procedure TmyCallback.SelectString(const Arg: TJSONValue); var strs: TStringList; enum: TJSONPairEnumerator; val, str: string; begin enum := TJSONObject(Arg).GetEnumerator; if Assigned(enum) then begin strs := TStringList.Create; try while enum.MoveNext do begin Val:= enum.Current.JsonString.Value; str := enum.Current.JsonValue.Value; strs.AddObject(str, TObject(val.ToInteger())); end; FSelectedString := TfrmSelectString.SelectString(strs); finally strs.Free; end; end; enum.Free; end; 

और यहाँ सर्वर पर क्या होता है:

 procedure TServerMethods1.RegisterWare(ID: Integer; ClientID: string); var Params, ParamsServ: TJSONObject; ResObj: TJSONValue; temp: TJSONValue; begin ResObj := nil; Params := TJSONObject.Create; Params.AddPair(TJSONPair.Create('1', ' 42')); Params.AddPair(TJSONPair.Create('2', ' 43')); Params.AddPair(TJSONPair.Create('3', ' 44')); ParamsServ := TJSONObject(Params.Clone); ServerContainer1.DSServer1.NotifyCallback(ClientID, 'SelectString', Params, ResObj); if Assigned(ResObj) then begin temp := ParamsServ.GetValue(ResObj.Value); if Assigned(temp) then Form1.QueueLogMsg(Format('RegisterWare %d   %s', [ID, temp.ToString])) else Form1.QueueLogMsg(Format('RegisterWare %d  ', [ID])); ResObj.Free; ParamsServ.Free; end else Form1.QueueLogMsg(Format('RegisterWare %d  ', [ID])); end; 

और अंत में, एक अनुस्मारक:
- स्थानीय प्रक्रिया चर - आरंभीकृत नहीं
- जो कुछ भी आप फ़ंक्शन में जाते हैं - आप उन्हें अलविदा कह सकते हैं और मुफ्त नहीं
- वह सब जो आपको फ़ंक्शन से मिलता है - आपको इसे मुक्त करने की आवश्यकता है (आखिरकार, यहां एआरसी काम नहीं करता है (हालांकि, आपको मोबाइल फोन के लिए स्पष्ट करने की आवश्यकता है)

आप कॉलबैक के साथ कुछ भी कर सकते हैं - इसके लिए तैयार डेटा सेट या SQL क्वेरी पास करें, या एक निर्देशिका का नाम जहां से संग्रहीत प्रक्रिया चयन के लिए सेट वापस कर देगी।

कोड: http://code.google.com/p/datasnap-callback-with-ui/source/browse/

यह उदाहरण मेरे द्वारा Datasnap में कॉलबैक की तकनीक का अध्ययन करने के लिए बनाया गया था, विशेष रूप से, सर्वर अनुरोध के दौरान क्लाइंट को ऐसा कॉलबैक
चूंकि मैंने अभी तक तकनीक पर निर्णय नहीं लिया है, इसलिए RealThinClient ऐसी तकनीक के अध्ययन में अगला होगा