TWebbrowser Sonderzechen bei innterhtml

[Ydobon]

Funktioniert es so?

Delphi-Quellcode:

var txt: WideString;
    f: File;
begin
  txt:=(WebBrowser1.Document as IHTMLDocument2).body.innerHTML;
  AssignFile(f, 'c:\test.txt');
  Rewrite(f, 1);
  BlockWrite(f, PWChar(txt)^, Length(txt)*2);
  CloseFile(f);
end;