Hier noch ein Puzzle-Teil:
Delphi-Quellcode:
function SaveDocument(doc: IDispatch; const s: TStream): Boolean;
var
ps: IPersistStreamInit;
sa: IStream;
begin
if Succeeded(doc.QueryInterface(IPersistStreamInit, ps)) then
begin
sa := TStreamAdapter.Create(s, soReference) as IStream;
Result := Succeeded(ps.Save(sa, true));
end;
end;
Wenn du es geschickt einsetzt, dann ist dein Problem gelöst.
marabu