1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
// ddeadv.cpp
//
// Mapping from DDE advise to/from OLE 2.0 advises
//
// Author:
// Jason Fuller jasonful 8-16-92
//
// Copyright (c) 1992 Microsoft Corporation
#include "ole2int.h"
#include "srvr.h"
#include "ddedebug.h"
ASSERTDATA
INTERNAL CDefClient::DoOle20Advise
(OLE_NOTIFICATION options,
CLIPFORMAT cf)
{
HRESULT hresult = NOERROR;
FORMATETC formatetc;
formatetc.cfFormat = cf;
formatetc.ptd = m_ptd;
formatetc.lindex = DEF_LINDEX;
formatetc.dwAspect = DVASPECT_CONTENT;
// only types 1.0 client wants
formatetc.tymed = TYMED_HGLOBAL | TYMED_MFPICT | TYMED_GDI;
intrDebugOut((DEB_ITRACE,
"%x _IN CDefClient::DoOle20Advise(options=%x,cf=%x)\n",
this,
options,
(ULONG)cf));
ChkC(this);
switch (options)
{
case OLE_CHANGED:
#ifdef UPDATE
case OLE_SAVED:
#endif
if (0 == m_dwConnectionDataObj)
{
Assert (m_lpdataObj);
RetErr (m_lpdataObj->DAdvise (&formatetc,0/* ADVF_PRIMEFIRST*/,
&m_AdviseSink,
&m_dwConnectionDataObj));
Assert (m_dwConnectionDataObj != 0);
}
// Fall through:
// Even for OLE_CHANGED do an Ole Advise so we get OnClose
// notifications for linked objects.
#ifndef UPDATE
case OLE_SAVED:
#endif
case OLE_RENAMED: // Link case
case OLE_CLOSED:
Assert (m_lpoleObj);
// Only do one OleObject::Advise even if 1.0 client asks
// for two advises for two different formats and two events,
// i.e., native and metafile, save and close.
if (m_lpoleObj && 0==m_dwConnectionOleObj)
{
Puts ("Calling OleObject::Advise\r\n");
Assert (m_dwConnectionOleObj == 0L);
hresult = m_lpoleObj->Advise (&m_AdviseSink, &m_dwConnectionOleObj);
if (hresult != NOERROR)
{
goto errRtn;
}
}
Assert (m_dwConnectionOleObj != 0);
break;
default:
Assert(0);
break;
}
errRtn:
intrDebugOut((DEB_ITRACE,
"%x _OUT CDefClient::DoOle20Advise hresult=%x\n",
this,hresult));
return NOERROR;
}
INTERNAL CDefClient::DoOle20UnAdviseAll
(void)
{
HRESULT hr;
intrDebugOut((DEB_ITRACE,
"%x _IN CDefClient::DoOle20UnAdviseAll\n",
this));
ChkC(this);
if (m_dwConnectionOleObj != 0L)
{
if (m_lpoleObj)
{
intrDebugOut((DEB_ITRACE,
"%x ::DoOle20UnAdviseAll unadvise OLE obj\n",
this));
Puts ("Unadvising ole obj\r\n");
hr = m_lpoleObj->Unadvise (m_dwConnectionOleObj);
intrAssert(hr == NOERROR);
m_dwConnectionOleObj = 0L;
}
}
if (m_dwConnectionDataObj != 0L)
{
if (m_lpdataObj)
{
intrDebugOut((DEB_ITRACE,
"%x ::DoOle20UnAdviseAll unadvise DATA obj\n",
this));
Puts ("Unadvising data obj\r\n");
hr = m_lpdataObj->DUnadvise (m_dwConnectionDataObj);
intrAssert(hr == NOERROR);
m_dwConnectionDataObj = 0L;
}
}
intrDebugOut((DEB_ITRACE,
"%x _OUT CDefClient::DoOle20UnAdviseAll\n",
this));
return NOERROR;
}
|
