Fehler bei SafeArry Destroy - Wer kann helfen...

[Mavarik]

ICH HABS! Hoffe ich jedenfalls!

Delphi-Quellcode:

  FormatCombo.Items.Clear;
  TVariantArg(ValOUT).VT := VT_BYREF or VT_SAFEARRAY;
  TVariantArg(ValOUT).ppArray := nil;
  TargetCommando(2233,EmptyParam,ValOut);    // 2233
  TVariantArg(ValOUT).VT := VT_BYREF or VT_SAFEARRAY;  // EINFACH NOCHMAL SETZEN!

  Val := PSafeArray(TVariantArg(ValOUT).ppArray);
  
   // Die Anzahl der Elemente im Array bestimmen 
  ActiveX.SafeArrayGetLBound(Val, 1, iMin); 
  ActiveX.SafeArrayGetUBound(Val, 1, iMax); 

  // Die einzelnen Strings auslesen 
  for i := iMin to iMax-1 do
    begin
      try
        ActiveX.SafeArrayGetElement(Val, i, sBuffer); 
        FormatCombo.Items.Add(SBuffer);
      except
//        Caption := 'Fehler';
      end;
    end;
  ActiveX.SafeArrayDestroyData(Val);
  ActiveX.SafeArrayDestroy(Val);

So gibt es keine Exception mehr...

Frank

PS.: Trotzdem danke für Deine Hilfe...