OleVariant-Unterstützung in Delphi?

[DGL-luke]

Hallo,

welche Unit muss ich einbinden, um volle Unterastützung für OleVariants zu haben? Mir fehlen zum Beispiel "VariantInit" oder auch nur die OleVariant-Members, z.B. OleVariant.vt.

[omata]

War das nicht in der Unit Variants?

Gruss
Thorsten

[DGL-luke]

Ich glaube, in der gehts nur um die Delphi-Variants.

[ste_ett]

Unit ActiveX

[DGL-luke]

Dankesehr. Aber der Compiler zeigt mir die Member einer OleVariant-Variable immer noch nicht an...

[mkinzler]

Zitat:

Dankesehr. Aber der Compiler zeigt mir die Member einer OleVariant-Variable immer noch nicht an...

Das macht er auch nicht. Die Auswertung geschiet erst zur Laufzeit durch das (COM-)Objekt.

[DGL-luke]

OK, danke.

[DGL-luke]

So... kann es sein, dass man gewisse Member eines OleVariants heraus-boolesch-operieren muss? Hab einen flüchtigen Blick auf google codesearch geworfen, und dabei unter anderem das gefunden:

Code:

if (VT_DISPATCH==V_VT(&vDocID))

Wie mach ich das in Delphi? Es geht um IAccessible.accNavigate und den OleVariant, der mir da rausgeliefert wird.

[DGL-luke]

Hallo,

ich habe inzwischen auch die C-Makros gefunden, die "V_VT(X)" definieren. abhängig von bestimmten Compiler-charakteristika (?) ist das entweder einfach

Code:

((X)->vt)

was natürlich zu einem spontanten "Häääää? Warum funktioniert mein Code nicht?!" führt, oder

Code:

((X)->__VARIANT_NAME_1.__VARIANT_NAME_2.vt)

Was zu einem noch größeren "Häääääää?" führt.

Kann mir denn niemand helfen?

Hier nochmal das komplette:

Code:

#define V_UNION(X,Y) ((X)->__VARIANT_NAME_1.__VARIANT_NAME_2.__VARIANT_NAME_3.Y)
        #define V_VT(X) ((X)->__VARIANT_NAME_1.__VARIANT_NAME_2.vt)
        #else
        #define V_UNION(X,Y) ((X)->Y)
        #define V_VT(X) ((X)->vt)

(Google Codesearch nach "V_VT", erste ergebnisse)

[alzaimar]

Die Funktion 'VarType' ist dein Freund. Ein Variant ist eigentlich ein 'Variant Record', aber Delphi kapselt das sehr schön.

Du kannst auch direkt auf die Member zugreifen, dazu musst du das Variant (glaube ich) nach TVarRec typecasten...