Functions for Setting and Retrieving Values from Variant Safe Arrays

Here are two very easy-to-use functions for setting (FillVariant) and retrieving (GetVariant) values from a variant safe array. All of the instructions that you'll need to use these functions can be found in the comments below. Simply copy and paste the code from this article into your files and follow these instructions.

// Kishore:-
// include this pice of code in .h file.
// function for putting values to VARIANT->SAFEARRAY
// function for getting values from VARIANT->SAFEARRAY
// @1 Type of Array 
// @2 Actual type contained in the variant
// @3 Variant to read or write 
// @4 Actual array to read or write
// @5 VT_BSTR or VT_DATE ...  (FillVariant)
// Usage:- 
// BSTRArray someThing; someThing.Add(bstr);
// FillVariant<BSTRArray,BSTR>(&toVariant,someThing,VT_BSTR);
// _BSTR_TArray someThing;
// GetVariant<_BSTR_TArray,BSTR>(fromVariant,someThing);
// _bstr_t _bstr=someThing.GetSize(),GetAt(),[n]
// GetVariant<DATEArray,DATE>(fromVariant,dt);
// GetVariant<OLEDATETIMEArray,DATE>(fromVariant,dt);
// OleDateTime x=dt.GetAt(n) ...GetSize(),[],.....

#include <afxtempl.h>

typedef CArray<BSTR,BSTR> BSTRArray;
typedef CArray<DATE,DATE> DATEArray;
typedef CArray<_bstr_t,_bstr_t> _BSTR_TArray;
typedef CArray<COleDateTime,COleDateTime> OLEDATETIMEArray;
typedef CArray<DWORD,DWORD> DWORDArray;

template <class T,class T1> 
void FillVariant(VARIANT* pVariant, T& arrySrc,int iType)
 int iMax = arrySrc.GetSize();

 SAFEARRAY * pSafeArray; 
 aDim[0].lLbound = 0; 
 aDim[0].cElements = iMax;

 pVariant->vt = VT_ARRAY | iType;

 pSafeArray = SafeArrayCreate(iType, 1, aDim);

 T1* dwArray = NULL;
 SafeArrayAccessData(pSafeArray, (void**)&dwArray);

 for(int nCount = 0; nCount < iMax ; nCount++)
  dwArray[nCount] = (T1)arrySrc[nCount];
 pVariant->parray = pSafeArray;

template <class T,class T1> 
void GetVariant(VARIANT variant, T& arrySrc)
 long lStartBound = 0;
 long lEndBound = 0;
 SAFEARRAY* pSafeArray  = variant.parray;
 SafeArrayGetLBound(pSafeArray, 1, &lStartBound);
 SafeArrayGetUBound(pSafeArray, 1, &lEndBound);

 T1* arrayAccess = NULL;
 SafeArrayAccessData(pSafeArray, (void**)&arrayAccess);
 for(int iIndex = lStartBound; iIndex <= lEndBound; iIndex ++)


  • How to return CArray object from Function

    Posted by renugopal on 06/20/2005 01:48am

    How to pass & return CArray object with Function Thanks -Renugopal

  • OMG, your a life saver

    Posted by Legacy on 02/09/2003 12:00am

    Originally posted by: Jeryl Cook


  • anybody created 2 or 3 dimensional arrays with this code ?

    Posted by Legacy on 10/17/2002 12:00am

    Originally posted by: SAM

    Pls send or post the code with 2 or 3 dimensional arrays....

    Thank you in Advance

  • why ?

    Posted by Legacy on 07/03/2002 12:00am

    Originally posted by: skizmo

    why did M$ build this ??? it is (!Excellent)

  • Functions for Setting and Retrieving Values from Variant Safe Arrays

    Posted by Legacy on 01/16/2002 12:00am

    Originally posted by: binoo

    very good coding

  • h file..

    Posted by Legacy on 01/04/2002 12:00am

    Originally posted by: mb

    what exactly do I need to have in my H file? I don't understand how to create it.

  • dfkfdk

    Posted by Legacy on 09/06/2001 12:00am

    Originally posted by: ashish sambare

    bekkar project

  • Mast !

    Posted by Legacy on 05/30/2000 12:00am

    Originally posted by: Vinod Mahajan

    Really helpful code...If One know SafeArray very well then he/she knows COM...VB programmer may find it difficult initially anyway thats the beauty of C++...Thank you...

  • Great Piece of Work...Keep it up...

    Posted by Legacy on 05/25/2000 12:00am

    Originally posted by: Kapil

    Great Piece of Work...Keep it up...


  • Excellent

    Posted by Legacy on 05/01/2000 12:00am

    Originally posted by: Anil Kumar

    It is excellent and ready to use. It was very helpful to us

  • Loading, Please Wait ...

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Anthony Christie, the Chief Marketing Officer for Level Communications, is responsible for customer experience, worldwide marketing and product management. In this informative asset, he shares his insights into why a private network connection to cloud-bases applications is the right decision for your enterprise. Download now to find out more.

  • Moving from an on-premises environment to Office 365 does not remove the need to plan for disruptions or reduce the business risk requirements for protecting email services. If anything, some risks increase with a move to the cloud. Read how to ease the transition every business faces if considering or already migrating to cloud email. This white paper discusses: Setting expectations when migrating to Office 365 Understanding the implications of relying solely on Exchange Online security Necessary archiving …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date