]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/msw/ole/automtn.cpp
Add wxGrid::Render() for drawing the grid to any wxDC.
[wxWidgets.git] / src / msw / ole / automtn.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: src/msw/ole/automtn.cpp
3// Purpose: OLE automation utilities
4// Author: Julian Smart
5// Modified by:
6// Created: 11/6/98
7// RCS-ID: $Id$
8// Copyright: (c) 1998, Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// For compilers that support precompilation, includes "wx.h".
13#include "wx/wxprec.h"
14
15#if defined(__BORLANDC__)
16 #pragma hdrstop
17#endif
18
19// With Borland C++, all samples crash if this is compiled in.
20#if (defined(__BORLANDC__) && (__BORLANDC__ < 0x520)) || defined(__CYGWIN10__)
21 #undef wxUSE_OLE_AUTOMATION
22 #define wxUSE_OLE_AUTOMATION 0
23#endif
24
25#ifndef WX_PRECOMP
26 #include "wx/log.h"
27 #include "wx/math.h"
28#endif
29
30#define _FORCENAMELESSUNION
31#include "wx/msw/private.h"
32#include "wx/msw/ole/oleutils.h"
33#include "wx/msw/ole/automtn.h"
34
35#ifdef __WXWINCE__
36#include "wx/msw/wince/time.h"
37#else
38#include <time.h>
39#endif
40
41#include <wtypes.h>
42#include <unknwn.h>
43
44#include <ole2.h>
45#define _huge
46
47#ifndef __WXWINCE__
48#include <ole2ver.h>
49#endif
50
51#include <oleauto.h>
52
53#if wxUSE_DATETIME
54#include "wx/datetime.h"
55#endif // wxUSE_DATETIME
56
57#if wxUSE_OLE_AUTOMATION
58
59#include <wx/vector.h>
60
61// Report an OLE error when calling the specified method to the user via wxLog.
62static void
63ShowException(const wxString& member,
64 HRESULT hr,
65 EXCEPINFO *pexcep = NULL,
66 unsigned int uiArgErr = 0);
67
68// wxAutomationObject
69
70wxAutomationObject::wxAutomationObject(WXIDISPATCH* dispatchPtr)
71{
72 m_dispatchPtr = dispatchPtr;
73}
74
75wxAutomationObject::~wxAutomationObject()
76{
77 if (m_dispatchPtr)
78 {
79 ((IDispatch*)m_dispatchPtr)->Release();
80 m_dispatchPtr = NULL;
81 }
82}
83
84namespace
85{
86
87// A simple helper that ensures that VARIANT is destroyed on scope exit.
88struct wxOleVariantArg : VARIANTARG
89{
90 wxOleVariantArg() { VariantInit(this); }
91 ~wxOleVariantArg() { VariantClear(this); }
92};
93
94} // anonymous namespace
95
96
97#define INVOKEARG(i) (args ? args[i] : *(ptrArgs[i]))
98
99// For Put/Get, no named arguments are allowed.
100// WARNING: if args contain IDispatches, their reference count will be decreased
101// by one after Invoke() returns!
102bool wxAutomationObject::Invoke(const wxString& member, int action,
103 wxVariant& retValue, int noArgs, wxVariant args[], const wxVariant* ptrArgs[]) const
104{
105 if (!m_dispatchPtr)
106 return false;
107
108 int ch = member.Find('.');
109 if (ch != -1)
110 {
111 // Use dot notation to get the next object
112 wxString member2(member.Left((size_t) ch));
113 wxString rest(member.Right(member.length() - ch - 1));
114 wxAutomationObject obj;
115 if (!GetObject(obj, member2))
116 return false;
117 return obj.Invoke(rest, action, retValue, noArgs, args, ptrArgs);
118 }
119
120 wxOleVariantArg vReturn;
121 wxOleVariantArg* vReturnPtr = & vReturn;
122
123 // Find number of names args
124 int namedArgCount = 0;
125 int i;
126 for (i = 0; i < noArgs; i++)
127 {
128 if ( !INVOKEARG(i).GetName().empty() )
129 {
130 namedArgCount ++;
131 }
132 }
133
134 int namedArgStringCount = namedArgCount + 1;
135 wxVector<wxBasicString> argNames(namedArgStringCount, wxString());
136 argNames[0] = member;
137
138 // Note that arguments are specified in reverse order
139 // (all totally logical; hey, we're dealing with OLE here.)
140
141 int j = 0;
142 for (i = 0; i < namedArgCount; i++)
143 {
144 if ( !INVOKEARG(i).GetName().empty() )
145 {
146 argNames[(namedArgCount-j)] = INVOKEARG(i).GetName();
147 j ++;
148 }
149 }
150
151 // + 1 for the member name, + 1 again in case we're a 'put'
152 wxVector<DISPID> dispIds(namedArgCount + 2);
153
154 HRESULT hr;
155 DISPPARAMS dispparams;
156 unsigned int uiArgErr;
157
158 // Get the IDs for the member and its arguments. GetIDsOfNames expects the
159 // member name as the first name, followed by argument names (if any).
160 hr = ((IDispatch*)m_dispatchPtr)->GetIDsOfNames(IID_NULL,
161 // We rely on the fact that wxBasicString is
162 // just BSTR with some methods here.
163 reinterpret_cast<BSTR *>(&argNames[0]),
164 1 + namedArgCount, LOCALE_SYSTEM_DEFAULT, &dispIds[0]);
165 if (FAILED(hr))
166 {
167 ShowException(member, hr);
168 return false;
169 }
170
171 // if doing a property put(ref), we need to adjust the first argument to have a
172 // named arg of DISPID_PROPERTYPUT.
173 if (action & (DISPATCH_PROPERTYPUT | DISPATCH_PROPERTYPUTREF))
174 {
175 namedArgCount = 1;
176 dispIds[1] = DISPID_PROPERTYPUT;
177 vReturnPtr = NULL;
178 }
179
180 // Convert the wxVariants to VARIANTARGs
181 wxVector<wxOleVariantArg> oleArgs(noArgs);
182 for (i = 0; i < noArgs; i++)
183 {
184 // Again, reverse args
185 if (!wxConvertVariantToOle(INVOKEARG((noArgs-1) - i), oleArgs[i]))
186 return false;
187 }
188
189 dispparams.rgdispidNamedArgs = &dispIds[0] + 1;
190 dispparams.rgvarg = &oleArgs[0];
191 dispparams.cArgs = noArgs;
192 dispparams.cNamedArgs = namedArgCount;
193
194 EXCEPINFO excep;
195 wxZeroMemory(excep);
196
197 hr = ((IDispatch*)m_dispatchPtr)->Invoke(dispIds[0], IID_NULL, LOCALE_SYSTEM_DEFAULT,
198 (WORD)action, &dispparams, vReturnPtr, &excep, &uiArgErr);
199
200 if (FAILED(hr))
201 {
202 // display the exception information if appropriate:
203 ShowException(member, hr, &excep, uiArgErr);
204
205 // free exception structure information
206 SysFreeString(excep.bstrSource);
207 SysFreeString(excep.bstrDescription);
208 SysFreeString(excep.bstrHelpFile);
209
210 return false;
211 }
212 else
213 {
214 if (vReturnPtr)
215 {
216 // Convert result to wxVariant form
217 if (!wxConvertOleToVariant(vReturn, retValue))
218 return false;
219 // Mustn't release the dispatch pointer
220 if (vReturn.vt == VT_DISPATCH)
221 {
222 vReturn.pdispVal = NULL;
223 }
224 }
225 }
226 return true;
227}
228
229// Invoke a member function
230wxVariant wxAutomationObject::CallMethod(const wxString& member, int noArgs, wxVariant args[])
231{
232 wxVariant retVariant;
233 if (!Invoke(member, DISPATCH_METHOD, retVariant, noArgs, args))
234 {
235 retVariant.MakeNull();
236 }
237 return retVariant;
238}
239
240wxVariant wxAutomationObject::CallMethodArray(const wxString& member, int noArgs, const wxVariant **args)
241{
242 wxVariant retVariant;
243 if (!Invoke(member, DISPATCH_METHOD, retVariant, noArgs, NULL, args))
244 {
245 retVariant.MakeNull();
246 }
247 return retVariant;
248}
249
250wxVariant wxAutomationObject::CallMethod(const wxString& member,
251 const wxVariant& arg1, const wxVariant& arg2,
252 const wxVariant& arg3, const wxVariant& arg4,
253 const wxVariant& arg5, const wxVariant& arg6)
254{
255 const wxVariant** args = new const wxVariant*[6];
256 int i = 0;
257 if (!arg1.IsNull())
258 {
259 args[i] = & arg1;
260 i ++;
261 }
262 if (!arg2.IsNull())
263 {
264 args[i] = & arg2;
265 i ++;
266 }
267 if (!arg3.IsNull())
268 {
269 args[i] = & arg3;
270 i ++;
271 }
272 if (!arg4.IsNull())
273 {
274 args[i] = & arg4;
275 i ++;
276 }
277 if (!arg5.IsNull())
278 {
279 args[i] = & arg5;
280 i ++;
281 }
282 if (!arg6.IsNull())
283 {
284 args[i] = & arg6;
285 i ++;
286 }
287 wxVariant retVariant;
288 if (!Invoke(member, DISPATCH_METHOD, retVariant, i, NULL, args))
289 {
290 retVariant.MakeNull();
291 }
292 delete[] args;
293 return retVariant;
294}
295
296// Get/Set property
297wxVariant wxAutomationObject::GetPropertyArray(const wxString& property, int noArgs, const wxVariant **args) const
298{
299 wxVariant retVariant;
300 if (!Invoke(property, DISPATCH_PROPERTYGET, retVariant, noArgs, NULL, args))
301 {
302 retVariant.MakeNull();
303 }
304 return retVariant;
305}
306wxVariant wxAutomationObject::GetProperty(const wxString& property, int noArgs, wxVariant args[]) const
307{
308 wxVariant retVariant;
309 if (!Invoke(property, DISPATCH_PROPERTYGET, retVariant, noArgs, args))
310 {
311 retVariant.MakeNull();
312 }
313 return retVariant;
314}
315
316wxVariant wxAutomationObject::GetProperty(const wxString& property,
317 const wxVariant& arg1, const wxVariant& arg2,
318 const wxVariant& arg3, const wxVariant& arg4,
319 const wxVariant& arg5, const wxVariant& arg6)
320{
321 const wxVariant** args = new const wxVariant*[6];
322 int i = 0;
323 if (!arg1.IsNull())
324 {
325 args[i] = & arg1;
326 i ++;
327 }
328 if (!arg2.IsNull())
329 {
330 args[i] = & arg2;
331 i ++;
332 }
333 if (!arg3.IsNull())
334 {
335 args[i] = & arg3;
336 i ++;
337 }
338 if (!arg4.IsNull())
339 {
340 args[i] = & arg4;
341 i ++;
342 }
343 if (!arg5.IsNull())
344 {
345 args[i] = & arg5;
346 i ++;
347 }
348 if (!arg6.IsNull())
349 {
350 args[i] = & arg6;
351 i ++;
352 }
353 wxVariant retVariant;
354 if (!Invoke(property, DISPATCH_PROPERTYGET, retVariant, i, NULL, args))
355 {
356 retVariant.MakeNull();
357 }
358 delete[] args;
359 return retVariant;
360}
361
362bool wxAutomationObject::PutProperty(const wxString& property, int noArgs, wxVariant args[])
363{
364 wxVariant retVariant;
365 if (!Invoke(property, DISPATCH_PROPERTYPUT, retVariant, noArgs, args))
366 {
367 return false;
368 }
369 return true;
370}
371
372bool wxAutomationObject::PutPropertyArray(const wxString& property, int noArgs, const wxVariant **args)
373{
374 wxVariant retVariant;
375 if (!Invoke(property, DISPATCH_PROPERTYPUT, retVariant, noArgs, NULL, args))
376 {
377 return false;
378 }
379 return true;
380}
381
382bool wxAutomationObject::PutProperty(const wxString& property,
383 const wxVariant& arg1, const wxVariant& arg2,
384 const wxVariant& arg3, const wxVariant& arg4,
385 const wxVariant& arg5, const wxVariant& arg6)
386{
387 const wxVariant** args = new const wxVariant*[6];
388 int i = 0;
389 if (!arg1.IsNull())
390 {
391 args[i] = & arg1;
392 i ++;
393 }
394 if (!arg2.IsNull())
395 {
396 args[i] = & arg2;
397 i ++;
398 }
399 if (!arg3.IsNull())
400 {
401 args[i] = & arg3;
402 i ++;
403 }
404 if (!arg4.IsNull())
405 {
406 args[i] = & arg4;
407 i ++;
408 }
409 if (!arg5.IsNull())
410 {
411 args[i] = & arg5;
412 i ++;
413 }
414 if (!arg6.IsNull())
415 {
416 args[i] = & arg6;
417 i ++;
418 }
419 wxVariant retVariant;
420 bool ret = Invoke(property, DISPATCH_PROPERTYPUT, retVariant, i, NULL, args);
421 delete[] args;
422 return ret;
423}
424
425
426// Uses DISPATCH_PROPERTYGET
427// and returns a dispatch pointer. The calling code should call Release
428// on the pointer, though this could be implicit by constructing an wxAutomationObject
429// with it and letting the destructor call Release.
430WXIDISPATCH* wxAutomationObject::GetDispatchProperty(const wxString& property, int noArgs, wxVariant args[]) const
431{
432 wxVariant retVariant;
433 if (Invoke(property, DISPATCH_PROPERTYGET, retVariant, noArgs, args))
434 {
435 if (retVariant.GetType() == wxT("void*"))
436 {
437 return (WXIDISPATCH*) retVariant.GetVoidPtr();
438 }
439 }
440
441 return NULL;
442}
443
444// Uses DISPATCH_PROPERTYGET
445// and returns a dispatch pointer. The calling code should call Release
446// on the pointer, though this could be implicit by constructing an wxAutomationObject
447// with it and letting the destructor call Release.
448WXIDISPATCH* wxAutomationObject::GetDispatchProperty(const wxString& property, int noArgs, const wxVariant **args) const
449{
450 wxVariant retVariant;
451 if (Invoke(property, DISPATCH_PROPERTYGET, retVariant, noArgs, NULL, args))
452 {
453 if (retVariant.GetType() == wxT("void*"))
454 {
455 return (WXIDISPATCH*) retVariant.GetVoidPtr();
456 }
457 }
458
459 return NULL;
460}
461
462
463// A way of initialising another wxAutomationObject with a dispatch object
464bool wxAutomationObject::GetObject(wxAutomationObject& obj, const wxString& property, int noArgs, wxVariant args[]) const
465{
466 WXIDISPATCH* dispatch = GetDispatchProperty(property, noArgs, args);
467 if (dispatch)
468 {
469 obj.SetDispatchPtr(dispatch);
470 return true;
471 }
472 else
473 return false;
474}
475
476// A way of initialising another wxAutomationObject with a dispatch object
477bool wxAutomationObject::GetObject(wxAutomationObject& obj, const wxString& property, int noArgs, const wxVariant **args) const
478{
479 WXIDISPATCH* dispatch = GetDispatchProperty(property, noArgs, args);
480 if (dispatch)
481 {
482 obj.SetDispatchPtr(dispatch);
483 return true;
484 }
485 else
486 return false;
487}
488
489namespace
490{
491
492HRESULT wxCLSIDFromProgID(const wxString& progId, CLSID& clsId)
493{
494 HRESULT hr = CLSIDFromProgID(wxBasicString(progId), &clsId);
495 if ( FAILED(hr) )
496 {
497 wxLogSysError(hr, _("Failed to find CLSID of \"%s\""), progId);
498 }
499 return hr;
500}
501
502void *DoCreateInstance(const wxString& progId, const CLSID& clsId)
503{
504 // get the server IDispatch interface
505 //
506 // NB: using CLSCTX_INPROC_HANDLER results in failure when getting
507 // Automation interface for Microsoft Office applications so don't use
508 // CLSCTX_ALL which includes it
509 void *pDispatch = NULL;
510 HRESULT hr = CoCreateInstance(clsId, NULL, CLSCTX_SERVER,
511 IID_IDispatch, &pDispatch);
512 if (FAILED(hr))
513 {
514 wxLogSysError(hr, _("Failed to create an instance of \"%s\""), progId);
515 return NULL;
516 }
517
518 return pDispatch;
519}
520
521} // anonymous namespace
522
523// Get a dispatch pointer from the current object associated
524// with a ProgID
525bool wxAutomationObject::GetInstance(const wxString& progId, int flags) const
526{
527 if (m_dispatchPtr)
528 return false;
529
530 CLSID clsId;
531 HRESULT hr = wxCLSIDFromProgID(progId, clsId);
532 if (FAILED(hr))
533 return false;
534
535 IUnknown *pUnk = NULL;
536 hr = GetActiveObject(clsId, NULL, &pUnk);
537 if (FAILED(hr))
538 {
539 if ( flags & wxAutomationInstance_CreateIfNeeded )
540 {
541 const_cast<wxAutomationObject *>(this)->
542 m_dispatchPtr = DoCreateInstance(progId, clsId);
543 if ( m_dispatchPtr )
544 return true;
545 }
546 else
547 {
548 // Log an error except if we're supposed to fail silently when the
549 // error is that no current instance exists.
550 if ( hr != MK_E_UNAVAILABLE ||
551 !(flags & wxAutomationInstance_SilentIfNone) )
552 {
553 wxLogSysError(hr,
554 _("Cannot get an active instance of \"%s\""),
555 progId);
556 }
557 }
558
559 return false;
560 }
561
562 hr = pUnk->QueryInterface(IID_IDispatch, (LPVOID*) &m_dispatchPtr);
563 if (FAILED(hr))
564 {
565 wxLogSysError(hr,
566 _("Failed to get OLE automation interface for \"%s\""),
567 progId);
568 return false;
569 }
570
571 return true;
572}
573
574// Get a dispatch pointer from a new object associated
575// with the given ProgID
576bool wxAutomationObject::CreateInstance(const wxString& progId) const
577{
578 if (m_dispatchPtr)
579 return false;
580
581 CLSID clsId;
582 HRESULT hr = wxCLSIDFromProgID(progId, clsId);
583 if (FAILED(hr))
584 return false;
585
586 const_cast<wxAutomationObject *>(this)->
587 m_dispatchPtr = DoCreateInstance(progId, clsId);
588
589 return m_dispatchPtr != NULL;
590}
591
592static void
593ShowException(const wxString& member,
594 HRESULT hr,
595 EXCEPINFO *pexcep,
596 unsigned int uiArgErr)
597{
598 wxString message;
599 switch (GetScode(hr))
600 {
601 case DISP_E_UNKNOWNNAME:
602 message = _("Unknown name or named argument.");
603 break;
604
605 case DISP_E_BADPARAMCOUNT:
606 message = _("Incorrect number of arguments.");
607 break;
608
609 case DISP_E_EXCEPTION:
610 if ( pexcep )
611 {
612 if ( pexcep->bstrDescription )
613 message << pexcep->bstrDescription << wxS(" ");
614 message += wxString::Format(wxS("error code %u"), pexcep->wCode);
615 }
616 else
617 {
618 message = _("Unknown exception");
619 }
620 break;
621
622 case DISP_E_MEMBERNOTFOUND:
623 message = _("Method or property not found.");
624 break;
625
626 case DISP_E_OVERFLOW:
627 message = _("Overflow while coercing argument values.");
628 break;
629
630 case DISP_E_NONAMEDARGS:
631 message = _("Object implementation does not support named arguments.");
632 break;
633
634 case DISP_E_UNKNOWNLCID:
635 message = _("The locale ID is unknown.");
636 break;
637
638 case DISP_E_PARAMNOTOPTIONAL:
639 message = _("Missing a required parameter.");
640 break;
641
642 case DISP_E_PARAMNOTFOUND:
643 message.Printf(_("Argument %u not found."), uiArgErr);
644 break;
645
646 case DISP_E_TYPEMISMATCH:
647 message.Printf(_("Type mismatch in argument %u."), uiArgErr);
648 break;
649
650 case ERROR_FILE_NOT_FOUND:
651 message = _("The system cannot find the file specified.");
652 break;
653
654 case REGDB_E_CLASSNOTREG:
655 message = _("Class not registered.");
656 break;
657
658 default:
659 message.Printf(_("Unknown error %08x"), hr);
660 break;
661 }
662
663 wxLogError(_("OLE Automation error in %s: %s"), member, message);
664}
665
666#endif // wxUSE_OLE_AUTOMATION