घर
Top.Mail.Ru Yandeks.Metrika
फोरम: "नेटवर्क";
वर्तमान संग्रह: 2002.04.01;
डाउनलोड करें: [xml.tar.bz2];

नीचे

TClientSocket और ऑनकनेक्ट ओवरराइड इसी तरह की शाखाएँ खोजें


eblade   (2002-01-16 22:18) [0]

सामान्य तौर पर, कार्य यह है। मुझे एक 1 वर्ग बनाने की आवश्यकता है जिसमें TClientSocket से प्राप्त फ़ील्ड और सस्पेंड किया गया है
OnConnect पर, इस क्षेत्र की OnDisconnect घटना, कक्षा 1 (मालिक वर्ग) की प्रक्रियाओं की कॉल। वह कैसा है?
लागू किया जा सकता है? मैं वास्तव में प्रतिक्रिया की सराहना करूंगा।



Digitman   (2002-01-17 10:55) [1]

इंटरफेस

Tklass1 = वर्ग (TClientSocket)
प्रक्रिया MyConnectProc (प्रेषक: TCustomWinSocket);
प्रक्रिया MyDisConnectProc (प्रेषक: TCustomWinSocket);

सार्वजनिक
निर्माता बनाएँ (AOwner: TComponent);
अंत;
...

कार्यान्वयन

निर्माता Tclass1.Create (AOwner: TComponent);
शुरू करना
विरासत में मिला बनाएँ (AOwner);
OnConnect: = MyConnectProc;
OnDisconnect: = MyDisconnectProc;
अंत;



eblade   (2002-01-17 19:55) [2]

धन्यवाद, लेकिन थोड़ा सा गलत
मैंने पूछा कि कैसे लटकाया जाए, लेकिन मालिक की प्रक्रिया को बुलावा देने वाले खेतों को काट दें ... मैं समझाऊंगा

Tklass1 = वर्ग (TComponent)
निजी
CS: TClientSocket;
सार्वजनिक
प्रक्रिया ऑनकनेक्ट (i: पूर्णांक);
अंत;
...

OnConnect CS को ऑन करने के लिए OnConnect पर कॉल कैसे करें Tclass1 ci, उदाहरण के लिए = XNNX?



Digitman   (2002-01-18 09:20) [3]

मुझे पता नहीं है कि आप किस बिंदु पर TClientSocket ex-r बना रहे हैं, इसलिए मैंने इसका निर्माण अपनी कक्षा के निर्माता में रखा
Tklass1 = वर्ग (TComponent) निजी CS: TClientSocket; ... प्रक्रिया ConnectEventHandler (प्रेषक: Tobject; सॉकेट: TCustomWinSocket); प्रक्रिया ऑनकनेक्ट (i: पूर्णांक); ... सार्वजनिक निर्माता बनाएँ (AOwner: TComponent); नाश करने वाला; ओवरराइड; अंत; ... कार्यान्वयन निर्माता Tclass1.Create (AOwner: TComponent); शुरू करना विरासत में मिला बनाएँ (AOwner); CS: = TClientSocket.Create (nil); CS.OnConnect: = ConnectEventHandler; अंत; विध्वंसक Tclass1.Destroy; शुरू करना CS.Free; विरासत में मिला; अंत; प्रक्रिया शुरू करना ऑनकनेक्ट (1); अंत;



eblade   (2002-01-18 13:54) [4]

सेनानियों, यह वही है जो आपको चाहिए

एक और सवाल
यदि मेरे पास CS है तो मुझे क्या करना चाहिए - टीके के ग्राहक सॉकेट से वारिसों की एक सूची होगी जिसमें एक अद्वितीय आईडी जोड़ा गया है, जिसे मुझे Tklass1.ConnectEventHandler को पास करने की आवश्यकता होगी?



Digitman   (2002-01-18 14:36) [5]

Tklass1 = वर्ग (TComponent) निजी सीएस: टीएलस्ट; ... प्रक्रिया ConnectEventHandler (प्रेषक: Tobject; सॉकेट: TCustomWinSocket); प्रक्रिया ऑनकनेक्ट (i: पूर्णांक); ... सार्वजनिक निर्माता बनाएँ (AOwner: TComponent); नाश करने वाला; ओवरराइड; अंत; ... कार्यान्वयन निर्माता Tclass1.Create (AOwner: TComponent); वर i: पूर्णांक; newsocket: TClientSocket; शुरू करना विरासत में मिला बनाएँ (AOwner); CS: = TList.Create; i: = 0 से ..... शुरू करते हैं newsocket: = TClientSocket.Create (nil); newsocket.OnConnect: = ConnectEventHandler; CS.Add (newsocket); अंत; अंत; विध्वंसक Tclass1.Destroy; वर i: पूर्णांक; शुरू करना i: = 0 से CS.Count - 1 करते हैं Tobject (CS.Items [i]); नि: शुल्क; CS.Free; विरासत में मिला; अंत; प्रक्रिया शुरू करना ऑनकनेक्ट (CS.IndexOf (सॉकेट)); अंत;



eblade   (2002-01-18 22:31) [6]

फिर से बहुत बहुत धन्यवाद



पन्ने: 1 पूरी शाखा

फोरम: "नेटवर्क";
वर्तमान संग्रह: 2002.04.01;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.57 एमबी
समय: 0.022 c
1-167
VCL
2002-03-18 22:12
2002.04.01
रिचएडिट से निपटने में मदद करें।


3-59
VKS
2002-03-07 10:46
2002.04.01
विरोधाभास गलत तरीके से समाप्त होने पर डेटा खो देता है


3-20
Skyr
2002-03-06 07:38
2002.04.01
आईबी में क्या गलती ...


3-24
de
2002-03-06 14:52
2002.04.01
DBGridEh में ड्रॉप-डाउन सूची कैसे बनाएं?


1-105
एनएलओ
2002-03-21 14:35
2002.04.01
घटक को ट्राइसेडिट प्रकार लिखें ताकि HTML समझे





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский