/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 *
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you under the Apache
 *   License, Version 2.0 (the "License"); you may not use this file
 *   except in compliance with the License. You may obtain a copy of
 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
 */


#pragma warning (disable: 4917)
#if !defined WIN32_LEAN_AND_MEAN
# define WIN32_LEAN_AND_MEAN
#endif
#include <windows.h>
#include <comdef.h>
#include <atlbase.h>
extern CComModule _Module;
#include <atlcom.h>

#include <stdio.h>
#include <com/sun/star/bridge/ModelDependent.hpp>
#include <com/sun/star/bridge/XBridgeSupplier2.hpp>
#include <com/sun/star/lang/XMultiServiceFactory.hpp>
#include <com/sun/star/uno/XComponentContext.hpp>
#include <com/sun/star/lang/XMultiComponentFactory.hpp>

#include <oletest/XTestSequence.hpp>
#include <rtl/process.h>
#include <com/sun/star/uno/Reference.h>
#include <cppuhelper/servicefactory.hxx>
#include <cppuhelper/bootstrap.hxx>
#include <rtl/string.h>


CComModule _Module;
BEGIN_OBJECT_MAP(ObjectMap)
END_OBJECT_MAP()

#include "smartarray.h"
using namespace com::sun::star::bridge;
using namespace com::sun::star::bridge::ModelDependent;
using namespace com::sun::star::lang;
using namespace com::sun::star::uno;
using namespace oletest;
using namespace cppu;


HRESULT doTest();
HRESULT InitializeParameter();
void printResultVariantArray( VARIANT & var);
void printVariant( VARIANT & var);


int SAL_CALL main( int argc, char* argv[] )
{
    HRESULT hr;
    if( FAILED( hr=CoInitialize(NULL)))
    {
        printf("CoInitialize failed \n");
        return -1;
    }


    _Module.Init( ObjectMap, GetModuleHandleA( NULL));

    if( FAILED(hr=doTest()))
    {
        _com_error err( hr);
        const CHAR * errMsg= err.ErrorMessage();
        MessageBoxA( NULL, errMsg, "Test failed", MB_ICONERROR);
    }


    _Module.Term();
    CoUninitialize();
    return 0;
}
char _c[]={ 1,2,3,4,5};
short _short[]={0xffff, 1, 11 ,111, 1111 };
unsigned short _ushort[]={0xffff, 1, 11 ,111, 1111 };
long _long[]= { 0xffffffff, 11, 111 ,1111, 1111 };
unsigned long _ulong[]= { 0xffffffff, 11, 111 ,1111, 1111 };
float _float[]= { 12345.f, 1234.5f, 123.45f, 12.345f, 1.2345f};
double _double[]= {12345, 1234.5, 123.45, 12.345, 1.2345};

CComVariant _variant[]= {L"variant 1", L"variant2", L"variant3"};
wchar_t _wchar[]= {L'1', L'2', L'3', L'A', L' '};
BSTR _bstr[]={L"Ich", L"bin", L"ein", L"Hamburger", L"Jung"};
SmartArray<char>            arByte( _c, 5, VT_I1);
SmartArray< short>          arShort( _short, 5, VT_I2);
//SmartArray< unsigned short> arUShort( _ushort, 5, VT_UI2);
SmartArray< long>           arLong( _long, 5, VT_I4);
//SmartArray< unsigned long>    arULong( _ulong, 5, VT_UI4);
//SmartArray< float>            arFloat( _float, 5, VT_R4 );
SmartArray< double>         arDouble( _double, 5, VT_R8 );
//SmartArray< unsigned short> arWChar( _wchar, 5, VT_UI2 );
SmartArray< wchar_t* >      arString( _bstr, 5, VT_BSTR);
SmartArray< VARIANT >        arVariant( _variant, 3, VT_VARIANT);


HRESULT doTest()
{
    HRESULT hr;
    USES_CONVERSION;
    CComPtr<IUnknown> spUnkMgr;

    putenv("UNO_TYPES=types.rdb");
    putenv("UNO_SERVICES=services.rdb");
    Reference<XComponentContext> xContext = defaultBootstrap_InitialComponentContext();

    Reference< XMultiComponentFactory > mgr = xContext->getServiceManager();//createRegistryServiceFactory( OUString(L"services.rdb"));
    Reference< XInterface > xIntSupplier= mgr->createInstanceWithContext(
        "com.sun.star.bridge.OleBridgeSupplierVar1", xContext);
    Reference< XBridgeSupplier2 > xSuppl( xIntSupplier, UNO_QUERY);
    Reference <XInterface> xOletest= mgr->createInstanceWithContext(
        "oletest.OleTest", xContext);
    Any any;
    any <<= xOletest;
    sal_uInt8 arId[16];
    rtl_getGlobalProcessId( arId);
    Any target= xSuppl->createBridge( any, Sequence<sal_Int8>( (sal_Int8*)arId, 16), UNO, OLE);
    CComDispatchDriver oletest;
    if (target.getValueTypeClass() == cppu::UnoType<sal_uIntPtr>::get().getTypeClass())
    {
        VARIANT* pVariant = *(VARIANT**)target.getValue();

        oletest= pVariant->pdispVal;

        VariantClear(pVariant);
        CoTaskMemFree(pVariant);
    }

    CComVariant varRet;
    CComVariant varParam1;
    CComVariant varParam2;
    CComVariant varParam3;
    CComVariant varParam4;

    long value= 100;
    varParam1.vt= VT_I1 | VT_BYREF;
    varParam1.plVal= &value;

    // Testing the caching of DISPIDs and the process of acquiring member information
    // on demand in IDispatch::Invoke
    // Step through the corresponding IDispatch implementation of the ole bridge
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodByte"), &varParam1, &varRet);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodByte"), &varParam1, &varRet);
    // Name ok but different case
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout_methodByte"), &varParam1, &varRet);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout_methodByte"), &varParam1, &varRet);
    // not existing member
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout"), &varParam1, &varRet);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout"), &varParam1, &varRet);

    // Property
    varParam1.vt= VT_ARRAY | VT_I1;
    varParam1.parray= (SAFEARRAY*)arByte;
    hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varParam1);
    hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varParam1);
    // Name ok but different case
    hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varParam1);
    hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varParam1);
    // not existing member
    hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attr"), &varParam1);
    hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attr"), &varParam1);

    // PropertyGet
    hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varRet);

    hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varRet);
    hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varRet);
    //not existing member
    hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrBy"), &varRet);
    hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrBy"), &varRet);

    DISPID dispid;
    LPOLESTR method= L"methodByte";
    hr = oletest.p->GetIDsOfNames(IID_NULL, &method, 1, LOCALE_USER_DEFAULT, &dispid);


    CComVariant arg[1];
    arg[0].vt= VT_ARRAY | VT_I1;
    arg[0].parray= (SAFEARRAY*)arByte;
    DISPPARAMS params={ arg,0,1,0};

    hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
        DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);

    hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
        DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);

    // different case
    LPOLESTR method2= L"MEthodByte";
    hr = oletest.p->GetIDsOfNames(IID_NULL, &method2, 1, LOCALE_USER_DEFAULT, &dispid);

    hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
        DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);

    hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
        DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);

    LPOLESTR attrib= L"AttrByte";
    hr = oletest.p->GetIDsOfNames(IID_NULL, &attrib, 1, LOCALE_USER_DEFAULT, &dispid);

    hr = oletest.p->Invoke( dispid, IID_NULL, LOCALE_USER_DEFAULT,
        DISPATCH_METHOD | DISPATCH_PROPERTYPUTREF, &params, &varRet, NULL, NULL);

    hr = oletest.p->Invoke( dispid, IID_NULL, LOCALE_USER_DEFAULT,
        DISPATCH_METHOD | DISPATCH_PROPERTYGET, &params, &varRet, NULL, NULL);


    CComVariant varByteArray;
    varByteArray.vt= VT_ARRAY | VT_I1;
    varByteArray.parray= (SAFEARRAY*)arByte;
    CComVariant varShortArray;
    varShortArray.vt= VT_ARRAY | VT_I2;
    varShortArray.parray= (SAFEARRAY*)arShort;
    CComVariant varLongArray;
    varLongArray.vt= VT_ARRAY | VT_I4;
    varLongArray.parray= (SAFEARRAY*)arLong;
    CComVariant varDoubleArray;
    varDoubleArray.vt= VT_ARRAY | VT_R8;
    varDoubleArray.parray= (SAFEARRAY*)arDouble;
    CComVariant varStringArray;
    varStringArray.vt= VT_ARRAY | VT_BSTR;
    varStringArray.parray= (SAFEARRAY*)arString;
    CComVariant varArray;
    varArray.vt= VT_ARRAY | VT_VARIANT;
    varArray.parray= (SAFEARRAY*)arVariant;

    FONTDESC fd={ sizeof( fd), L"ARIAL", 10, FW_NORMAL, 0, 0, 0, 0};


    CComPtr< IUnknown > unk1;
    CComPtr< IUnknown > unk2;
    CComPtr< IUnknown > unk3;

    IUnknown* _unknown[3];
    hr= OleCreateFontIndirect( &fd, __uuidof( IUnknown), (void**)&unk1.p);
    hr= OleCreateFontIndirect( &fd, __uuidof( IUnknown), (void**)&unk2.p);
    hr= OleCreateFontIndirect( &fd, __uuidof( IUnknown), (void**)&unk3.p);
    _unknown[0]= unk1;
    _unknown[1]= unk2;
    _unknown[2]= unk3;
    SmartArray<IUnknown*> arUnknown( _unknown, 3, VT_UNKNOWN);

    CComVariant varUnkArray;
    varUnkArray.vt= VT_ARRAY | VT_UNKNOWN;
    varUnkArray.parray= (SAFEARRAY*)arUnknown;

    // preparing out parameter;
    char byteOut;
    CComVariant varOutByte;
    varOutByte.vt= VT_BYREF | VT_UI1;
    V_I1REF(&varOutByte)= &byteOut;
    short shortOut;
    CComVariant varOutShort;
    varOutShort.vt= VT_BYREF | VT_I2;
    V_I2REF( &varOutShort)= &shortOut;
    long longOut;
    CComVariant varOutLong;
    varOutLong.vt= VT_BYREF | VT_I4;
    V_I4REF( &varOutLong)= &longOut;
    double doubleOut;
    CComVariant varOutDouble;
    varOutDouble.vt= VT_BYREF | VT_R8;
    V_R8REF( &varOutDouble)= &doubleOut;
    BSTR bstrOut= NULL;
    CComVariant varOutString;
    varOutString.vt= VT_BYREF | VT_BSTR;
    V_BSTRREF(&varOutString)= &bstrOut;
    CComVariant variantOut;
    CComVariant varOutAny;
    varOutAny.vt= VT_BYREF | VT_VARIANT;
    V_VARIANTREF(&varOutAny)= &variantOut;

    CComPtr<IDispatch> dispOut;
    CComVariant varOutXInterface;
    varOutXInterface.vt= VT_BYREF |VT_DISPATCH;
    V_DISPATCHREF(&varOutXInterface)= &dispOut.p;

    // In Parameter ( all of type Sequence ###########################################################
    OutputDebugStringA( "In parameter of type Sequence ###########################################\n"
        "The functions return the Sequence parameter \n\n");

    OutputDebugStringA("methodByte | Params: \n");
    printVariant( varByteArray);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodByte"), &varByteArray, &varRet);
    OutputDebugStringA("methodByte  | return value \n");
    printVariant( varRet);

    OutputDebugStringA("methodShort | Params: \n");
    printVariant( varShortArray);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodShort"), &varShortArray, &varRet);
    OutputDebugStringA("methodShort  | return value \n");
    printVariant( varRet);

    OutputDebugStringA("methodLong | Params: \n");
    printVariant( varLongArray);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodLong"), &varLongArray, &varRet);
    OutputDebugStringA("methodLong  | return value \n");
    printVariant( varRet);

    OutputDebugStringA("methodDouble | Params: \n");
    printVariant( varDoubleArray);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodDouble"), &varDoubleArray, &varRet);
    OutputDebugStringA("methodDouble  | return value \n");
    printVariant( varRet);

    OutputDebugStringA("methodString | Params: \n");
    printVariant( varStringArray);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodString"), &varStringArray, &varRet);
    OutputDebugStringA("methodString  | return value \n");
    printVariant( varRet);

    OutputDebugStringA("methodAny | Params: \n");
    printVariant( varArray);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodAny"), &varArray, &varRet);
    OutputDebugStringA("methodAny  | return value \n");
    printVariant( varRet);

    OutputDebugStringA("methodXInterface | Params: \n");
    printVariant( varUnkArray);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodXInterface"), &varUnkArray, &varRet);
    OutputDebugStringA("methodAny  | return value \n");
    printVariant( varRet);

    // Out Parameter ###########################################################################
    OutputDebugStringA("Out parameter ###########################################\n\n");

    OutputDebugStringA("testout_methodByte  \n");
    hr= oletest.InvokeN(static_cast<LPCOLESTR>(L"testout_methodByte"), &varOutByte, 1, &varRet);
    OutputDebugStringA("testout_methodByte  | out value: \n");
    printVariant( varOutByte);

    OutputDebugStringA("testout_methodShort \n");
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodShort"), &varOutShort, &varRet);
    OutputDebugStringA("testout_methodShort  | out value: \n");
    printVariant( varOutShort);

    OutputDebugStringA("testout_methodLong \n");
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodLong"), &varOutLong, &varRet);
    OutputDebugStringA("testout_methodLong  | out value: \n");
    printVariant( varOutLong);

    OutputDebugStringA("testout_methodDouble \n");
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodDouble"), &varOutDouble, &varRet);
    OutputDebugStringA("testout_methodDouble  | out value: \n");
    printVariant( varOutDouble);

    OutputDebugStringA("testout_methodString \n");
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodString"), &varOutString, &varRet);
    OutputDebugStringA("testout_methodString  | out value: \n");
    printVariant( varOutString);

    OutputDebugStringA("testout_methodAny \n");
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodAny"), &varOutAny, &varRet);
    OutputDebugStringA("methodAny  | out value: \n");
    printVariant( varOutAny);

    OutputDebugStringA("testout_methodXInterface \n");
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodXInterface"), &varOutXInterface, &varRet);
    OutputDebugStringA("methodAny  | out value: \n");
    printVariant( varOutXInterface);
    CComDispatchDriver outDisp( *varOutXInterface.ppdispVal);
    CComVariant varAttr3;
    outDisp.GetPropertyByName(L"AttrAny2", &varAttr3);
    ATLTRACE("property OleTest.AttrAny2: %s", W2A(varAttr3.bstrVal));

    OutputDebugStringA("testout_methodMulParams1 ( 2 out Parameter) \n");
    long longOut2=0;
    CComVariant _params[2];
    longOut=0;
    _params[0]= varOutLong;
    _params[1].vt= VT_BYREF | VT_I4;
    V_I4REF(& _params[1])= &longOut2;
    hr= oletest.InvokeN( static_cast<LPCOLESTR>(L"testout_methodMulParams1"), (VARIANT*)&_params, 2);
    OutputDebugStringA("testout_methodMulParams1  | out values: \n");
    printVariant( _params[1]);
    printVariant( _params[0]);

    OutputDebugStringA("testout_methodMulParams2 ( 3 out Parameter) \n");
    CComVariant _params2[3];
    _params2[2]= varOutLong;
    _params2[1].vt= VT_BYREF | VT_I4;
    V_I4REF(& _params2[1])= &longOut2;
    _params2[0]= varOutString;
    hr= oletest.InvokeN( static_cast<LPCOLESTR>( L"testout_methodMulParams2"), (VARIANT*)&_params2, 3);
    OutputDebugStringA("testout_methodMulParams2  | out values: \n");
    printVariant( _params2[2]);
    printVariant( _params2[1]);
    printVariant( _params2[0]);

    OutputDebugStringA("testout_methodMulParams3 ( 1 in and 1 out Parameter) \n");
    CComVariant _params3[2];
    _params3[1]= CComBSTR(L" In string");
    _params3[0]= varOutString;
    hr= oletest.InvokeN( static_cast<LPCOLESTR>( L"testout_methodMulParams3"), (VARIANT*)&_params3, 2);
    OutputDebugStringA("testout_methodMulParams3  | out values: \n");
    printVariant( _params3[1]);
    printVariant( _params3[0]);

    //In Out Parameter ###########################################################################
    OutputDebugStringA("In Out parameter ###########################################\n\n");

    *V_I1REF(&varOutByte)= 5;
    ATLTRACE("testinout_methodByte | in value: %d \n", *V_I1REF(&varOutByte));
    hr= oletest.InvokeN(static_cast<LPCOLESTR>(L"testinout_methodByte"), &varOutByte, 1, &varRet);
    OutputDebugStringA("testinout_methodByte  | out value: \n");
    printVariant( varOutByte);

    OutputDebugStringA("testinout_methodShort | in value= 1000 \n");
    *V_UI2REF(&varOutShort)= 1000;
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodShort"), &varOutShort, &varRet);
    OutputDebugStringA("testinout_methodShort  | out value: \n");
    printVariant( varOutShort);

    OutputDebugStringA("testinout_methodLong | in value= 10000 \n");
    *V_UI4REF(&varOutLong)= 10000;
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodLong"), &varOutLong, &varRet);
    OutputDebugStringA("testinout_methodLong  | out value: \n");
    printVariant( varOutLong);

    *V_R8REF(&varOutDouble)= 3.14;
    ATLTRACE("testinou_methodDouble in value: %f \n",*V_R8REF(&varOutDouble));
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodDouble"), &varOutDouble, &varRet);
    OutputDebugStringA("testinout_methodDouble  | out value: \n");
    printVariant( varOutDouble);

    SysFreeString( *V_BSTRREF(&varOutString));
    *V_BSTRREF(&varOutString)= SysAllocString( L"this is a in string");
    ATLTRACE("testinout_methodString | value: %s \n", W2A(*V_BSTRREF(&varOutString)));
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodString"), &varOutString, &varRet);
    OutputDebugStringA("testinout_methodString  | out value: \n");
    printVariant( varOutString);

    CComVariant var1(CComBSTR(L" this is a string in a VARIANT"));
    CComVariant outVar1;
    outVar1.vt= VT_BYREF | VT_VARIANT;
    outVar1.pvarVal= &var1;
    ATLTRACE("testinout_methodAny | parameter: %s\n", W2A(var1.bstrVal));
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodAny"), &varOutAny, &varRet);
    OutputDebugStringA("testinout_methodAny  | out value: \n");
    printVariant( varOutAny);

    CComPtr< IUnknown > objectIn = unk1;
    CComVariant varOutIFace;
    varOutIFace.vt= VT_BYREF | VT_UNKNOWN;
    varOutIFace.ppunkVal= &objectIn.p;
    (*varOutIFace.ppunkVal)->AddRef();
    OutputDebugStringA("testinout_methodXInterface | in value: \n");
    printVariant(varOutIFace);
    hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodXInterface"), &varOutIFace, &varRet);
    OutputDebugStringA("testinout_methodXInterface  | out value: \n");
    printVariant( varOutIFace);

    // Properties ######################################################################
    OutputDebugStringA(" Properties ###########################################\n\n");

    OutputDebugStringA("set property \"AttrByte\" | value");
    //CComVariant propArByte;
    //propArByte.vt= VT_ARRAY | VT_I1;
      varParam1.parray= (SAFEARRAY*)arByte;
    printVariant( varParam1);
    hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varParam1);
    OutputDebugStringA("get property \"AttrByte\" | value:");
    varRet.Clear();
    hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varRet);
    printVariant( varRet);


    return S_OK;


}


void printVariant( VARIANT & _var)
{
    HRESULT hr;
    USES_CONVERSION;
    CComVariant var;
    hr= VariantCopyInd( &var, &_var);
    if( var.vt & VT_ARRAY)
    {
        VARTYPE type= var.vt ^ VT_ARRAY;
        SAFEARRAY * sarray= var.parray;
        long lbound;
        long ubound;
        hr= SafeArrayGetLBound( sarray, 1, &lbound);
        hr= SafeArrayGetUBound( sarray, 1, &ubound);
        long count= ubound - lbound + 1;
        char charValue;
        BYTE byteValue;
        short shortValue;
        long longValue;
        double doubleValue;
        IUnknown* unkValue;
        BSTR bstrValue;
        OutputDebugStringA("# Array \n");
        for( long i= 0; i < count; i++)
        {
//          CComVariant variantValue;
            CHAR buf[256];
            wsprintfA( buf, "%d : ", i);
            OutputDebugStringA( buf);
            VARIANT varTemp;
            VariantInit( &varTemp);
            VARIANT variantValue;
            VariantInit( &variantValue);
            switch( type)
            {
            case VT_UI1:
                hr= SafeArrayGetElement( sarray, &i, &byteValue);
                varTemp.vt= VT_UI1;
                V_UI1( &varTemp)= byteValue;
                printVariant( varTemp);
                break;
            case VT_I1:
                hr= SafeArrayGetElement( sarray, &i, &charValue);
                varTemp.vt= VT_I1;
                V_I1( &varTemp)= charValue;
                printVariant( varTemp);
                break;
            case VT_I2:
                hr= SafeArrayGetElement( sarray, &i, &shortValue);
                varTemp.vt= VT_I2;
                V_I2( &varTemp)= shortValue;
                printVariant( varTemp);
                break;

            case VT_UI2:
            case VT_I4:
                hr= SafeArrayGetElement( sarray, &i, &longValue);
                varTemp.vt= VT_I4;
                V_I4( &varTemp)= longValue;
                printVariant( varTemp);
                break;
            case VT_R8:
                hr= SafeArrayGetElement( sarray, &i, &doubleValue);
                varTemp.vt= VT_R8;
                V_R8( &varTemp)= doubleValue;
                printVariant( varTemp);
                break;
            case VT_BSTR:
                hr= SafeArrayGetElement( sarray, &i, &bstrValue);
                varTemp.vt= VT_BSTR;
                varTemp.bstrVal= bstrValue;
                printVariant( varTemp);
                break;
            case VT_VARIANT:
                hr= SafeArrayGetElement( sarray, &i, &varTemp);
                printVariant( varTemp);
                break;

            case VT_UNKNOWN:
                hr= SafeArrayGetElement( sarray, &i, &unkValue);
                varTemp.vt= VT_UNKNOWN;
                varTemp.punkVal= unkValue;
                printVariant( varTemp);
                break;
            }

            VariantClear( &varTemp);
            VariantClear( &variantValue);
        }

    }
    else
    {
        CHAR buf[256];
        switch (var.vt)
        {
        case VT_I1: wsprintfA( buf, " VT_I1: %d \n", V_I1( &var) );
            break;
        case VT_UI1: wsprintfA( buf, " VT_UI1: %d \n", V_I1( &var) );
            break;

        case VT_I2: wsprintfA( buf, " VT_I2: %d \n", V_I2( &var) );
            break;
        case VT_I4: wsprintfA( buf, " VT_I4: %d \n", V_I4( &var) );
            break;
        case VT_R8:
            {

//              int     decimal,   sign;
//              char    *buffer;
//              int     precision = 14;
//              double  source = 3.1415926535;

//              buffer = _ecvt( V_R8(&var), precision, &decimal, &sign );
                sprintf( buf, " VT_R8: %f \n",V_R8( &var) );
            break;
            }
        case VT_UNKNOWN:
            // The object implement IFont
            {
                CComDispatchDriver disp( var.punkVal);
                CComVariant ret;
                hr= disp.GetPropertyByName( static_cast<LPCOLESTR>(L"Name"), &ret);
                wsprintfA( buf, " VT_UNKNOWN: property \"Name\": %s \n", W2A(ret.bstrVal));
                break;
            }
        case VT_DISPATCH:
            // The object implement IFont
            {
                CComDispatchDriver disp( var.punkVal);
                CComVariant ret;
                if( SUCCEEDED( hr= disp.GetPropertyByName( static_cast<LPCOLESTR>(L"Name"), &ret)))
                    wsprintfA( buf, " VT_DISPATCH: property \"Name\": %s \n", W2A(ret.bstrVal));
                else
                    wsprintfA( buf, " VT_DISPATCH \n");

                break;
            }


        case VT_BSTR:
            {
                CHAR* str= W2A( var.bstrVal);
                wsprintfA( buf, " VT_BSTR: %s \n", str);
            }
            break;
        default:
            wsprintfA( buf, "\n");

        }

        OutputDebugStringA( buf);
    }

        return;

}

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */