Storage Streams

[sakura]

Hi ,

hoffentlich kann mir jemand von Euch ja auf die Sprünge helfen. Folgender Code-Abschnitt:

Delphi-Quellcode:

const
  cStagingLiveVersion: LongInt = $03000100;
  FMTID_SummaryInformation: TGUID = '{F29F85E0-4FF9-1068-AB91-08002B27B3D9}';

type
  TPropSpecArray = array of TPropSpec;
  PPropSpecArray = ^TPropSpecArray;
  
  TPropVariantArray = array of TPropVariant;
  PPropVariantArray = ^TPropVariantArray;

var
  Package: IStorage;
  OS: TOleStream;
  Stm: IStream;
  Writer: TWriter;
  PSS: IPropertySetStorage;
  PS: IPropertyStorage;
  PSA: TPropSpecArray;
  PVA: TPropVariantArray;
begin
  if not SUCCEEDED(StgOpenStorage(PWideChar(GetPackageName), nil, 
      STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil, 0, Package)) then
    OleCheck(StgCreateDocFile(PWideChar(GetPackageName), STGM_CREATE or 
        STGM_READWRITE or STGM_SHARE_EXCLUSIVE, 0, Package));

  PSS := Package as IPropertySetStorage;
  [color=#f60000]OleCheck(PSS.Open(FMTID_SummaryInformation, STGM_WRITE or 
      STGM_SHARE_EXCLUSIVE, PS));[/color]  

  SetLength(PSA, 1);
  SetLength(PVA, 1);
  try
    PSA[0].ulKind := PRSPEC_PROPID;
    PSA[0].propID := PIDSI_TITLE;
    PVA[0].vt := VT_LPSTR;
    PVA[0].pszVal := 'Content Ace v3 - Staging Package Item';
  
    OleCheck(PS.WriteMultiple(1, @PSA[0], @PVA[0], 2));
  finally
    SetLength(PSA, 0);
    SetLength(PVA, 0);
  end;

macht mir Probleme. Ich komme nicht über die rot-markierte Zeile hinaus. Die Idee stammt aus dem Buch Delphi COM Programming von Eric Harmon.

Wer hat eine Idee

......

P.S. Eine vernünftige Fehlermeldung kann ich nicht liefern, da COM mir sagt, ich soll mich an meinen Systemadministrator wenden ... Aber ich weiss es auch nicht.