Ottimizza la colorazione di TWebBrowser per ridurre l'utilizzo totale della CPU

Question

Ho un modulo che ha un componente TWebBrower che carica un documento HTML. I dati relativi al documento HTML viene aggiornata ogni pochi secondi, a volte più volte al secondo e aggiornare il valore in Delphi usando:

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

Il problema è che voglio bloccare la finestra/browser web per evitare che la pittura/aggiornamento fino a quando tutti i miei aggiornamenti sono completi. C'è un modo per fare questo? Sarebbe una chiamata a

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

vorrei qualche aiuto per ottimizzare il codice in modo che il mio utilizzo totale della CPU non è continuamente alta.

Answer 1

Poiché il problema principale è la frequenza di aggiornamento, è necessario ridurlo. Per questo è possibile semplicemente archiviare l'ultima volta che si è aggiornato il documento HTML e alla successiva modifica dei dati controllare se è trascorso un determinato periodo da quel momento.

Ecco il codice che mostra come eseguire questa operazione. Lo FUpdatePeriod nell'esempio seguente è il periodo di aggiornamento in millisecondi. Quindi se si chiama periodicamente lo UpdateChanges, lo innerHTML (pseudo-codice qui) verrà aggiornato solo quando sono trascorsi almeno 1000 ms dall'ultima modifica.

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

Questa è una risposta laterale; Ma quando abbiamo avuto problemi di sfarfallio con TWebBrowser, li abbiamo sistemati passando all'utilizzo di Google Chrome (DCEF) embedded nella nostra applicazione.

Anche se originariamente pensavo di poter "ottimizzare" TWebBrowser e ridurre il suo sfarfallio, ho scoperto che il problema è solo nativo di Internet Explorer. Oltre all'installazione di una nuova versione di Internet Explorer, o alla riscrittura di tutti i JavaScript, la pagina Web non sfarfalla mai, perché non ha elementi attivi nel layout HTML (100% javascript gratuito = nessun sfarfallio) l'unica soluzione è smettere di usare Internet Explorer e quindi smetti di usare TWebbrowser.

In secondo luogo, lo sfarfallio può anche essere causato se la pagina Web TWebBrowser accede ai metodi nativi di Delphi come richiami dal javascript. Questi callback, se impiegano molto tempo, causano sempre uno sfarfallio nel TWebBrowser incorporato, anche se l'unico javascript che viene eseguito è l'invocazione del callback delphi. La tecnica di cui sto parlando (callback) è documentata here.