Inhalte in Webbrowser updaten ohne Refresh/Flickern

[marabu]

Hallo Tom,

kennt dein D6 in der Palette "Internet" die Komponente TPageProducer - Unit HTTPProd? Damit kannst du sehr elegant eine Template-Verarbeitung realisieren. Aber in deinem Beispiel würde ich die Daten nicht per StringReplace() einpflegen und dann über eine temporäre Datei dem Browser zur Anzeige zuführen. Eleganter ist es, wenn du die Daten aus deinen Eingabefeldern direkt im Browser änderst - Stichwort HTML DOM.

EDIT#1: hänge mal diesen Code an deine OnChange Ereignisse der TEdit-Komponenten, dann verstehst du was ich meine:

Delphi-Quellcode:

// uses MSHTML;

procedure TForm1.ed_playerAChange(Sender: TObject);
var
  doc: IHTMLDocument2;
  e: IHTMLElement;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  e := doc.all.item('nameA', 0) as IHTMLElement;
  e.innerText := TEdit(Sender).Text;
end;

EDIT#2: Dazu gehört dann ntürlich eine Änderung an deinem Template:

Code:

<td id="nameA" width="50%">%%namea%%</td>
<td id="nameB">%%nameb%%</td>

EDIT#3: Ich weiß ja nicht wie dein eigentliches Programm aussieht, aber in einem meiner Programme werkelt der WebBrowser direkt als HTML-Editor. Dazu hängst du folgenden Code an das Ereignis OnDocumentComplete:

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  with Sender as TWebBrowser do
    if pDisp = DefaultInterface then
      with Document as IHTMLDocument2 do
        designMode := 'on';
end;

Zusätzlich musst du dann dein Template nochmal erweitern:

Code:

<td contenteditable="yes" id="nameA" width="50%">%%namea%%</td>
<td contenteditable="yes" id="nameB">%%nameb%%</td>

Grüße vom marabu