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