TWebBrowser - Text speichern

[JoachimQ]

Hallo!

Ich hab mit einer TWebBrowserkomponente eine Website geöffnet.
Bis jetzt schaffe ich es den Quelltext zu speichern.
Ich möchte aber den Text speichern, der auf der Website sichtbar ist.
Wie geht das?

[Gollum]

Hallo,

folgendermaßen:
Webbrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER);

[JoachimQ]

Zitat von Gollum:

Hallo,

folgendermaßen:
Webbrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER);

Ich möchte aber, das die Datei automatisch gespeichert wird, ohne das der User noch einen Dateinamen eingeben muss.

[Gollum]

Hallo,

dazu muß ein bisschen mehr Aufwand getrieben werden:

Delphi-Quellcode:

uses
  ActiveX;

...
function GetBrowserHtml(const webBrowser:TWebBrowser):String;
var strStream    :TStringStream;
    adapter      :IStream;
    browserStream:IPersistStreamInit;
begin
  strStream:=TStringStream.Create('');
  try
    browserStream:=webBrowser.Document as IPersistStreamInit;
    adapter:=TStreamAdapter.Create(strStream, soReference);
    browserStream.Save(adapter, True);
    result:=strStream.DataString;
  finally
    strStream.Free();
  end; // try
end; // GetBrowserHtml
...
...

var sl:TStringList;
...
  sl:=TStringList.Create();
  try
    sl.Text:=GetBrowserHtml(WebBrowser1);
    sl.SaveToFile('C:\test.htm');
  finally
    sl.Free();
  end; // try
...

[tshubaka]

Vielen Dank für diesen Code.
Kann ich gut gebrauchen.

Grüsse
Peter