Problem in Passing 1d array from VC++ to VB

[George]

Hi all,

I have VB applicatoin , which calls a function in VC++ DLL

Arguement of function is a one dimensional string array.

Array will get filled in VC++ dll function.

I have written the programme given below.

But I am unable to get the array elements from VC++.

Programme is given below.

VC++ COM
/*************** *************** ***********/
STDMETHODIMP CTest111CL::myF un(SAFEARRAY **ppOutputArray )
{
AFX_MANAGE_STAT E(AfxGetStaticM oduleState())

HRESULT hresult;

SAFEARRAYBOUND aDim[1] ;

aDim[0].lLbound = 0;
aDim[0].cElements = 3;

BSTR HUGEP *pbstr;

*ppOutputArray = SafeArrayCreate (VT_BSTR , 1, aDim);

hresult=SafeArr ayAccessData(*p pOutputArray,(v oid HUGEP**)&pbstr) ;

pbstr[0] = SysAllocString( OLESTR("SOURCE_ VA"));
pbstr[1] = SysAllocString( OLESTR("ACV"));
pbstr[2] = SysAllocString( OLESTR("10"));

SafeArrayUnacce ssData(*ppOutpu tArray);

return S_OK;
}
/*************** *************** *************** */

VB Application
---------------
''''''''''''''' '''''''''''''
Dim i As Test111CL

Private Sub Command1_Click( )

Dim arr_str(3) As String
Set i = New Test111CL
i.myFun arr_str()
MsgBox arr_str(1)
End Sub

''''''''''''''' '''''''''''

MsgBox arr_str(1) , The message Box shows and empty string.

How can I rectify it. Please help me.

Thanks
George

[Ian Collins]

George wrote:

Hi all,

I have VB applicatoin , which calls a function in VC++ DLL

You'd be better off asking on a VC or general windows programming group.

--
Ian Collins.

[Alf P. Steinbach]

* George:

>
I have VB applicatoin , which calls a function in VC++ DLL

That's off-topic in clc++m (see the FAQ). Try posting in e.g.
[comp.os.ms-windows.program mer.win32]. Or see the FAQ for other
suggestions.
--
A: Because it messes up the order in which people normally read text.
Q: Why is it such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?