डेल्फी का उपयोग करके नेटवर्क पर डेटा का आदान-प्रदान कैसे करें

सभी घटकों में से डेल्फी एक नेटवर्क (इंटरनेट, इंट्रानेट और स्थानीय) पर डेटा का आदान-प्रदान करने वाले अनुप्रयोगों का समर्थन करने के लिए दो सबसे आम हैं TServerSocket तथा TClientSocketदोनों को टीसीपी / आईपी कनेक्शन पर फ़ंक्शन पढ़ने और लिखने के लिए डिज़ाइन किया गया है।

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

डेल्फी सॉकेट घटकों (विनसॉक के लिए रैपर) टीसीपी / आईपी और संबंधित प्रोटोकॉल का उपयोग कर अन्य सिस्टम के साथ संचार करने वाले अनुप्रयोगों के निर्माण को सुव्यवस्थित करता है। सॉकेट के साथ, आप अंतर्निहित नेटवर्किंग सॉफ़्टवेयर के विवरण के बारे में चिंता किए बिना अन्य मशीनों के कनेक्शन पर पढ़ और लिख सकते हैं।

डेल्फी घटकों टूलबार पर इंटरनेट पैलेट होस्ट करता है TServerSocket तथा TClientSocket घटकों के रूप में अच्छी तरह से TcpClient, TcpServer, तथा TUdpSocket.

सॉकेट घटक का उपयोग करके सॉकेट कनेक्शन शुरू करने के लिए, आपको एक होस्ट और एक पोर्ट निर्दिष्ट करना होगा। सामान्य रूप में, मेज़बान सर्वर सिस्टम के आईपी पते के लिए एक उपनाम निर्दिष्ट करता है; बंदरगाह ID नंबर निर्दिष्ट करता है जो सर्वर सॉकेट कनेक्शन की पहचान करता है।

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

शुरू करने के लिए, डेल्फी को दो बार खोलें, सर्वर अनुप्रयोग के लिए एक परियोजना और क्लाइंट के लिए एक बना।

एक फॉर्म पर, एक TServerSocket घटक और एक TMemo घटक डालें। में OnCreate घटना प्रपत्र के लिए, अगला कोड जोड़ें:

प्रक्रिया TForm1.FormCreate (प्रेषक: Tobject);
शुरू
ServerSocket1.Port: = 23;
ServerSocket1.Active: = सच;
समाप्त;

OnClose घटना होनी चाहिए:

प्रक्रिया TForm1.FormClose
(प्रेषक: Tobject; वर क्रिया: TCloseAction);
शुरू
ServerSocket1.Active: = false;
समाप्त;

ग्राहक की ओर:

क्लाइंट एप्लिकेशन के लिए, एक फॉर्म में TClientSocket, TEdit और TButton घटक जोड़ें। ग्राहक के लिए निम्नलिखित कोड डालें:

प्रक्रिया TForm1.FormCreate (प्रेषक: Tobject);
शुरू
ClientSocket1.Port: = 23;
// स्थानीय टीसीपी / आईपी सर्वर का पता
ClientSocket1.Host: = '192.168.167.12'; 
ClientSocket1.Active: = true;
समाप्त;
प्रक्रिया TForm1.FormClose (प्रेषक: Tobject; वर क्रिया: TCloseAction);
शुरू
ClientSocket1.Active: = false;
समाप्त;
प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
beginif ClientSocket1.Active फिर
ClientSocket1.Socket। SendText (Edit1.Text);
समाप्त;

कोड बहुत अधिक स्वयं का वर्णन करता है: जब एक ग्राहक एक बटन पर क्लिक करता है, तो Edit1 घटक के अंदर निर्दिष्ट पाठ निर्दिष्ट पोर्ट और होस्ट पते के साथ सर्वर पर भेजा जाएगा।

सर्वर पर वापस:

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

प्रक्रिया TForm1.ServerSocket1ClientRead (प्रेषक: Tobject;
गर्तिका: TCustomWinSocket);
शुरू
Memo1.Lines। जोड़ें (सॉकेट। ReceiveText);
समाप्त;

जब एक से अधिक क्लाइंट सर्वर को डेटा भेजता है, तो आपको कोड के लिए थोड़ी अधिक आवश्यकता होगी:

प्रक्रिया TForm1.ServerSocket1ClientRead (प्रेषक: Tobject;
गर्तिका: TCustomWinSocket);
वर
i: पूर्णांक;
sRec: तार;
beginfor मैं: = 0 सेवा ServerSocket1.Socket। ActiveConnections -1 dobeginwith ServerSocket1.Socket। कनेक्शन [i] dobegin
sRec: = ReceiveText;
अगर sRecr '' thenbegin
Memo1.Lines। जोड़ें (रिमोटएड्रेस + 'भेजता है:');
Memo1.Lines। जोड़ें (sRecr);
समाप्त;
समाप्त;
समाप्त;
समाप्त;

जब सर्वर क्लाइंट सॉकेट से जानकारी पढ़ता है, तो वह उस पाठ को मेमो घटक में जोड़ता है; पाठ और क्लाइंट RemoteAddress दोनों जोड़े गए हैं, इसलिए आपको पता चल जाएगा कि किस ग्राहक ने जानकारी भेजी है। अधिक परिष्कृत कार्यान्वयन में, ज्ञात आईपी पते के लिए उपनाम विकल्प के रूप में काम कर सकते हैं।

इन घटकों का उपयोग करने वाले अधिक जटिल प्रोजेक्ट के लिए, का अन्वेषण करें डेल्फी> डेमो> इंटरनेट> चैट परियोजना। यह एक सरल नेटवर्क चैट एप्लिकेशन है जो सर्वर और क्लाइंट दोनों के लिए एक फॉर्म (प्रोजेक्ट) का उपयोग करता है।