C / C++ / MFC

//Sort is an automation method by the CCmdTarget-derived class <br />
// CSAProjDlgAutoProxy<br />
void CSAProjDlgAutoProxy::Sort(VARIANT FAR* vArray) <br />
{<br />
   COleSafeArray sa;<br />
   BSTR *pbstr;<br />
   TCHAR buf[1024];<br />
   LONG cElements, lLBound, lUBound;<br />
  <br />
   //needed for OLE2T macro below, include afxpriv.h<br />
   USES_CONVERSION;<br />
<br />
   // Type check VARIANT parameter. It should contain a BSTR array<br />
   // passed by reference. The array must be passed by reference it is<br />
   // an in-out-parameter.<br />
   if (V_VT(vArray) != (VT_ARRAY | VT_BSTR))<br />
      AfxThrowOleDispatchException(1001, <br />
         "Type Mismatch in Parameter. Pass a string array by reference");<br />
<br />
   // clears data in sa and copies the variant data into sa<br />
   sa.Attach(*vArray);<br />
<br />
   // Check that array is 1 dimensional<br />
   if (sa.GetDim() != 1)<br />
      AfxThrowOleDispatchException(1002, <br />
         "Type Mismatch in Parameter. Pass a one-dimensional array");<br />
<br />
   try <br />
   {<br />
      // Get array bounds.<br />
      sa.GetLBound(1, &lLBound);<br />
      sa.GetUBound(1, &lUBound);<br />
<br />
      // Get a pointer to the elements of the array<br />
      // and increments the lock count on the array<br />
      sa.AccessData((LPVOID*)&pbstr);<br />
<br />
      //get no. of elements in array<br />
      cElements = lUBound-lLBound+1;<br />
      for (int i = 0; i < cElements-1; i++)<br />
      {<br />
         //output the elements of the array<br />
         wsprintf(buf, "%s", OLE2T(pbstr[i]));<br />
         OutputDebugString(buf);<br />
      }<br />
      <br />
      //decrement lock count<br />
      sa.UnaccessData();<br />
   }<br />
   catch (COleException *pEx)<br />
   {<br />
      AfxThrowOleDispatchException(1003, <br />
         "Unexpected Failure in FastSort method");<br />
      pEx->Delete();<br />
   }<br />
}