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