स्वयं डेल्फी में एक थ्रेड को निलंबित कर रहा है जब इसकी आवश्यकता नहीं है और

Question

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

क्या मैं जानना चाहता हूं कि थ्रेड को रोकने के लिए एक बेहतर तरीका है जब इसकी आवश्यकता नहीं है?

हमारे पास एक डेल्फी वर्ग है जिसे हमने वर्षों से उपयोग किया है जो मूल रूप से एक फीफो कतार है जो थ्रेडेड प्रक्रिया से जुड़ा हुआ है। कतार मुख्य थ्रेड पर डेटा ऑब्जेक्ट स्वीकार करती है और यदि थ्रेड निलंबित कर दिया जाता है तो यह फिर से शुरू हो जाएगा।

थ्रेड की निष्पादन प्रक्रिया के हिस्से के रूप में ऑब्जेक्ट कतार से बाहर हो गया है और धागे पर संसाधित किया गया है। आमतौर पर यह डेटाबेस लुकअप करना है।

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

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

फिर से शुरू करने वाला फ़ंक्शन ऐसा कुछ दिखता है।

process TthrdQueue.MyResume(); 
    begin 
    if Suspended then begin 
     Sleep(1); //Allow thread to suspend if it is in the process of suspending 
     Resume(); 
    end; 
    end; 

निष्पादित इस

process TthrdQueue.Execute(); 
    var 
    Obj : TMyObject; 
    begin 
    inherited; 
    FreeOnTerminate := true; 
    while not terminated do begin 
     if not Queue.Empty then begin 
     Obj := Pop(); 
     MyProcess(Obj); //Do work 
     Obj.Ready := true; 
     end 
     else 
     Suspend(); // No more Work 
    end; //Queue clean up in Destructor 
    end; 

के समान दिखता है TthrdQueue पुश ढेर में किसी अन्य वस्तु को जोड़ने के बाद नियमित कॉल MyResume। MyResume केवल तभी जारी किया जाता है जब थ्रेड निलंबित हो जाता है।

जब हम बंद करते हैं तो हम सत्य को समाप्त कर देते हैं और इसे निलंबित होने पर MyResume को कॉल करते हैं।

Answer 1

मैं TthrdQueue के निम्नलिखित कार्यान्वयन की सलाह देते हैं:

type 
    TthrdQueue = class(TThread) 
    private 
    FEvent: THandle; 
    protected 
    procedure Execute; override; 
    public 
    procedure MyResume; 
    end; 

implementation 

procedure TthrdQueue.MyResume; 
begin 
    SetEvent(FEvent); 
end; 

procedure TthrdQueue.Execute; 
begin 
    FEvent:= CreateEvent(nil, 
         False, // auto reset 
         False, // initial state = not signaled 
         nil); 
    FreeOnTerminate := true; 
    try 
    while not Terminated do begin 
     if not Queue.Empty then begin 
     Obj := Pop(); 
     MyProcess(Obj); //Do work 
     Obj.Ready := true; 
     end 
     else 
     WaitForSingleObject(FEvent, INFINITE); // No more Work 
    end; 
    finally 
    CloseHandle(FEvent); 
    end; 
end; 

Answer 2

इसके बजाय धागा निलंबित की है, यह सोने के हैं। इसे कुछ प्रतीक्षा करने योग्य हैंडल पर अवरुद्ध करें, और जब हैंडल सिग्नल हो जाए, तो थ्रेड उठ जाएगा।

आपके पास घटनाओं, म्यूटेक्स ऑब्जेक्ट्स, सेमफोर, संदेश कतार, पाइप समेत प्रतीक्षा करने योग्य वस्तुओं के लिए कई विकल्प हैं।

मान लीजिए कि आप किसी ईवेंट का उपयोग करना चुनते हैं। इसे एक ऑटो-रीसेट ईवेंट बनाएं। जब कतार खाली होती है, तो ईवेंट की WaitFor विधि पर कॉल करें। जब कुछ और कतार को पॉप्युलेट करता है या छोड़ना चाहता है, तो इसे ईवेंट की SetEvent विधि पर कॉल करें।

मुझे पसंद है तकनीक ओएस संदेश कतार का उपयोग करना है। मैं आपके कतार वस्तु को संदेशों के साथ बदल दूंगा। फिर, एक मानक GetMessage पाश लिखें। जब कतार खाली है, तो यह स्वचालित रूप से एक नए संदेश की प्रतीक्षा करने के लिए अवरुद्ध हो जाएगा। समाप्ति अनुरोध को केवल एक और संदेश में बदलें। (TThread.Terminate विधि थ्रेड के साथ कुछ भी दिलचस्प करने के बाद बस एक बहुत उपयोगी काम नहीं है क्योंकि यह वर्चुअल नहीं है।)

Answer 3

Delphi using condition variables में निर्माता-उपभोक्ता कतार के कार्यान्वयन की अनुमति देने के लिए एक लाइब्रेरी है। यह परिदृश्य वास्तव में चर्चा की गई उदाहरण है।

हालत चर का उत्कृष्ट उदाहरण निर्माता/उपभोक्ता समस्या है। एक या अधिक सूत्र कहा जाता उत्पादकों वस्तुओं का उत्पादन और उन्हें एक कतार में जोड़ें। उपभोक्ताओं (अन्य धागे) कतार से आइटम उत्पादन को हटाने के द्वारा आइटम खपत करते हैं।