COM

STDMETHODIMP CAddin::MyClass_LoadVals(VARIANT ValIds, VARIANT* outVals)<br />
{<br />
<br />
USES_CONVERSION;<br />
std::list<std::string> result;<br />
std::list<std::string> inpArr;<br />
<br />
CComVariant var;<br />
<br />
CComSafeArray<bstr> parr;<br />
CComBSTR* bstrs;<br />
var.Attach(&valIds);<br />
parr.Attach(var.parray);<br />
<br />
int dim = parr.m_psa->cDims;<br />
if (parr.m_psa->cDims != 1)<br />
return S_FALSE;<br />
<br />
if(parr.m_psa->rgsabound->cElements > 1)<br />
{<br />
SafeArrayAccessData(parr,reinterpret_cast<void **="">(&bstrs));<br />
for (int i=0;i < parr.m_psa->rgsabound->cElements;i++)<br />
{<br />
std::string tmp;<br />
tmp = W2CA(bstrs[i]);<br />
inpArr.push_back(tmp);<br />
}<br />
}<br />
SafeArrayUnaccessData(parr.m_psa);<br />
<br />
VariantInit(outVals);<br />
<br />
if(JavaInterface::JavaInterface_LoadVals(inpArr,result)){<br />
outVals->vt=VT_ARRAY|VT_BSTR;<br />
createStringArrayVariant(outVals,result);<br />
return S_OK;<br />
}else{<br />
getCalypsoError();<br />
}<br />
<br />
return S_OK;<br />
}</void></bstr></std::string></std::string>

<br />
bool createStringArrayVariant(VARIANT* to, std::list<std::string>& from)<br />
{<br />
VariantInit(to);<br />
SAFEARRAYBOUND bound = {from.size(), 0};<br />
SAFEARRAY* array = ::SafeArrayCreate(VT_VARIANT, 1, &bound);<br />
<br />
long index = 0;<br />
VARIANT v; VariantInit(&v);<br />
for(std::list<std::string>::iterator i = from.begin(); i != from.end(); i++)<br />
{<br />
convertStringToVariant(&v, *i);<br />
::SafeArrayPutElement(array, &index, (void*)&v); ++index;<br />
}<br />
to->vt = VT_VARIANT | VT_ARRAY;<br />
to->parray = array;<br />
return true;<br />
}</std::string></std::string>

<br />
void CCoMenHandler::GetSelectedFiles(LPCITEMIDLIST pidlFolder,IDataObject *pdtobj)<br />
{<br />
	// get these paths into a CStringArray<br />
   g_szSelectedFiles.RemoveAll();<br />
<br />
   // fetch all of the file names we're supposed to operate on<br />
   if (pdtobj) <br />
   {<br />
	   pdtobj->AddRef();<br />
<br />
	   STGMEDIUM medium;<br />
	   FORMATETC fe = { CF_HDROP, NULL, DVASPECT_CONTENT, -1, TYMED_HGLOBAL};<br />
<br />
<br />
	   HRESULT hr = pdtobj->GetData (&fe, &medium);<br />
	   if (FAILED (hr))<br />
	   {<br />
		   return ;<br />
	   }<br />
<br />
	   // buffer to receive filenames<br />
	   char path[MAX_PATH];<br />
<br />
	  	 // how many are there?<br />
	   UINT fileCount = DragQueryFile((HDROP)medium.hGlobal, 0xFFFFFFFF,<br />
	   path, MAX_PATH);<br />
<br />
	   if (fileCount>0)<br />
	   {<br />
		   // avoid wasting mem when this thing gets filled in<br />
		   g_szSelectedFiles.SetSize(fileCount);<br />
<br />
		   // stash the paths in our CStringArray<br />
		   for (UINT i=0;i<fileCount;i++) <br />
         {<br />
			   // clear old path<br />
			   memset(path, 0, MAX_PATH);<br />
			   // fetch new path<br />
			   if (DragQueryFile((HDROP)medium.hGlobal, i, path, MAX_PATH)) <br />
            {<br />
 		         g_szSelectedFiles.SetAt(i, path);<br />
				//AfxMessageBox(path);<br />
		      }<br />
	      }<br />
<br />
         g_szSelectedFiles.FreeExtra();<br />
      }<br />
<br />
      // free our path memory - we have the info in our CStringArray<br />
      ReleaseStgMedium(&medium);<br />
   }<br />
<br />
  <br />
}<br />