Hallo Hansi,
schau dir mal die Code-Konverter-Funktionen - z.B. UTF8Decode() - in der
unit System an, da sollte Einiges für dich dabei sein.
Zitat von
Hansi:
Warum funzt es mit dem Code nicht?
Weil Read(F1, x) äquivalent zu ReadLn(F1, x) ist - du liest so nur die erste Zeile ein. Wenn schon, dann alles einlesen:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
sl: TStringList;
fn: string;
begin
fn := 'c:\temp\hansi.html';
SaveHypertext(WebBrowser1, fn);
sl := TStringList.Create;
sl.LoadFromFile(fn);
ShowMessage(sl.Text);
sl.Free;
end;
Es gibt da noch ein paar Dinge zu beachten. Wenn du beliebige Seiten im Internet hernimmst, dann musst du das character encoding der Seite ermitteln und dann vor dem Wegschreiben in den Code übersetzen, der für das BLOB-Feld in deiner Datenbank definiert wurde.
Grüße vom marabu