Hallo marabu,
ohje...
Warum brauche ich das, bei der Speicherung in eine Datei tut es doch auch?
Wie wandelt man den Stream dann in
Unicode um?
Edit:
Warum funzt es mit dem Code nicht???
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
F1 :TextFile;
x :String;
begin
SaveHypertext(WebBrowser1, 'c:\temp\hansi.html');
AssignFile(F1,'c:\temp\hansi.html');
Reset(F1);
read(F1,x);
ShowMessage(x);
end;
Wenn ich die Datei im Editor öffne steht folgendes drinn:
Zitat:
<!DOCTYPE
HTML PUBLIC "-//
W3C//DTD
HTML 4.0 Transitional//EN">
<
HTML><HEAD>
<META http-equiv=Content-Type content="text/
html; charset=
unicode">
<META content="MSHTML 6.00.2900.2722" name=GENERATOR></HEAD>
<BODY>dsdfsdfdfdfdfd</BODY></
HTML>