Fehler bei SafeArry Destroy - Wer kann helfen...

[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