Einzelnen Beitrag anzeigen

Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: String in TWebBrowser laden???

  Alt 29. Sep 2004, 14:02
hi,

also ich habe es so mal so gelöst:

1. per webbrowser1.navigate('about:blank'); eine leere seite aufrufen
2. mit folgendem code HTML in das dokument hinzufügen:

Delphi-Quellcode:
procedure AddHTML(HTML: string);
var range: IHTMLTxtRange;
begin
  Range := ((WebBrowser1.Document as IHTMLDocument2).body as
    IHTMLBodyElement).createTextRange;
  Range.collapse(False);
  Range.pasteHTML(html);

  //folgendes ist optional. es bewirkt, dass automatisch nach unten gescrollt wird
  OleVariant(WebBrowser1.Document as IHTMLDocument2).Body.ScrollTop := MaxInt;
end;
Aenogym

edit: prozedurheader geändert - war zu spezifisch
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat