Hi!

Ich habe ein Problem:
Ich habe im IE einen neuen Button hinzugefügt, der Text ausschneiden kann:

markieren

Delphi-Quellcode:

try
  WebBrowser.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);
except
end;

Der Text wird also nicht kopiert sondern effektiv ausgeschnitten.
Natürlich will ich die Änderung auch speichern, aber es funktioniert nicht:

zusammenfalten · markieren

Delphi-Quellcode:

function GetHTMLCode(WB: IWebbrowser2): Boolean;
var
 ps: IPersistStreamInit;
 s: string;
 ss: TStringStream;
 sa: IStream;
 ACode: TStrings;
 filename: String;
begin
 ps := WB.document as IPersistStreamInit;
 s := '';
 ss := TStringStream.Create(s);
 ACOde:=TStringList.Create;
 try
   sa:= TStreamAdapter.Create(ss, soReference) as IStream;
   Result := Succeeded(ps.Save(sa, Bool(True)));
   if Result then ACode.Add(ss.Datastring);
 
   filename:=copy(wb.locationurl,9,length(wb.LocationURL)-8);
   Filename:=stringreplace(filename,'%20', ' ',[rfReplaceAll]);
   Acode.SaveToFile(filename);
 finally
   ss.Free;
   ACode.Free;
 end;
end;

Die Webseite wird unverändert gespeichert...

Wo liegt mein Fehler?


Ciao Frederic

Hallo,

ich hab jetzt Deinen Code nicht getestet.

Bei meinen Versuchen mit
(WebBrowser1.Document as IPersistFile).Save('c:\temp\test.html', True); hat es auch nicht funktioniert, da holt er wohl den HTML-Code aus dem Cache!?

Versuch mal das, bei mir funktioniert es:

markieren

Delphi-Quellcode:

var sL : TStringList;
begin
sL := TStringList.Create;
try
  sL.Text := WebBrowser1.OleObject.Document.Body.InnerHtml;
  sL.SaveToFile('c:\temp\test.html');
finally
  sL.Free;
end;