Quelltext einer Seite runterladen

[faux]

Zitat von S2B:

Also wenn man aus einem TWebBrowser den Quelltext der Seite speichern will, dann geht das so:

Delphi-Quellcode:

 //Code auslesen:
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
  ps: IPersistStreamInit; //***************In welcher Unit is denn IPersistStreamInit??
  fs: TFileStream;
  sa: IStream; //***************Und IStream's Unit kann ich auch nicht finden... :?
begin
  ps := WebBrowser.Document as IPersistStreamInit;
  fs := TFileStream.Create(FileName, fmCreate);
  try
    sa := TStreamAdapter.Create(fs, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, True));
  finally
    fs.Free;
  end;
end;

Vielleicht kannst du ja den Code entsprechend abändern... Hoffe es bringt dich weiter.