Fehler bei SafeArry Destroy - Wer kann helfen...

[Mavarik]

Hi!

Es lautet immer Empty auch für alle einzelnen Elemente...

Auf diese Struktur kann man nur über das PSaveArray Construct zugreifen!!!

Frank

[shmia]

Zitat von Mavarik:

Auf diese Struktur kann man nur über das PSaveArray Construct zugreifen!!!

Das ist entweder Absicht oder Blödheit seitens Microsoft.
Es wäre ein Leichtes gewesen, ein Variant-Array von OleStr(=BSTR) aufzubauen.

Auf http://www.kbalertz.com/kb_Q315482.aspx wird ein C# Codeschnipsel gezeigt.
Das lässt sich auf Delphi übertragen.

[Mavarik]

Nun ja... Also wenn Du Dir meine ursprüngliche Nachricht ansiehst, habe ich es genau so gemacht!

Frank

[shmia]

Zitat von Mavarik:

Nun ja... Also wenn Du Dir meine ursprüngliche Nachricht ansiehst, habe ich es genau so gemacht!

Ähnlich, aber nicht gleich. Aber wir sind schon auf der richtigen Spur.
Vor dem Aufruf an TargetCommando braucht/soll ValOut nicht vorbereitet werden.
Am Ende gibt du das SafeArray mit SafeArrayDestroy frei.
Die Exception EVariantBadVarTypeError könnte darauf hindeuten,
dass Delphi selbst versucht ValOut zu finalisieren und in diesem speziellen Fall
aber ein Problem hat ein "Array of Empty" freizugeben.

Im Delphi 5 Sourcecode gibt es die Exception EVariantBadVarTypeError nicht;
du müsstest also deinen Sourcecode von D2005 danach durchsuchen.
Es wäre auch wichtig zu wissen, ob die Exception durch
SafeArrayDestroy ausgelöst ist (was ich nicht glaube) oder erst bei
Erreichen des Procedureende (meine Vermutung).

Evtl. könnte es helfen, den Typ des Variant zu ändern:

Delphi-Quellcode:

for i := iMin to iMax do 
    begin 
      ActiveX.SafeArrayGetElement(Val, i, sBuffer); 
      Combobox1.Items.Add(SBuffer); 
    end; 
TVariantArg(ValOUT).VT := VT_EMPTY;  // Trick: Variant ist nun kein Array mehr
ValOUT := 42;                        // Trick2: Compiler soll "denken", du benützt ValOut immer noch

[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...