Kann mir jemand das hier übersetzen?

[Markus]

Hallo,

dies ist ein kurzer Auszug aus einem C++ Quelltext (das ganze hier)

Code:

        VARIANT var; //die hier
        VariantInit(&var); //die hier         
        V_I4(&var) = 0; //die hier
        V_VT(&var) = VT_I4; //die hier 
        
        hr = pUser->Put(CComBSTR("pwdLastSet"), var); //hier evtl. das "CComBSTR"
        hr = pUser->SetInfo();

        VariantClear(&var); //die hier
        pUser->Release();

Ich kenne mich mit C++ leider nicht sehr gut aus. Könnte mir jemand daher diesen Quellcode nach Delphi übersetzen (nur die ersten 4 Zeilen (bis zum Absatz)).

[Robert Marquardt]

Das sind wohl irgendwelche C Makros.
Da muesste man erst mal ausgraben wo die herkommen.

[Alter Mann]

Hi Markus,

versuche es so? -> VariantClear(@var);
eine Variable als var zu bezeichnen ist unglücklich, aber egal.
Laut PSDK ist es so deklariert:

HRESULT VariantClear(VARIANTARG * pvarg);

pvarg -> Pointer to the VARIANTARG to clear.

Die Deklaration der Variant-Macros (wie Robert sagt) sind in der oleauto.h hinterlegt oder Ole2.pas bei D7CSS.

[Markus]

Es geht mir eher um die ersten 4 Zeilen. Oder weiß jemand ne andre möglichkeit, wie ich dieses ADSI-Attribut setzen kann?