1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski // MfcControlCtl.cpp : Implementation of the CMfcControlCtrl ActiveX Control class.
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski #include "stdafx.h"
25*b1cdbd2cSJim Jagielski #include "MfcControl.h"
26*b1cdbd2cSJim Jagielski #include "MfcControlCtl.h"
27*b1cdbd2cSJim Jagielski #include "MfcControlPpg.h"
28*b1cdbd2cSJim Jagielski
29*b1cdbd2cSJim Jagielski
30*b1cdbd2cSJim Jagielski #ifdef _DEBUG
31*b1cdbd2cSJim Jagielski #define new DEBUG_NEW
32*b1cdbd2cSJim Jagielski #undef THIS_FILE
33*b1cdbd2cSJim Jagielski static char THIS_FILE[] = __FILE__;
34*b1cdbd2cSJim Jagielski #endif
35*b1cdbd2cSJim Jagielski
36*b1cdbd2cSJim Jagielski
37*b1cdbd2cSJim Jagielski IMPLEMENT_DYNCREATE(CMfcControlCtrl, COleControl)
38*b1cdbd2cSJim Jagielski
39*b1cdbd2cSJim Jagielski
40*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
41*b1cdbd2cSJim Jagielski // Message map
42*b1cdbd2cSJim Jagielski
43*b1cdbd2cSJim Jagielski BEGIN_MESSAGE_MAP(CMfcControlCtrl, COleControl)
44*b1cdbd2cSJim Jagielski //{{AFX_MSG_MAP(CMfcControlCtrl)
45*b1cdbd2cSJim Jagielski // NOTE - ClassWizard will add and remove message map entries
46*b1cdbd2cSJim Jagielski // DO NOT EDIT what you see in these blocks of generated code !
47*b1cdbd2cSJim Jagielski //}}AFX_MSG_MAP
48*b1cdbd2cSJim Jagielski ON_OLEVERB(AFX_IDS_VERB_PROPERTIES, OnProperties)
49*b1cdbd2cSJim Jagielski END_MESSAGE_MAP()
50*b1cdbd2cSJim Jagielski
51*b1cdbd2cSJim Jagielski
52*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
53*b1cdbd2cSJim Jagielski // Dispatch map
54*b1cdbd2cSJim Jagielski
55*b1cdbd2cSJim Jagielski BEGIN_DISPATCH_MAP(CMfcControlCtrl, COleControl)
56*b1cdbd2cSJim Jagielski //{{AFX_DISPATCH_MAP(CMfcControlCtrl)
57*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "inShort", inShort, VT_I2, VTS_I2)
58*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "inLong", inLong, VT_I4, VTS_I4)
59*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "inString", inString, VT_BSTR, VTS_PBSTR)
60*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "inFloat", inFloat, VT_R4, VTS_R4)
61*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "inDouble", inDouble, VT_R8, VTS_R8)
62*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "inVariant", inVariant, VT_VARIANT, VTS_VARIANT)
63*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "inObject", inObject, VT_DISPATCH, VTS_DISPATCH)
64*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "outShort", outShort, VT_EMPTY, VTS_PI2)
65*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "outLong", outLong, VT_EMPTY, VTS_PI4)
66*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "outString", outString, VT_EMPTY, VTS_PBSTR)
67*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "outFloat", outFloat, VT_EMPTY, VTS_PR4)
68*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "outDouble", outDouble, VT_EMPTY, VTS_PR8)
69*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "outVariant", outVariant, VT_EMPTY, VTS_PVARIANT)
70*b1cdbd2cSJim Jagielski DISP_FUNCTION(CMfcControlCtrl, "outObject", outObject, VT_EMPTY, VTS_PDISPATCH)
71*b1cdbd2cSJim Jagielski //}}AFX_DISPATCH_MAP
72*b1cdbd2cSJim Jagielski END_DISPATCH_MAP()
73*b1cdbd2cSJim Jagielski
74*b1cdbd2cSJim Jagielski
75*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
76*b1cdbd2cSJim Jagielski // Event map
77*b1cdbd2cSJim Jagielski
78*b1cdbd2cSJim Jagielski BEGIN_EVENT_MAP(CMfcControlCtrl, COleControl)
79*b1cdbd2cSJim Jagielski //{{AFX_EVENT_MAP(CMfcControlCtrl)
80*b1cdbd2cSJim Jagielski // NOTE - ClassWizard will add and remove event map entries
81*b1cdbd2cSJim Jagielski // DO NOT EDIT what you see in these blocks of generated code !
82*b1cdbd2cSJim Jagielski //}}AFX_EVENT_MAP
83*b1cdbd2cSJim Jagielski END_EVENT_MAP()
84*b1cdbd2cSJim Jagielski
85*b1cdbd2cSJim Jagielski
86*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
87*b1cdbd2cSJim Jagielski // Property pages
88*b1cdbd2cSJim Jagielski
89*b1cdbd2cSJim Jagielski // TODO: Add more property pages as needed. Remember to increase the count!
90*b1cdbd2cSJim Jagielski BEGIN_PROPPAGEIDS(CMfcControlCtrl, 1)
91*b1cdbd2cSJim Jagielski PROPPAGEID(CMfcControlPropPage::guid)
92*b1cdbd2cSJim Jagielski END_PROPPAGEIDS(CMfcControlCtrl)
93*b1cdbd2cSJim Jagielski
94*b1cdbd2cSJim Jagielski
95*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
96*b1cdbd2cSJim Jagielski // Initialize class factory and guid
97*b1cdbd2cSJim Jagielski
98*b1cdbd2cSJim Jagielski IMPLEMENT_OLECREATE_EX(CMfcControlCtrl, "MFCCONTROL.MfcControlCtrl.1",
99*b1cdbd2cSJim Jagielski 0xac221fb6, 0xa0d8, 0x11d4, 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4)
100*b1cdbd2cSJim Jagielski
101*b1cdbd2cSJim Jagielski
102*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
103*b1cdbd2cSJim Jagielski // Type library ID and version
104*b1cdbd2cSJim Jagielski
105*b1cdbd2cSJim Jagielski IMPLEMENT_OLETYPELIB(CMfcControlCtrl, _tlid, _wVerMajor, _wVerMinor)
106*b1cdbd2cSJim Jagielski
107*b1cdbd2cSJim Jagielski
108*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
109*b1cdbd2cSJim Jagielski // Interface IDs
110*b1cdbd2cSJim Jagielski
111*b1cdbd2cSJim Jagielski const IID BASED_CODE IID_DMfcControl =
112*b1cdbd2cSJim Jagielski { 0xac221fb4, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } };
113*b1cdbd2cSJim Jagielski const IID BASED_CODE IID_DMfcControlEvents =
114*b1cdbd2cSJim Jagielski { 0xac221fb5, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } };
115*b1cdbd2cSJim Jagielski
116*b1cdbd2cSJim Jagielski
117*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
118*b1cdbd2cSJim Jagielski // Control type information
119*b1cdbd2cSJim Jagielski
120*b1cdbd2cSJim Jagielski static const DWORD BASED_CODE _dwMfcControlOleMisc =
121*b1cdbd2cSJim Jagielski OLEMISC_ACTIVATEWHENVISIBLE |
122*b1cdbd2cSJim Jagielski OLEMISC_SETCLIENTSITEFIRST |
123*b1cdbd2cSJim Jagielski OLEMISC_INSIDEOUT |
124*b1cdbd2cSJim Jagielski OLEMISC_CANTLINKINSIDE |
125*b1cdbd2cSJim Jagielski OLEMISC_RECOMPOSEONRESIZE;
126*b1cdbd2cSJim Jagielski
IMPLEMENT_OLECTLTYPE(CMfcControlCtrl,IDS_MFCCONTROL,_dwMfcControlOleMisc)127*b1cdbd2cSJim Jagielski IMPLEMENT_OLECTLTYPE(CMfcControlCtrl, IDS_MFCCONTROL, _dwMfcControlOleMisc)
128*b1cdbd2cSJim Jagielski
129*b1cdbd2cSJim Jagielski
130*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
131*b1cdbd2cSJim Jagielski // CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry -
132*b1cdbd2cSJim Jagielski // Adds or removes system registry entries for CMfcControlCtrl
133*b1cdbd2cSJim Jagielski
134*b1cdbd2cSJim Jagielski BOOL CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry(BOOL bRegister)
135*b1cdbd2cSJim Jagielski {
136*b1cdbd2cSJim Jagielski // TODO: Verify that your control follows apartment-model threading rules.
137*b1cdbd2cSJim Jagielski // Refer to MFC TechNote 64 for more information.
138*b1cdbd2cSJim Jagielski // If your control does not conform to the apartment-model rules, then
139*b1cdbd2cSJim Jagielski // you must modify the code below, changing the 6th parameter from
140*b1cdbd2cSJim Jagielski // afxRegApartmentThreading to 0.
141*b1cdbd2cSJim Jagielski
142*b1cdbd2cSJim Jagielski if (bRegister)
143*b1cdbd2cSJim Jagielski return AfxOleRegisterControlClass(
144*b1cdbd2cSJim Jagielski AfxGetInstanceHandle(),
145*b1cdbd2cSJim Jagielski m_clsid,
146*b1cdbd2cSJim Jagielski m_lpszProgID,
147*b1cdbd2cSJim Jagielski IDS_MFCCONTROL,
148*b1cdbd2cSJim Jagielski IDB_MFCCONTROL,
149*b1cdbd2cSJim Jagielski afxRegApartmentThreading,
150*b1cdbd2cSJim Jagielski _dwMfcControlOleMisc,
151*b1cdbd2cSJim Jagielski _tlid,
152*b1cdbd2cSJim Jagielski _wVerMajor,
153*b1cdbd2cSJim Jagielski _wVerMinor);
154*b1cdbd2cSJim Jagielski else
155*b1cdbd2cSJim Jagielski return AfxOleUnregisterClass(m_clsid, m_lpszProgID);
156*b1cdbd2cSJim Jagielski }
157*b1cdbd2cSJim Jagielski
158*b1cdbd2cSJim Jagielski
159*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
160*b1cdbd2cSJim Jagielski // CMfcControlCtrl::CMfcControlCtrl - Constructor
161*b1cdbd2cSJim Jagielski
CMfcControlCtrl()162*b1cdbd2cSJim Jagielski CMfcControlCtrl::CMfcControlCtrl()
163*b1cdbd2cSJim Jagielski {
164*b1cdbd2cSJim Jagielski InitializeIIDs(&IID_DMfcControl, &IID_DMfcControlEvents);
165*b1cdbd2cSJim Jagielski
166*b1cdbd2cSJim Jagielski // TODO: Initialize your control's instance data here.
167*b1cdbd2cSJim Jagielski }
168*b1cdbd2cSJim Jagielski
169*b1cdbd2cSJim Jagielski
170*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
171*b1cdbd2cSJim Jagielski // CMfcControlCtrl::~CMfcControlCtrl - Destructor
172*b1cdbd2cSJim Jagielski
~CMfcControlCtrl()173*b1cdbd2cSJim Jagielski CMfcControlCtrl::~CMfcControlCtrl()
174*b1cdbd2cSJim Jagielski {
175*b1cdbd2cSJim Jagielski // TODO: Cleanup your control's instance data here.
176*b1cdbd2cSJim Jagielski }
177*b1cdbd2cSJim Jagielski
178*b1cdbd2cSJim Jagielski
179*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
180*b1cdbd2cSJim Jagielski // CMfcControlCtrl::OnDraw - Drawing function
181*b1cdbd2cSJim Jagielski
OnDraw(CDC * pdc,const CRect & rcBounds,const CRect & rcInvalid)182*b1cdbd2cSJim Jagielski void CMfcControlCtrl::OnDraw(
183*b1cdbd2cSJim Jagielski CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid)
184*b1cdbd2cSJim Jagielski {
185*b1cdbd2cSJim Jagielski // TODO: Replace the following code with your own drawing code.
186*b1cdbd2cSJim Jagielski pdc->FillRect(rcBounds, CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH)));
187*b1cdbd2cSJim Jagielski pdc->Ellipse(rcBounds);
188*b1cdbd2cSJim Jagielski }
189*b1cdbd2cSJim Jagielski
190*b1cdbd2cSJim Jagielski
191*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
192*b1cdbd2cSJim Jagielski // CMfcControlCtrl::DoPropExchange - Persistence support
193*b1cdbd2cSJim Jagielski
DoPropExchange(CPropExchange * pPX)194*b1cdbd2cSJim Jagielski void CMfcControlCtrl::DoPropExchange(CPropExchange* pPX)
195*b1cdbd2cSJim Jagielski {
196*b1cdbd2cSJim Jagielski ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));
197*b1cdbd2cSJim Jagielski COleControl::DoPropExchange(pPX);
198*b1cdbd2cSJim Jagielski
199*b1cdbd2cSJim Jagielski // TODO: Call PX_ functions for each persistent custom property.
200*b1cdbd2cSJim Jagielski
201*b1cdbd2cSJim Jagielski }
202*b1cdbd2cSJim Jagielski
203*b1cdbd2cSJim Jagielski
204*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
205*b1cdbd2cSJim Jagielski // CMfcControlCtrl::OnResetState - Reset control to default state
206*b1cdbd2cSJim Jagielski
OnResetState()207*b1cdbd2cSJim Jagielski void CMfcControlCtrl::OnResetState()
208*b1cdbd2cSJim Jagielski {
209*b1cdbd2cSJim Jagielski COleControl::OnResetState(); // Resets defaults found in DoPropExchange
210*b1cdbd2cSJim Jagielski
211*b1cdbd2cSJim Jagielski // TODO: Reset any other control state here.
212*b1cdbd2cSJim Jagielski }
213*b1cdbd2cSJim Jagielski
214*b1cdbd2cSJim Jagielski
215*b1cdbd2cSJim Jagielski /////////////////////////////////////////////////////////////////////////////
216*b1cdbd2cSJim Jagielski // CMfcControlCtrl message handlers
217*b1cdbd2cSJim Jagielski
218*b1cdbd2cSJim Jagielski
inShort(short val)219*b1cdbd2cSJim Jagielski short CMfcControlCtrl::inShort(short val)
220*b1cdbd2cSJim Jagielski {
221*b1cdbd2cSJim Jagielski char buf[256];
222*b1cdbd2cSJim Jagielski sprintf( buf, "inByte: value= %d", val);
223*b1cdbd2cSJim Jagielski ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
224*b1cdbd2cSJim Jagielski return val+1;
225*b1cdbd2cSJim Jagielski }
226*b1cdbd2cSJim Jagielski
inLong(long val)227*b1cdbd2cSJim Jagielski long CMfcControlCtrl::inLong(long val)
228*b1cdbd2cSJim Jagielski {
229*b1cdbd2cSJim Jagielski char buf[256];
230*b1cdbd2cSJim Jagielski sprintf( buf, "inLong: value= %d", val);
231*b1cdbd2cSJim Jagielski ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
232*b1cdbd2cSJim Jagielski return val+1;
233*b1cdbd2cSJim Jagielski }
234*b1cdbd2cSJim Jagielski
inString(BSTR * val)235*b1cdbd2cSJim Jagielski BSTR CMfcControlCtrl::inString(BSTR* val)
236*b1cdbd2cSJim Jagielski {
237*b1cdbd2cSJim Jagielski CString strResult;
238*b1cdbd2cSJim Jagielski strResult= *val;
239*b1cdbd2cSJim Jagielski char buf[256];
240*b1cdbd2cSJim Jagielski sprintf( buf, "inString: value= %S", *val);
241*b1cdbd2cSJim Jagielski ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
242*b1cdbd2cSJim Jagielski strResult += L" an appended string";
243*b1cdbd2cSJim Jagielski return strResult.AllocSysString();
244*b1cdbd2cSJim Jagielski }
245*b1cdbd2cSJim Jagielski
inFloat(float val)246*b1cdbd2cSJim Jagielski float CMfcControlCtrl::inFloat(float val)
247*b1cdbd2cSJim Jagielski {
248*b1cdbd2cSJim Jagielski char buf[256];
249*b1cdbd2cSJim Jagielski sprintf( buf, "inFloat: value= %f", val);
250*b1cdbd2cSJim Jagielski ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
251*b1cdbd2cSJim Jagielski return val+1;
252*b1cdbd2cSJim Jagielski }
253*b1cdbd2cSJim Jagielski
inDouble(double val)254*b1cdbd2cSJim Jagielski double CMfcControlCtrl::inDouble(double val)
255*b1cdbd2cSJim Jagielski {
256*b1cdbd2cSJim Jagielski char buf[256];
257*b1cdbd2cSJim Jagielski sprintf( buf, "inDouble: value= %g", val);
258*b1cdbd2cSJim Jagielski ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
259*b1cdbd2cSJim Jagielski return val+1;
260*b1cdbd2cSJim Jagielski }
261*b1cdbd2cSJim Jagielski
inVariant(const VARIANT FAR & val)262*b1cdbd2cSJim Jagielski VARIANT CMfcControlCtrl::inVariant(const VARIANT FAR& val)
263*b1cdbd2cSJim Jagielski {
264*b1cdbd2cSJim Jagielski VARIANT vaResult;
265*b1cdbd2cSJim Jagielski VariantInit(&vaResult);
266*b1cdbd2cSJim Jagielski VariantCopyInd( &vaResult, const_cast<VARIANT*>(&val));
267*b1cdbd2cSJim Jagielski if( vaResult.vt == VT_BSTR)
268*b1cdbd2cSJim Jagielski {
269*b1cdbd2cSJim Jagielski char buf[256];
270*b1cdbd2cSJim Jagielski sprintf( buf, "inVariant: value= %S", vaResult.bstrVal);
271*b1cdbd2cSJim Jagielski ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
272*b1cdbd2cSJim Jagielski
273*b1cdbd2cSJim Jagielski }
274*b1cdbd2cSJim Jagielski return _variant_t( L" a string from CMfcControlCtrl::inVariant");
275*b1cdbd2cSJim Jagielski }
276*b1cdbd2cSJim Jagielski
inObject(LPDISPATCH val)277*b1cdbd2cSJim Jagielski LPDISPATCH CMfcControlCtrl::inObject(LPDISPATCH val)
278*b1cdbd2cSJim Jagielski {
279*b1cdbd2cSJim Jagielski char buf[256];
280*b1cdbd2cSJim Jagielski _bstr_t bstr;
281*b1cdbd2cSJim Jagielski HRESULT hr= S_OK;
282*b1cdbd2cSJim Jagielski COleVariant var;
283*b1cdbd2cSJim Jagielski DISPID id;
284*b1cdbd2cSJim Jagielski OLECHAR* name=L"prpString";
285*b1cdbd2cSJim Jagielski if( SUCCEEDED(hr= val->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id)))
286*b1cdbd2cSJim Jagielski {
287*b1cdbd2cSJim Jagielski DISPPARAMS params={0,0,0,0};
288*b1cdbd2cSJim Jagielski hr= val->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, ¶ms, &var,0,0);
289*b1cdbd2cSJim Jagielski
290*b1cdbd2cSJim Jagielski }
291*b1cdbd2cSJim Jagielski
292*b1cdbd2cSJim Jagielski if( var.vt== VT_BSTR)
293*b1cdbd2cSJim Jagielski bstr= var.bstrVal;
294*b1cdbd2cSJim Jagielski sprintf( buf, "inObject: value= %S", (wchar_t*)bstr);
295*b1cdbd2cSJim Jagielski ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
296*b1cdbd2cSJim Jagielski
297*b1cdbd2cSJim Jagielski return NULL;
298*b1cdbd2cSJim Jagielski }
299*b1cdbd2cSJim Jagielski
300*b1cdbd2cSJim Jagielski
outShort(short * val)301*b1cdbd2cSJim Jagielski void CMfcControlCtrl::outShort(short* val)
302*b1cdbd2cSJim Jagielski {
303*b1cdbd2cSJim Jagielski *val= 123;
304*b1cdbd2cSJim Jagielski }
305*b1cdbd2cSJim Jagielski
outLong(long * val)306*b1cdbd2cSJim Jagielski void CMfcControlCtrl::outLong(long* val)
307*b1cdbd2cSJim Jagielski {
308*b1cdbd2cSJim Jagielski *val= 1234;
309*b1cdbd2cSJim Jagielski }
310*b1cdbd2cSJim Jagielski
outString(BSTR FAR * val)311*b1cdbd2cSJim Jagielski void CMfcControlCtrl::outString(BSTR FAR* val)
312*b1cdbd2cSJim Jagielski {
313*b1cdbd2cSJim Jagielski *val= SysAllocString(L"A string from CMfcControlCtrl::outString ");
314*b1cdbd2cSJim Jagielski }
315*b1cdbd2cSJim Jagielski
outFloat(float * val)316*b1cdbd2cSJim Jagielski void CMfcControlCtrl::outFloat(float* val)
317*b1cdbd2cSJim Jagielski {
318*b1cdbd2cSJim Jagielski *val= 3.14f;
319*b1cdbd2cSJim Jagielski }
320*b1cdbd2cSJim Jagielski
outDouble(double * val)321*b1cdbd2cSJim Jagielski void CMfcControlCtrl::outDouble(double* val)
322*b1cdbd2cSJim Jagielski {
323*b1cdbd2cSJim Jagielski *val= 3.145;
324*b1cdbd2cSJim Jagielski }
325*b1cdbd2cSJim Jagielski
outVariant(VARIANT FAR * val)326*b1cdbd2cSJim Jagielski void CMfcControlCtrl::outVariant(VARIANT FAR* val)
327*b1cdbd2cSJim Jagielski {
328*b1cdbd2cSJim Jagielski VariantInit( val);
329*b1cdbd2cSJim Jagielski val->vt= VT_BSTR;
330*b1cdbd2cSJim Jagielski val->bstrVal= SysAllocString( L"a string in a VARIANT");
331*b1cdbd2cSJim Jagielski }
332*b1cdbd2cSJim Jagielski
outObject(LPDISPATCH FAR * val)333*b1cdbd2cSJim Jagielski void CMfcControlCtrl::outObject(LPDISPATCH FAR* val)
334*b1cdbd2cSJim Jagielski {
335*b1cdbd2cSJim Jagielski //{BFE10EBE-8584-11D4-005004526AB4}
336*b1cdbd2cSJim Jagielski HRESULT hr= S_OK;
337*b1cdbd2cSJim Jagielski CLSID clsTestControl;
338*b1cdbd2cSJim Jagielski hr= CLSIDFromProgID( L"AxTestComponents.Basic", &clsTestControl);
339*b1cdbd2cSJim Jagielski
340*b1cdbd2cSJim Jagielski IDispatch* pDisp= NULL;
341*b1cdbd2cSJim Jagielski hr= CoCreateInstance( clsTestControl, NULL, CLSCTX_ALL, __uuidof(IDispatch), (void**)&pDisp);
342*b1cdbd2cSJim Jagielski
343*b1cdbd2cSJim Jagielski if( SUCCEEDED( hr) && val)
344*b1cdbd2cSJim Jagielski {
345*b1cdbd2cSJim Jagielski COleVariant var;
346*b1cdbd2cSJim Jagielski DISPID id;
347*b1cdbd2cSJim Jagielski OLECHAR* name=L"prpString";
348*b1cdbd2cSJim Jagielski if( SUCCEEDED(hr= pDisp->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id)))
349*b1cdbd2cSJim Jagielski {
350*b1cdbd2cSJim Jagielski COleVariant vaParam1(_T("this is property prpString of AxTestComponents.Basic"));
351*b1cdbd2cSJim Jagielski DISPID dispidPut= DISPID_PROPERTYPUT;
352*b1cdbd2cSJim Jagielski DISPPARAMS params;
353*b1cdbd2cSJim Jagielski params.cArgs= 1;
354*b1cdbd2cSJim Jagielski params.cNamedArgs= 1;
355*b1cdbd2cSJim Jagielski params.rgdispidNamedArgs= &dispidPut;
356*b1cdbd2cSJim Jagielski params.rgvarg= &vaParam1;
357*b1cdbd2cSJim Jagielski
358*b1cdbd2cSJim Jagielski hr= pDisp->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT, ¶ms, &var,0,0);
359*b1cdbd2cSJim Jagielski *val= pDisp;
360*b1cdbd2cSJim Jagielski }
361*b1cdbd2cSJim Jagielski
362*b1cdbd2cSJim Jagielski }
363*b1cdbd2cSJim Jagielski
364*b1cdbd2cSJim Jagielski }
365*b1cdbd2cSJim Jagielski // VT_I1
366