🚀 go-pugleaf

On 31 Mar 2004 14:27:56 -0800, "Sydney Delieu" <syddel@hotmail.com>
wrote:

>Thanks for the hints! Could you please explain how to implement
>ISupportErrorInfo in the AppServer and how to read the descriptive
>error from the client?

I believe that actually it should have already been implemented
somewhere in IAppServer but see the little snippet below to have some
ideas how one can achieve that for COM object in general using ATL

class ATL_NO_VTABLE TrdmWorkflowImpl:
  public CComObjectRootEx<CComMultiThreadModel>,
  public CComCoClass<TrdmWorkflowImpl, &CLSID_rdmWorkflow>,
  public IAppServerImpl<TrdmWorkflow, TrdmWorkflowImpl, IrdmWorkflow,
&IID_IrdmWorkflow, LIBID_OF_rdmWorkflow>,
  public ISupportErrorInfoImpl <&IID_IrdmWorkflow>
{
public:

BEGIN_COM_MAP(TrdmWorkflowImpl)
  RDMOBJECT_COM_INTERFACE_ENTRIES(IrdmWorkflow)
  COM_INTERFACE_ENTRY(ISupportErrorInfo)
END_COM_MAP()

then on client side you can use code similar to following

void DISPCHECK(HRESULT hr,const EXCEPINFO &ei){
  if(S_OK!=hr)
    throw
EOleException(String(ei.bstrDescription),ei.wCode,String(ei.bstrSource),String(ei.bstrHelpFile),ei.dwHelpContext);
}

and smth like
DISPCHECK(IMyAppServ.Connect(wsUserName,wsPassword,&wsSessionId,&iRes),IMyAppServ.excepinfo);

HTH

--
Vladimir Ulchenko aka vavan