कुल CPU उपयोग को कम करने के लिए TWebBrowser की पेंटिंग अनुकूलित करें

Question

मेरे पास एक ऐसा फॉर्म है जिसमें TWebBrower घटक है जो एक HTML दस्तावेज़ लोड करता है। HTML दस्तावेज़ पर डेटा हर दूसरे हर कुछ सेकंड, कभी कभी एक से अधिक बार अद्यतन किया जाता है और मैं का उपयोग कर डेल्फी में मान अपडेट:

DOMDocument.getElementById(elementID).innerHTML := someValue; 

समस्या मैं खिड़की/webbrowser यह पेंटिंग से रोकने के लिए लॉक करना चाहते है/अपडेट होने तक मेरे सभी अपडेट पूर्ण हो जाते हैं। क्या इसे करने का कोई तरीका है?

SendMessage(WebBrowser.Handle,WM_SETREDRAW,0,0); 

के लिए एक कॉल मैं इस कोड के अनुकूलन में कुछ मदद करना चाहते हैं, ताकि मेरी कुल CPU उपयोग लगातार उच्च नहीं है।

Answer 1

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

यहां कोड है जो दिखाता है कि यह कैसे करें। निम्नलिखित उदाहरण में FUpdatePeriod मिलीसेकंड में अद्यतन अवधि है। फिर यदि आप समय-समय पर UpdateChanges पर कॉल करते हैं, तो innerHTML (यहां छद्म कोड) केवल तभी अपडेट किया जाएगा जब कम से कम 1000 एमएस अपने अंतिम परिवर्तन के बाद समाप्त हो जाएंगे।

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, MSHTML, OleCtrls, SHDocVw; 

type 
    TForm1 = class(TForm) 
    WebBrowser1: TWebBrowser; 
    procedure FormCreate(Sender: TObject); 
    private 
    FLastUpdate: Cardinal; 
    FUpdatePeriod: Cardinal; 
    procedure UpdateChanges(const AData: WideString); 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FUpdatePeriod := 1000; 
end; 

procedure TForm1.UpdateChanges(const AData: WideString); 
begin 
    if (GetTickCount - FLastUpdate > FUpdatePeriod) then 
    begin 
    (WebBrowser1.Document as IHTMLDocument2).body.innerHTML := AData; 
    FLastUpdate := GetTickCount; 
    end; 
end; 

// now remains to call the UpdateChanges periodically 

end. 

Answer 2

यह एक अलगाव जवाब है; लेकिन जब हमारे पास TWebBrowser के साथ झिलमिलाहट के मुद्दे थे, तो हमने अपने आवेदन में Google Chrome (DCEF) embedded का उपयोग करने के लिए स्विच करके उन्हें ठीक किया।

जबकि मुझे भी मूल रूप से लगा कि मैं TWebBrowser को "अनुकूलित" कर सकता हूं, और इसे झिलमिलाहट कम कर सकता हूं, मुझे पता चला कि समस्या इंटरनेट एक्सप्लोरर के लिए मूल है। इंटरनेट एक्सप्लोरर का एक नया संस्करण स्थापित करने के अलावा, या अपनी सभी जावास्क्रिप्ट को फिर से लिखना, इसलिए आपका वेब पेज कभी भी झिलमिलाहट नहीं करता है, क्योंकि इसमें HTML लेआउट (100% जावास्क्रिप्ट फ्री = नो फ़्लिकर) में कोई सक्रिय तत्व नहीं है, केवल एक ही फिक्स्ड इंटरनेट एक्सप्लोरर का उपयोग करना बंद करना है , और इस प्रकार TWebbrowser का उपयोग बंद करो।

दूसरा, झिलमिलाहट वेब पेज जावास्क्रिप्ट से कॉलबैक के रूप में डेल्फी देशी विधियों तक पहुंचने पर भी हो सकता है। इन कॉलबैक, यदि वे बहुत समय लेते हैं, तो हमेशा एम्बेडेड TWebBrowser में झिलमिलाहट का कारण बनेंगे, भले ही निष्पादित किया जा रहा एकमात्र जावास्क्रिप्ट डेल्फी कॉलबैक का आविष्कार है। जिस तकनीक के बारे में मैं बात कर रहा हूं (कॉलबैक) को here दस्तावेज किया गया है।