Webseite verändern und dann speichern

[fkerber]

Hi!

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

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:

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