--
Best regards,
Andrey Koubychev

Bye,
Sven

I have seen this problem in proxy , this bug is described in MSN , i fixed
it accordingly to ms requirements.
Another articlle Q297699 Q290611 about failing posting safearrays on COM+ ,
but they it was fixed already in W2K.
My problem looks so, that when i fire event with VARIANT holding SAFEARRAY,
VB sees its size and type or array correctly (in watch). But doest show
elements values. Doesnt matter is its string or longs.
When i specify SAFEARRAY in .IDL , all looks very good and even VB generates
event that looks like
a_MyEvent (ByVal a() as String)  (array of strings) but when you try to run
it , VB says that he doesnt support this type of parameters. Very {*filter*}
teasing. :)
--
Best regards,
Andrey Koubychev

The bool conversion is an error in wizard-generated code.
Fix the wizard-generated code in Fire_...

VariantClear(&varResult);
pvars[0] = &a;
DISPPARAMS disp = { pvars, NULL, 1, 0 };
pDispatch->Invoke(0x1, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_METHOD, &disp, &varResult, NULL, NULL);

The offending line is "pVars[0] = &a".

If you read the documentation of CComVariant, you will see
that there is not a constructor of CComVariant that
accepts a VARIANT*. The compiler does some strange
gyrations that end trying to invoke the constructor that
takes a bool...

You must instead declare a VARIANT, not a CComVariant, and
set it with the correct values for invoking the function.

// CComVariant* pVars = new...
VARIANT Var;
...
// pVars[0] = ...
Var.vt = VT_VARIANT | VT_BYREF;
Var.pvarVal = &a;
...
// DISPPARAMS disp = { pvars, ...
DISPPARAMS disp = { &Var, NULL, 1, 0 };

After 3 days of trying , i finally did it :) There are dozens post in news
groups about this topic, I think i will do
some simple sample and put it on web :)
The problem was not in bad proxy generator (this is well-known problem) but
also that I thought that something wrong with my VB :) VB doesnt work with
SAFEARRAY(BSTR) OLE type. However in 50% of answers in newsgroup gives such
advice :)
I also tryed to pass SAFEARRAY containing variants in Variant. This didnt
work also, VB shows elements incorrectly.
Ufff, so much time spent on it ...

--
Best regards,
Andrey Koubychev

// .IDL

 interface ITestObj : IDispatch
 {
  [id(1), helpstring("method Fire")] HRESULT Fire([in] SAFEARRAY(BSTR)
*pSA);
 };

 dispinterface _ITestObjEvents
 {
  properties:
  methods:
  [id(1), helpstring("method OnFire")] HRESULT OnFire([in]
SAFEARRAY(BSTR) *pSA);
 };

// .CPP for the object

STDMETHODIMP CTestObj::Fire(SAFEARRAY **pSA)
{
 Fire_OnFire(pSA);
 return S_OK;

 HRESULT Fire_OnFire(SAFEARRAY * * pSA)
 {
  CComVariant varResult;
  T* pT = static_cast<T*>(this);
  int nConnectionIndex;
  CComVariant* pvars = new CComVariant[1];
  int nConnections = m_vec.GetSize();

  for (nConnectionIndex = 0; nConnectionIndex < nConnections;
nConnectionIndex++)
  {
   pT->Lock();
   CComPtr<IUnknown> sp = m_vec.GetAt(nConnectionIndex);
   pT->Unlock();
   IDispatch* pDispatch = reinterpret_cast<IDispatch*>(sp.p);
   if (pDispatch != NULL)
   {
    VariantClear(&varResult);
    V_VT(&pvars[0]) = VT_BSTR | VT_ARRAY;
    V_ARRAY(&pvars[0]) = *pSA;
    DISPPARAMS disp = { pvars, NULL, 1, 0 };
    pDispatch->Invoke(0x1, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_METHOD, &disp, &varResult, NULL, NULL);
   }
  }
  V_VT(&pvars[0]) = VT_EMPTY;
  delete[] pvars;
  return varResult.scode;

 }

// VB code

Private WithEvents t As TestObj

Private Sub Command1_Click()
Dim A() As String
ReDim A(0 To 2)
A(0) = "a"
A(1) = "b"
A(2) = "c"
If t Is Nothing Then
    Set t = New TestObj
End If
t.Fire A
End Sub

Private Sub t_OnFire(pSA() As String)
MsgBox pSA(0) & " " & pSA(1) & " " & pSA(2)
End Sub

Shows a message box with "a b c", as expected.
--
With best wishes,
    Igor Tandetnik

"For every complex problem, there is a solution that is simple, neat,
and wrong." H.L. Mencken