git.oblomov.eu Git - wine/blob - dlls/oleaut32/dispatch.c

   1 /**
   2  * Dispatch API functions
   3  *
   4  * Copyright 2000  Francois Jacques, Macadamian Technologies Inc.
   5  *
   6  * ---
   7  *
   8  * TODO: Type coercion is implemented in variant.c but not called yet.
   9  */
  10
  11 #include "config.h"
  12
  13 #include <stdlib.h>
  14 #include <string.h>
  15 #include <stdio.h>
  16 #include <ctype.h>
  17
  18 #include "windef.h"
  19 #include "ole.h"
  20 #include "oleauto.h"
  21 #include "winerror.h"
  22 #include "winreg.h"         /* for HKEY_LOCAL_MACHINE */
  23 #include "winnls.h"         /* for PRIMARYLANGID */
  24
  25 #include "wine/obj_oleaut.h"
  26
  27 #include "debugtools.h"
  28
  29 DEFAULT_DEBUG_CHANNEL(ole);
  30 DECLARE_DEBUG_CHANNEL(typelib);
  31
  32
  33 /******************************************************************************
  34  *              DispInvoke (OLEAUT32.30)
  35  *
  36  *
  37  * Calls method of an object through its IDispatch interface.
  38  *
  39  * NOTES
  40  *              - Defer method invocation to ITypeInfo::Invoke()
  41  *
  42  * RETURNS
  43  *
  44  *              S_OK on success.
  45  */
  46 HRESULT WINAPI DispInvoke(
  47         VOID       *_this,        /* [in] object instance */
  48         ITypeInfo  *ptinfo,       /* [in] object's type info */
  49         DISPID      dispidMember, /* [in] member id */
  50         USHORT      wFlags,       /* [in] kind of method call */
  51         DISPPARAMS *pparams,      /* [in] array of arguments */
  52         VARIANT    *pvarResult,   /* [out] result of method call */
  53         EXCEPINFO  *pexcepinfo,   /* [out] information about exception */
  54         UINT       *puArgErr)     /* [out] index of bad argument(if any) */
  55 {
  56     HRESULT hr = E_FAIL;
  57
  58     /**
  59      * TODO:
  60      * For each param, call DispGetParam to perform type coercion
  61      */
  62     FIXME("Coercion of arguments not implemented\n");
  63
  64     hr = ICOM_CALL7(Invoke,
  65                     ptinfo,
  66                     _this,
  67                     dispidMember,
  68                     wFlags,
  69                     pparams, pvarResult, pexcepinfo, puArgErr);
  70
  71     return (hr);
  72 }
  73
  74
  75 /******************************************************************************
  76  *              DispGetIDsOfNames (OLEAUT32.29)
  77  *
  78  * Convert a set of names to dispids, based on information
  79  * contained in object's type library.
  80  *
  81  * NOTES
  82  *              - Defers to ITypeInfo::GetIDsOfNames()
  83  *
  84  * RETURNS
  85  *
  86  *              S_OK on success.
  87  */
  88 HRESULT WINAPI DispGetIDsOfNames(
  89         ITypeInfo  *ptinfo,    /* [in] */
  90         OLECHAR   **rgszNames, /* [in] */
  91         UINT        cNames,    /* [in] */
  92         DISPID     *rgdispid)  /* [out] */
  93 {
  94     HRESULT hr = E_FAIL;
  95
  96     hr = ICOM_CALL3(GetIDsOfNames,
  97                     ptinfo,
  98                     rgszNames,
  99                     cNames,
 100                     rgdispid);
 101     return (hr);
 102 }
 103
 104 /******************************************************************************
 105  *              DispGetParam (OLEAUT32.28)
 106  *
 107  * Retrive a parameter from a DISPPARAMS structures and coerce it to
 108  * specified variant type
 109  *
 110  * NOTES
 111  *              Coercion is done using system (0) locale.
 112  *
 113  * RETURNS
 114  *
 115  *              S_OK on success.
 116  */
 117 HRESULT WINAPI DispGetParam(
 118         DISPPARAMS *pdispparams, /* [in] */
 119         UINT        position,    /* [in] */
 120         VARTYPE     vtTarg,      /* [in] */
 121         VARIANT    *pvarResult,  /* [out] */
 122         UINT       *puArgErr)    /* [out] */
 123 {
 124     HRESULT hr = E_FAIL;
 125
 126     /**
 127      * TODO : Call VariantChangeTypeEx with LCID 0 (system)
 128      */
 129
 130     FIXME("Coercion of arguments not implemented\n");
 131     return (hr);
 132 }