SafeArrayTypeMismatchException

I am facing a problem while invoking a com ( developed in VC++) method from
.NET, I have enclosed below both VC++ & .NET Code, when i invoke this
component from VB 6.0 it works fine and both the out parameter
pvarAccessList & pvarErrorMsg gets filled and returned properly.
pvarAccessList returns a byte array and pvarErroMsg returns a string ...

But when invoked thru .NET it gives error msg
"SafeArrayTypeMisMatchException Specified Array was not of expected type"...

My head is getting sore from too much debugging... can any one shed some
light on this...

.NET Code
=======
UserMgmt p;
object Accesslist;
object ErrorMsg;

p = new UserMgmt();
p.GetUserAccessControlList ( "1",2,"3",out Accesslist,out ErrorMsg);


VC++ IDL File
=========
 interface IUsrMgmt : IDispatch
 {

  [id(305), helpstring("method GetUserAccessControlList")] HRESULT
GetUserAccessControlList([in] BSTR bstrPartyBranchCode, [in] long nDealerID,
[in] BSTR bstrTerminalMACAddr, [out] VARIANT *pvarAccessList, [out] VARIANT
*pvarErrMsg);
 };


VC++ Code
=======
STDMETHODIMP CAdmin::GetUserAccessControlList (BSTR bstrPartyBranchCode,
                                               long nDealerID,
                                               BSTR bstrTerminalMACAddr,
                                               VARIANT *pvarAccessList,
                                               VARIANT *pvarErrMsg)
{
   VARIANT lvarPartyBranchCode,
            lvarDealerID,
            lvarMACAddress;

   _ParameterPtr  lpcParamPartyBranchCode = 0,
                  lpcParamDealerID = 0,
                  lpcParamMACAddress = 0,
                  lpcParamErrMsg = 0;

   _ConnectionPtr lObjConnection (__uuidof(Connection));
   _RecordsetPtr lObjAccessList (__uuidof(Recordset));
   _CommandPtr lObjCommand (__uuidof(Command));

   char lpPartyBranchCode [ACCESSLIST_PARTYBRANCHCODE_LEN + 1],
         lpMACAddress [ACCESSLIST_MACADDRESS_LEN + 1],
         lpErrMsg [MAX_ERR_MSG_LEN];

   MessageHeader lstMsgHeader;
   tagUserAccessControlList lstUserACL;
   vector <tagUserAccessControlList> lvecUserACL;
   vector <tagUserAccessControlList>::iterator lvecUserACLItor;

   time_t lnMsgSendTime;
   int lnAccessListCnt = 0,
         lnRowCnt = 0;
   long lnAllowed;

   VariantInit (pvarAccessList);
   VariantInit (pvarErrMsg);

   lvarPartyBranchCode.vt = VT_BSTR;
   lvarDealerID.vt = VT_I4;
   lvarMACAddress.vt = VT_BSTR;

   pvarErrMsg->vt = VT_BSTR;
   pvarErrMsg->bstrVal = ::SysAllocString (L"");

   file://Validate Party Branch Code
   if (IsBadReadPtr (bstrPartyBranchCode, sizeof (BSTR)))
   {
      strcpy (lpErrMsg, ERR_ACCESSLIST_INVALID_PARTYBRANCHCODE);
      convertFromStringToBSTR (lpErrMsg, pvarErrMsg->bstrVal);
  return S_FALSE;
   }
   else
   {
      convertFromBSTRToString (bstrPartyBranchCode, lpPartyBranchCode);
      convertFromStringToBSTR (lpPartyBranchCode,
lvarPartyBranchCode.bstrVal);
   }

   file://Party Branch Code should not be empty
   if (strcmp (lpPartyBranchCode, EMPTY_STRING) == 0)
   {
      strcpy (lpErrMsg, ERR_ACCESSLIST_BLANK_PARTYBRANCHCODE);
      convertFromStringToBSTR (lpErrMsg, pvarErrMsg->bstrVal);
  return S_FALSE;
   }

   file://Validate Terminal MAC Address
   if (IsBadReadPtr (bstrTerminalMACAddr, sizeof (BSTR)))
   {
      strcpy (lpErrMsg, ERR_ACCESSLIST_INVALID_MACADDRESS);
      convertFromStringToBSTR (lpErrMsg, pvarErrMsg->bstrVal);
  return S_FALSE;
   }
   else
   {
      convertFromBSTRToString (bstrTerminalMACAddr, lpMACAddress);
      convertFromStringToBSTR (lpMACAddress, lvarMACAddress.bstrVal);
   }

   file://Terminal MAC Address should not be empty
   if (strcmp (lpMACAddress, EMPTY_STRING) == 0)
   {
      strcpy (lpErrMsg, ERR_ACCESSLIST_BLANK_MACADDRESS);
      convertFromStringToBSTR (lpErrMsg, pvarErrMsg->bstrVal);
  return S_FALSE;
   }

   file://DealerID
   lvarDealerID.vt = VT_I4;
   lvarDealerID.lVal = nDealerID;

   try
   {
    GetRegStr(HKEY_LOCAL_MACHINE,"SOFTWARE\\MME\\ADMIN\\DB","ConnStr",
m_szConnStr);
  if ( strcmp (m_szConnStr ,"") == 0  ) file://--- DB ConnStr is empty
  { LogError ("DB Connection String Empty/Not Found In Registry Key
{HKEY_LOCAL_MACHINE\\SOFTWARE\\MME\\Forex\\DB\\ConnStr} [MMEAdmin::Activate
() Failed] ",gszErrorLogPath);
   return S_FALSE;
  }
    file://strcpy(m_szConnStr, "driver={SQL Server}; server=Tandem; uid=sa;
pwd=; database=mme");
      lObjConnection->Open (m_szConnStr, "", "", adConnectUnspecified);
      lObjCommand->ActiveConnection = lObjConnection;
      lObjCommand->CommandText = "stp_GetUserAccessControlList";

      file://Set 1st parameter : @sPartyBranchCode
      lpcParamPartyBranchCode = lObjCommand->CreateParameter
("P_PartyBranchCode",
                                                               adVarChar,
                                                               adParamInput,

ACCESSLIST_PARTYBRANCHCODE_LEN,

lvarPartyBranchCode);
      lObjCommand->Parameters->Append (lpcParamPartyBranchCode);

      file://Set 2nd parameter : @nDealerID
      lpcParamDealerID = lObjCommand->CreateParameter ("P_DealerID",
                                                         adInteger,
                                                         adParamInput,
                                                         sizeof (long),
                                                         lvarDealerID);
      lObjCommand->Parameters->Append (lpcParamDealerID);

      file://Set 3rd parameter : @sTerminalMACAddr
      lpcParamMACAddress = lObjCommand->CreateParameter
("P_TerminalMACAddr",
                                                         adVarChar,
                                                         adParamInput,

ACCESSLIST_MACADDRESS_LEN,
                                                         lvarMACAddress);
      lObjCommand->Parameters->Append (lpcParamMACAddress);

      file://Set 4th parameter : @sErrMsg
      lpcParamErrMsg = lObjCommand->CreateParameter ("P_ErrMsg",
                                                      adVarChar,
                                                      adParamOutput,

ACCESSLIST_ERRMSG_LEN);
      lObjCommand->Parameters->Append (lpcParamErrMsg);

      lObjAccessList = lObjCommand->Execute (NULL, NULL, adCmdStoredProc);

      if (!lObjAccessList->BOF)
      {
         while (!lObjAccessList->adoEOF)
         {
            file://nMsgCode
            lstUserACL.nMessageCode =
lObjAccessList->GetCollect(ACCESSLIST_NMSGCODE_COLNAME);

            file://bAllowed
            lnAllowed =
lObjAccessList->GetCollect(ACCESSLIST_BALLOWED_COLNAME);

            if (lnAllowed == 1)
            {
               lstUserACL.bAllowed = TRUE;
            }
            else if (lnAllowed == 0)
            {
               lstUserACL.bAllowed = FALSE;
            }

            lvecUserACL.push_back (lstUserACL);
            lObjAccessList->MoveNext ();
         }

         lnAccessListCnt = lvecUserACL.size ();

         file://Message Header Information
     time (&lnMsgSendTime);
         lstMsgHeader.msgLength = sizeof (MessageHeader) + (lnAccessListCnt
* sizeof (tagUserAccessControlList));
         lstMsgHeader.msgSendTime = lnMsgSendTime;
     strcpy (lstMsgHeader.sourceBranchId, lpPartyBranchCode);
     lstMsgHeader.sourceTerminalId = 0;
     lstMsgHeader.sourceUserId = 0;
     lstMsgHeader.transactionCode = MSG_USERACCESSCONTROLLIST_RESPONSE;

         SAFEARRAY* lpSafeByteArray;
     BYTE* lpData;
     lpSafeByteArray = SafeArrayCreateVector (VT_UI1, 0, sizeof
(MessageHeader) + (lnAccessListCnt * sizeof (tagUserAccessControlList)));
     SafeArrayAccessData (lpSafeByteArray, (void**) &lpData);

     file://Copy header and body seperately
     CopyMemory (&lpData[0],
                     (void *) &lstMsgHeader,
                     sizeof (MessageHeader));

         for (lnRowCnt = 0, lvecUserACLItor = lvecUserACL.begin ();
               lvecUserACLItor != lvecUserACL.end ();
               ++lnRowCnt, ++lvecUserACLItor)
         {
        CopyMemory (&lpData[sizeof (MessageHeader) + (lnRowCnt * sizeof
(tagUserAccessControlList))],
                        (void *) lvecUserACLItor,
                        sizeof (tagUserAccessControlList));
         }

     SafeArrayUnaccessData (lpSafeByteArray);

     VariantInit (pvarAccessList);
     pvarAccessList->vt = VT_UI1 | VT_ARRAY;
     pvarAccessList->parray = lpSafeByteArray;

     lObjAccessList->Close();
         lObjConnection->Close ();

      }
   }
   catch (_com_error &ObjErr)
   {
      GetComError (ObjErr, lpErrMsg);
      convertFromStringToBSTR (lpErrMsg, pvarErrMsg->bstrVal);
  return S_FALSE;
   }

   return S_OK;
}



Regards
Yogesh Shetty
Team COE
Financial Technologies (India) Ltd.
URL: www.ftindia.com
mailto : [email protected]
contact : +91 22 6164145

You can read messages from the VBCOM archive, unsubscribe from VBCOM, or
subscribe to other DevelopMentor lists at http://discuss.develop.com.