🚀 go-pugleaf

Thank you for that link to the Microsoft web site. I am still having trouble 
setting up this prototype of this function on BCB6.0 and declaring the 
arrays and passing the arrays through the function. Below is more 
information about this function can anyone figure out how to call this 
GetSymbols( ) function? The code be low is for Visual C.



BOOL GetSymbols( CStringArray &_symbols, CArray< long, long > &_wordenIDs );


 HRESULT GetSymbols(LPSAFEARRAY* Symbols/*[in,out]*/,
                       LPSAFEARRAY* WordenNumbers/*[in,out]*/);

HRESULT _cTC2000::GetSymbols(LPSAFEARRAY* Symbols/*[in,out]*/,
                             LPSAFEARRAY* WordenNumbers/*[in,out]*/)
{
  TAutoArgs<2> _args;
  _args[ 1]= Symbols /*[VT_SAFEARRAY:1]*/;
  _args[ 2]=WordenNumbers /*[VT_SAFEARRAY:1]*/;
  return OleFunction(DISPID(1610809355), _args);
}


BOOL _cTC2000::GetSymbols( CStringArray &_symbols, CArray< long, long > 
&_wordenIDs )
{
 BOOL result = FALSE;
 SAFEARRAY *pArray, *pLongArray;

 _symbols.RemoveAll();
 _wordenIDs.RemoveAll();
 pArray = AllocateArray( VT_BSTR );
 pLongArray = AllocateArray( VT_I4 );
 result = GetSymbols( &pArray, &pLongArray ) == 0;
 if ( result )
  {
  Convert( _symbols, pArray );
  Convert( _wordenIDs, pLongArray );
  }

 SafeArrayDestroy( pArray );
 SafeArrayDestroy( pLongArray );
 return result;

}





"Boba" <Boba@somewhere.world> wrote in message 
news:4329da90$1@newsgroups.borland.com...
> "LarryJ" <LarryJ33@ev1.net> wrote in message
> news:4329d38a@newsgroups.borland.com...
>> ... but SAFEARRAY is not listed in my Win32 API bible.
>> ...
> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/automat
> /htm/chap7_9ntx.asp
>
>