COM

Public Function f1(ByRef arr1() As String, ByRef arr2() As Double) As String()
   ShowList arr1
End Function

Private Sub ShowList(ByRef arr() As String)
    for i1 = LBound(arr, 1) to UBound(arr, 1)
       MsgBox arr(i1)
    next i1
End Sub

SAFEARRAY* CreateASafeArray() 
{
	//http://www.geocities.com/Jeff_Louie/safearray.html
	USES_CONVERSION;  // enables use of ATL conversion macro A2W
	char buffer[20];  // used to store ANSI string
	HRESULT hr= S_OK;

	// Create SafeArray of VARIANT BSTRs
	SAFEARRAY *pSA;
	SAFEARRAYBOUND aDim[1];    // a one dimensional array
	aDim[0].lLbound= 0;  // Visual Basic arrays start with index 0
	aDim[0].cElements= 10;
	pSA= SafeArrayCreate(VT_VARIANT,1,aDim);  // create a 1D SafeArray of VARIANTS
	if (pSA != NULL) {
		long aLong[1];
		// iterate over array adding VARIANTs of type VT_BSTR
		for (long l= aDim[0].lLbound; l< (long)(aDim[0].cElements + aDim[0].lLbound); l++) { 
			VARIANT vOut;
			VariantInit(&vOut);
			vOut.vt= VT_BSTR;  // set type
			_ltoa_s(l,buffer,10);  // convert long to ANSI string value
			vOut.bstrVal= ::SysAllocString(A2W(buffer)); // system wide "new"
			aLong[0]= l;  // set index value
			if (hr= SafeArrayPutElement(pSA, aLong, &vOut)) { // "correctly" copies VARIANT
				VariantClear(&vOut);  // release BSTR from memory on error
				SafeArrayDestroy(pSA); // does a deep destroy on error
				return NULL;
			}
			VariantClear(&vOut);  // does a deep destroy of source VARIANT
		} // end iteration
	}
	return pSA;
	// clean up here only if you do not return SafeArray as an [out, retval]
	SafeArrayDestroy(pSA); // again does a deep destroy
}

void CaxDlg::OnBnClickedButton1()
{
	SAFEARRAY *pSA3 = CreateASafeArray ();
}

Ju@ncho wrote:

I am programming a COM object in C++, to be used in a Visual Basic Apllication.
I want to know if there is a way to separate the interface members with namespaces like this

Study.FramesOfReference.Series.Item()

where Study is a COM Object that contains a CoClass FramesOfReference which Contains a CoClass Series wich has a method Item()

Thank U very Much

Ju@ncho wrote:

Do you know if i can use C++ objects as properties in ATL or i have to use COM objects, in that case which parameters i Have to use in the definition of the property in mi idl file?