Créer un VARIANT contenant un tableau de long

#include <windows.h>
#include <oleauto.h>


int main()
{
  SAFEARRAYBOUND lpBounds[1];   // Pour demander les dimensions du tableau
  SAFEARRAY* lpArray;           // Récupération du tableau
  int* lpData;                  // Données du tableau
  VARIANT var;                  // Le variant créé
  int i;

  // Initialisation du variant
  VariantInit(&var);

  // Précision de ce que contient le variant
  var.vt = VT_ARRAY | VT_I4;

  // On veut 41 entiers, indicés de 0 à 40
  lpBounds[0].lLbound = 0;     // Borne inférieure
  lpBounds[0].cElements = 41;  // Nombre d'éléments

  // Création du tableau
  lpArray = SafeArrayCreate(VT_I4, 1, lpBounds);
  if (! lpArray) return 1;

  // Il faut demander pour accèder au contenu du tableau
  SafeArrayAccessData(lpArray, &lpData);

  // On remplit avec les entiers de 200 à 240
  for (i = 0 ; i < 41 ; i++)
    lpData[i] = 240 + i;

  // On indique que l'on a terminé d'accèder au données
  SafeArrayUnaccessData(lpArray);

  // Mise en place du tableau dans le variant
  var.parray = lpArray;

  return 0;
}