TWebbrowser Inhalt einer TStringlist übergeben

[torud]

Hallo Leute,

ich habe einen CSS-Parser gebastelt und habe dafür eine Sofortvorschau programmiert. Dafür erstelle ich im Hintergrund in einer TStringlist eine HTML-Datei und speicher diese ab. Anschliessend navigiere ich den Webbrowser erneut zu dieser Datei.

Folgende Probleme treten hierbei auf.

Wenn ein User gut und schnell schreibend programmiert, wird diese procedure mehrmals die Sekunde aufgerufen. Dass scheint Probleme zu bereiten, da ich des öfteren die Meldung bekommen, das mein Programm es nicht schafft, die Datei schon wieder zu schreiben.

Nun überlege ich mir, ob es Sinn macht, diese Speicherei auf der Festplatte zu sparen und den Webbrowser direkt mit meinem HTML-Inhalt zu füttern.

Macht das Sinn, und wie kann man das realisieren???

[scp]

Es gibt bei einigen Ole-Objekten/-Interfaces die Eigenschaft "innerHTML", darüber lässt sich bestimmt was realisieren. Ob das sinvoll ist, weis ich allerdings nicht.

[shmia]

Delphi-Quellcode:

var
   Doc : OleVariant;
begin
   Doc := WebBrowser1.Document;
   Doc.body.InnerHTML := StringListe.Text;
   // Es wird aber nur der der Inhalt von BODY gesetzt
end;

[torud]

Hallo!

Vielen Dank für die Antwort:

Ich habe auch rausgefunden das es so klappen "könnte":

Delphi-Quellcode:

   
Form1.WebBrowser1.HandleNeeded;
  if Not VarIsEmpty(MainForm.WebBrowser1.Document) then
   OleVariant(MainForm.WebBrowser1.Document).Script.Document.Body.InnerHTML := Stringliste.Text;

Das Problem ist nur, dass der Code des üblichen Head-Bereichs, indem sich meine CSS-Styles für die Vorschau befinden ignoriert werden.

[shmia]

Zitat:

Zitat von torud

Das Problem ist nur, dass der Code des üblichen Head-Bereichs, indem sich meine CSS-Styles für die Vorschau befinden ignoriert werden.

Dann musst du die komplette Seite laden (ungetestet, könnte aber klappen :stupid: ):

Delphi-Quellcode:

procedure LoadDocFromString(WB: TWebBrowser; const HTMLString: string); 
var 
  v: OleVariant; 
  HTMLDocument: IHTMLDocument2; 
begin 
  HTMLDocument := WB.Document as IHTMLDocument2; 
  v := VarArrayCreate([0, 0], varVariant); 
  v[0] := HTMLString; 
  HTMLDocument.Write(PSafeArray(TVarData(v).VArray)); 
  HTMLDocument.Close; 
end;

Es muss darauf geachtet werden, dass vorher schon eine Seite im IE geladen wurden und sei
es die URL about:blank.

[torud]

Hallo!

Vielen Dank für den Tipp und den Source!
about:blank wird bei mir in solchen Programmen standartmäßig bei OnCreate gleich mit geladen, damit´s erst gar nicht zu Promen kommen kann!