TWebBrowserのペイントを最適化して合計CPU使用量を減らす

Question

HTMLドキュメントをロードするTWebBrowerコンポーネントがあるフォームがあります。 HTMLドキュメントのデータは毎秒数秒ごとに、時には複数回更新され、私が使用してDelphiで値を更新：

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

問題、私は絵からそれを防ぐために、ウィンドウ/ウェブブラウザをロックしたいです/すべての更新が完了するまで更新する。これを行う方法はありますか？

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

このコードを最適化して、CPU使用率が連続的に高くならないように助けてください。

Answer 1

主な問題は更新頻度であるため、減らす必要があります。このためには、HTML文書を最後に更新した時点を保存し、次のデータ変更時にその時点から一定期間が経過したかどうかを確認するだけです。

これを行う方法を示すコードは次のとおりです。次の例の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を "最適化"できて、ちらつきを減らすことができたと感じましたが、問題はInternet Explorerのネイティブであることがわかりました。新しいバージョンのInternet Explorerをインストールするか、JavaScriptをすべて書き直してWebページがちらつくことはありません.HTMLレイアウトにはアクティブな要素がないので（100％javascriptがない=ちらつきはありません）、唯一の修正はInternet Explorerの使用を止めることですTWebbrowserの使用を停止します。

第2に、TWebBrowser WebページがJavaScriptのコールバックとしてDelphiのネイティブメソッドにアクセスしている場合にも、フリッカーが発生する可能性があります。これらのコールバックは、実行中の唯一のjavascriptがdelphiコールバックの呼び出しであっても、多くの時間がかかると、組み込みのTWebBrowserでも常にちらつきを引き起こします。私が話している技術（コールバック）はhereと書かれています。