html-Inhalt des WebBrowsers in Datenbank speichern?

[marabu]

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