Oder so (is aus meinem knuffigen ShoutBox-Reader ^^)
Delphi-Quellcode:
// Wenn nötig ein HTML-Dokument erzeugen
If WebBrowser1.Document =
nil Then Begin
WebBrowser1.Navigate('
about:blank');
While WebBrowser1.ReadyState < ReadyState_Interactive
do Application.ProcessMessages;
End
// String in WebBrowser laden
OleVariant(WebBrowser1.Document
as IHTMLDocument2).Clear;
OleVariant(WebBrowser1.Document
as IHTMLDocument2).
Write(StringList.Text);
OleVariant(WebBrowser1.Document
as IHTMLDocument2).Close;
Es ist dabei natürlich möglich jede Art von Strings zu übergeben.
Delphi-Quellcode:
Var S: String;
OleVariant(WebBrowser1.Document as IHTMLDocument2).Write(S);
Eventuell müssen noch Units wie OleCtrl,
ActiveX und/oder MSHTML mit in das Projekt eingebunden werden.