CydandClaude Fable 5
63312e07f9
- BORLAND/: Borland C++ 4.52 (chosen over 4.5 by byte-match: CODE/RP/CW32.LIB
is identical to 4.52's install lib). BCC32/TLINK32/TLIB/MAKE run natively on
Win11; CODE/BT/OPT.MAK is the shipped BTL4OPT.EXE's exact flag recipe
(extender = Borland PowerPack DPMI32, not Phar Lap TNT).
- restoration/source410/: the literal 1995-form reconstruction of the missing
BT game source (never mixed into CODE/). Round 1-3 state:
* 6 of 10 surviving original TUs COMPILE CLEAN under the period toolchain
(BTMSSN, BTCNSL, BTSCNRL, BTTEAM, BTL4MODE, BTL4ARND) - first builds
since 1996.
* BT_L4/BTL4APP.CPP pilot reconstruction: 12/12 functions, Fail() lands on
its binary-recorded line 400 exactly.
* BT/BTCNSL.HPP: console wire IDs recovered from the binary's ctors
(Killed=9, Damaged=10, ScoreUpdate=13, DeathWithoutHonor=15 [T1];
TeamScore=12 flagged [T4]).
* MUNGA/: 8 engine-header backfills back-dated from the BT412 WinTesla tree
(VDATA numbering decomp-verified; AUDREND's OpenAL-era virtual removed -
the period compiler is the drift detector).
* Tooling: backdate.py (WinTesla->1995 header transform), compile410.sh
(per-TU verification sweep under authentic OPT.MAK flags).
* README: corrected roadmap - MECH.HPP is the capstone grown with the mech
TU reconstructions; BTREG.CPP green = the header-family milestone.
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
779 lines
19 KiB
C++
779 lines
19 KiB
C++
//
|
|
//**************************************************************************
|
|
//
|
|
// BOleIPS.cpp -- Implements the Bolero half of the OLE2 in-process
|
|
// server object.
|
|
//
|
|
// BOleIps objects impersonate the client application
|
|
// from the point of view of the Bolero customer who's
|
|
// writing a server object (IPart)
|
|
//
|
|
// Copyright (c) 1993,94 by Borland International, Inc. All rights reserved
|
|
//
|
|
//**************************************************************************
|
|
|
|
#include "BOleIPS.h"
|
|
#include "BOleCMan.h"
|
|
|
|
|
|
//**************************************************************************
|
|
//
|
|
// BOleInProcHandler implementation
|
|
//
|
|
//**************************************************************************
|
|
|
|
BOleInProcHandler::BOleInProcHandler(BOleClassManager *pFact,
|
|
IBUnknownMain * pOuter, BOleService *pSvc ) : BOleComponent(pFact, pOuter)
|
|
{
|
|
pService = pSvc;
|
|
pDefHandler = NULL;
|
|
pDefIPAO = NULL;
|
|
pDefSite = NULL;
|
|
pAdviseView = NULL;
|
|
dwAdviseFlags = 0L;
|
|
dwAdviseAspects = 0L;
|
|
}
|
|
|
|
BOleInProcHandler::~BOleInProcHandler ()
|
|
{
|
|
if (pDefHandler)
|
|
pDefHandler->Release();
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::QueryInterfaceMain(REFIID iid, LPVOID FAR *ppv)
|
|
{
|
|
HRESULT hr = ResultFromScode(E_NOINTERFACE);
|
|
*ppv = NULL;
|
|
|
|
// interfaces
|
|
if (SUCCEEDED(hr = IViewObject2_QueryInterface(this, iid, ppv))) {
|
|
}
|
|
else if (SUCCEEDED(hr = IOleInPlaceActiveObject_QueryInterface(this, iid, ppv))) {
|
|
}
|
|
else if (SUCCEEDED(hr = IBSite_QueryInterface(this, iid, ppv))) {
|
|
}
|
|
// base classes
|
|
else if (SUCCEEDED(hr = BOleComponent::QueryInterfaceMain(iid, ppv))) {
|
|
}
|
|
// helpers
|
|
else if (pDefHandler && SUCCEEDED(hr = pDefHandler->QueryInterface(iid, ppv))) {
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
|
|
//**************************************************************************
|
|
//
|
|
// IViewObject implementation
|
|
//
|
|
//**************************************************************************
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::Draw (DWORD dwDrawAspect, LONG lindex,
|
|
void FAR* pvAspect, DVTARGETDEVICE FAR * ptd,
|
|
HDC hicTargetDev,
|
|
HDC hdcDraw,
|
|
LPCRECTL lprcBounds,
|
|
LPCRECTL lprcWBounds,
|
|
BOOL(CALLBACK * pfnContinue)(DWORD),
|
|
DWORD dwContinue)
|
|
{
|
|
HRESULT hr = ResultFromScode(VIEW_E_DRAW);
|
|
// Let provider Draw
|
|
// unless its iconic which the handler does for us
|
|
//
|
|
if (dwDrawAspect != DVASPECT_ICON) {
|
|
if (SUCCEEDED(pProvider->Draw(hdcDraw, lprcBounds,
|
|
// lprcWBounds is NULL unless this is a metafile
|
|
//
|
|
lprcWBounds ? lprcWBounds : lprcBounds,
|
|
(BOleAspect) dwDrawAspect))) {
|
|
hr = NOERROR;
|
|
}
|
|
}
|
|
|
|
// If this failed let the default handler render the Metafile
|
|
//
|
|
if (!SUCCEEDED(hr)) {
|
|
IViewObject *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject, &(LPVOID)pVO))) {
|
|
hr = pVO->Draw(dwDrawAspect, lindex, pvAspect, ptd, hicTargetDev, hdcDraw, lprcBounds, lprcWBounds, pfnContinue, dwContinue);
|
|
pVO->Release();
|
|
}
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::GetColorSet (
|
|
DWORD dwDrawAspect,
|
|
LONG lindex,
|
|
void FAR* pvAspect,
|
|
DVTARGETDEVICE FAR * ptd,
|
|
HDC hicTargetDev,
|
|
LPLOGPALETTE FAR* ppColorSet)
|
|
{
|
|
// what color pallete will the object use when rendering
|
|
return pPart->GetPalette (ppColorSet);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::Freeze (
|
|
DWORD dwDrawAspect,
|
|
LONG lindex,
|
|
void FAR* pvAspect,
|
|
DWORD FAR* pdwFreeze)
|
|
{
|
|
HRESULT hr;
|
|
IViewObject *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject, &(LPVOID)pVO))) {
|
|
hr = pVO->Freeze(dwDrawAspect, lindex, pvAspect, pdwFreeze);
|
|
pVO->Release();
|
|
return hr;
|
|
}
|
|
// the object shouldn't change the rendering
|
|
return ResultFromScode (E_FAIL);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::Unfreeze (DWORD dwFreeze)
|
|
{
|
|
HRESULT hr;
|
|
IViewObject *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject, &(LPVOID)pVO))) {
|
|
hr = pVO->Unfreeze(dwFreeze);
|
|
pVO->Release();
|
|
return hr;
|
|
}
|
|
// ok it can change again
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::SetAdvise (DWORD aspects, DWORD advf, LPADVISESINK pAdvSink)
|
|
{
|
|
dwAdviseAspects = aspects;
|
|
dwAdviseFlags = advf;
|
|
if (pAdviseView)
|
|
pAdviseView->Release();
|
|
pAdviseView = pAdvSink;
|
|
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
|
|
if (advf | ADVF_PRIMEFIRST)
|
|
// Cause advises now
|
|
//
|
|
Invalidate(BOLE_INVAL_DATA | BOLE_INVAL_VIEW);
|
|
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::GetAdvise (DWORD FAR* pAspects,
|
|
DWORD FAR* pAdvf, LPADVISESINK FAR* ppAdvSink)
|
|
{
|
|
pAdviseView->AddRef();
|
|
|
|
*ppAdvSink = pAdviseView;
|
|
*pAspects = dwAdviseAspects;
|
|
*pAdvf = dwAdviseFlags;
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::GetExtent(DWORD dwDrawAspect,
|
|
LONG lindex, DVTARGETDEVICE FAR *ptd, LPSIZEL lpsizel)
|
|
{
|
|
if (dwDrawAspect != DVASPECT_CONTENT)
|
|
return ResultFromScode (E_FAIL);
|
|
|
|
if (!lpsizel)
|
|
return ResultFromScode (E_INVALIDARG);
|
|
|
|
SIZE s;
|
|
HRESULT hr = pProvider->GetPartSize (&s);
|
|
|
|
lpsizel->cx = MAP_PIX_TO_LOGHIM (s.cx, BOleService::pixPerIn.x);
|
|
lpsizel->cy = MAP_PIX_TO_LOGHIM (s.cy, BOleService::pixPerIn.y);
|
|
|
|
return hr;
|
|
}
|
|
|
|
//**************************************************************************
|
|
//
|
|
// IBSite methods (override this interface on aggregated BOleIPSServer
|
|
// to implement Invalidate).
|
|
//
|
|
//**************************************************************************
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::Init(PIBDataProvider pDP,
|
|
PIBPart pP, LPCOLESTR szProgId, BOOL fHatchWnd)
|
|
{
|
|
HRESULT hr;
|
|
// Initialize back pointers
|
|
//
|
|
pProvider = pDP;
|
|
pPart = pP;
|
|
|
|
CLSID cid;
|
|
if (SUCCEEDED(hr = CLSIDFromProgID(szProgId, &cid))) {
|
|
|
|
// create the default handler, which will launch the exe server
|
|
//
|
|
OleCreateEmbeddingHelper(cid, AsPIUnknown(pObjOuter),
|
|
EMBDHLP_INPROC_HANDLER | EMBDHLP_DELAYCREATE, NULL, IID_IUnknown,
|
|
&(LPVOID)pDefHandler);
|
|
|
|
// initialize default IPS
|
|
//
|
|
hr = pDefHandler->QueryInterface(IID_IBSite, &(LPVOID)pDefSite);
|
|
if (SUCCEEDED(hr)) {
|
|
pDefSite->Release(); // prevent aggregation deadlock
|
|
//
|
|
hr = pDefSite->Init(pDP, pP, szProgId, fHatchWnd);
|
|
}
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::SiteShow(BOOL b)
|
|
{
|
|
return pDefSite->SiteShow(b);
|
|
}
|
|
|
|
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::DiscardUndo()
|
|
{
|
|
return pDefSite->DiscardUndo();
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::GetSiteRect(LPRECT r1, LPRECT r2)
|
|
{
|
|
return pDefSite->GetSiteRect(r1,r2);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::SetSiteRect(LPCRECT r)
|
|
{
|
|
return pDefSite->SetSiteRect(r);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::SetSiteExtent(LPCSIZE s)
|
|
{
|
|
return pDefSite->SetSiteExtent(s);
|
|
}
|
|
|
|
void _IFUNC BOleInProcHandler::OnSetFocus(BOOL b)
|
|
{
|
|
pDefSite->OnSetFocus(b);
|
|
}
|
|
|
|
void _IFUNC BOleInProcHandler::Disconnect ()
|
|
{
|
|
pDefSite->Disconnect ();
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::GetZoom( BOleScaleFactor *pScale)
|
|
{
|
|
return pDefSite->GetZoom(pScale);
|
|
}
|
|
|
|
void _IFUNC BOleInProcHandler::Invalidate( BOleInvalidate b)
|
|
{
|
|
if ((b & BOLE_INVAL_VIEW) && pAdviseView) {
|
|
pAdviseView->OnViewChange(dwAdviseAspects, -1);
|
|
if (dwAdviseFlags == ADVF_ONLYONCE) {
|
|
pAdviseView->Release();
|
|
pAdviseView = NULL;
|
|
dwAdviseAspects = 0L;
|
|
dwAdviseFlags = 0L;
|
|
//
|
|
}
|
|
}
|
|
if (b) // VIEW or DATA or PERSIST remains invalid
|
|
pDefSite->Invalidate(b);
|
|
}
|
|
|
|
//**************************************************************************
|
|
//
|
|
// IOleInPlaceActiveObject
|
|
//
|
|
// This interface is overridden to pre-process translator and other messages
|
|
// from the container's message loop.
|
|
//
|
|
//**************************************************************************
|
|
|
|
IOleInPlaceActiveObject * BOleInProcHandler::DefaultIPAO()
|
|
{
|
|
if (!pDefIPAO) {
|
|
// Initialize pointer to default in place active object implementation
|
|
//
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IOleInPlaceActiveObject,
|
|
&(LPVOID) pDefIPAO))) {
|
|
pDefIPAO->Release(); // prevent aggregation deadlock
|
|
}
|
|
}
|
|
return pDefIPAO;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::GetWindow(HWND FAR *phwnd)
|
|
{
|
|
return DefaultIPAO()->GetWindow (phwnd);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::ContextSensitiveHelp(BOOL fEnterMode)
|
|
{
|
|
return DefaultIPAO()->ContextSensitiveHelp (fEnterMode);
|
|
}
|
|
|
|
// Allow DLL Server to translate accelerators
|
|
//
|
|
HRESULT _IFUNC BOleInProcHandler::TranslateAccelerator (LPMSG lpmsg)
|
|
{
|
|
return pService->GetApplication()->Accelerator(lpmsg);
|
|
//
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::OnFrameWindowActivate (BOOL fActivate)
|
|
{
|
|
return DefaultIPAO()->OnFrameWindowActivate (fActivate);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::OnDocWindowActivate (BOOL fActivate)
|
|
{
|
|
return DefaultIPAO()->OnDocWindowActivate (fActivate);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::ResizeBorder (LPCRECT lprectBorder,
|
|
LPOLEINPLACEUIWINDOW lpUIWindow, BOOL fFrameWindow)
|
|
{
|
|
return DefaultIPAO()->ResizeBorder (lprectBorder, lpUIWindow, fFrameWindow);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcHandler::EnableModeless (BOOL fEnable)
|
|
{
|
|
return DefaultIPAO()->EnableModeless (fEnable);
|
|
}
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
//
|
|
// BOleInProcServer implementation
|
|
//
|
|
//**************************************************************************
|
|
|
|
BOleInProcServer::BOleInProcServer(BOleClassManager *pFact,
|
|
IBUnknownMain * pOuter, BOleService *pSvc ) : BOleSite(pFact, pOuter, pSvc)
|
|
{
|
|
pService = pSvc;
|
|
pDefHandler = NULL;
|
|
pAdviseView = NULL;
|
|
dwAdviseFlags = 0L;
|
|
dwAdviseAspects = 0L;
|
|
exCon = 0L;
|
|
fRunningMode = FALSE;
|
|
}
|
|
|
|
BOleInProcServer::~BOleInProcServer ()
|
|
{
|
|
if (pDefHandler)
|
|
pDefHandler->Release();
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::QueryInterfaceMain(REFIID iid, LPVOID FAR *ppv)
|
|
{
|
|
HRESULT hr = ResultFromScode(E_NOINTERFACE);
|
|
*ppv = NULL;
|
|
|
|
// interfaces
|
|
if (SUCCEEDED(hr = IViewObject2_QueryInterface(this, iid, ppv))) {
|
|
}
|
|
else if (SUCCEEDED(hr = IRunnableObject_QueryInterface(this, iid, ppv))) {
|
|
}
|
|
else if (SUCCEEDED(hr = IExternalConnection_QueryInterface(this, iid, ppv))) {
|
|
}
|
|
// base classes
|
|
else if (SUCCEEDED(hr = BOleSite::QueryInterfaceMain(iid, ppv))) {
|
|
}
|
|
// helpers
|
|
else if (pDefHandler && SUCCEEDED(hr = pDefHandler->QueryInterface(iid, ppv))) {
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
|
|
//**************************************************************************
|
|
//
|
|
// IViewObject implementation
|
|
//
|
|
//**************************************************************************
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Draw (DWORD dwDrawAspect, LONG lindex,
|
|
void FAR* pvAspect, DVTARGETDEVICE FAR * ptd,
|
|
HDC hicTargetDev,
|
|
HDC hdcDraw,
|
|
LPCRECTL lprcBounds,
|
|
LPCRECTL lprcWBounds,
|
|
BOOL(CALLBACK * pfnContinue)(DWORD),
|
|
DWORD dwContinue)
|
|
{
|
|
HRESULT hr = ResultFromScode(VIEW_E_DRAW);
|
|
// Let provider Draw unless its iconic which the handler does for us
|
|
//
|
|
if (dwDrawAspect == DVASPECT_CONTENT) {
|
|
if (SUCCEEDED(pProvider->Draw(hdcDraw, lprcBounds,
|
|
// lprcWBounds is NULL unless this is a metafile
|
|
//
|
|
lprcWBounds ? lprcWBounds : lprcBounds,
|
|
(BOleAspect) dwDrawAspect))) {
|
|
hr = NOERROR;
|
|
}
|
|
}
|
|
|
|
// If this failed let the default handler render the Metafile
|
|
//
|
|
if (!SUCCEEDED(hr)) {
|
|
IViewObject *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject, &(LPVOID)pVO))) {
|
|
hr = pVO->Draw(dwDrawAspect, lindex, pvAspect, ptd, hicTargetDev,
|
|
hdcDraw, lprcBounds, lprcWBounds, pfnContinue,
|
|
dwContinue);
|
|
pVO->Release();
|
|
}
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::GetColorSet (
|
|
DWORD dwDrawAspect,
|
|
LONG lindex,
|
|
void FAR* pvAspect,
|
|
DVTARGETDEVICE FAR * ptd,
|
|
HDC hicTargetDev,
|
|
LPLOGPALETTE FAR* ppColorSet)
|
|
{
|
|
// what color pallete will the object use when rendering
|
|
return pPart->GetPalette (ppColorSet);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Freeze (
|
|
DWORD dwDrawAspect,
|
|
LONG lindex,
|
|
void FAR* pvAspect,
|
|
DWORD FAR* pdwFreeze)
|
|
{
|
|
HRESULT hr;
|
|
IViewObject *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject, &(LPVOID)pVO))) {
|
|
hr = pVO->Freeze(dwDrawAspect, lindex, pvAspect, pdwFreeze);
|
|
pVO->Release();
|
|
return hr;
|
|
}
|
|
// the object shouldn't change the rendering
|
|
return ResultFromScode (E_FAIL);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Unfreeze (DWORD dwFreeze)
|
|
{
|
|
HRESULT hr;
|
|
IViewObject *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject, &(LPVOID)pVO))) {
|
|
hr = pVO->Unfreeze(dwFreeze);
|
|
pVO->Release();
|
|
return hr;
|
|
}
|
|
// ok it can change again
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::SetAdvise (DWORD aspects, DWORD advf, LPADVISESINK pAdvSink)
|
|
{
|
|
dwAdviseAspects = aspects;
|
|
dwAdviseFlags = advf;
|
|
if (pAdviseView)
|
|
pAdviseView->Release();
|
|
pAdviseView = pAdvSink;
|
|
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
|
|
if (advf & ADVF_PRIMEFIRST)
|
|
// Cause advises now
|
|
//
|
|
Invalidate(BOLE_INVAL_DATA | BOLE_INVAL_VIEW);
|
|
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::GetAdvise (DWORD FAR* pAspects,
|
|
DWORD FAR* pAdvf, LPADVISESINK FAR* ppAdvSink)
|
|
{
|
|
pAdviseView->AddRef();
|
|
|
|
*ppAdvSink = pAdviseView;
|
|
*pAspects = dwAdviseAspects;
|
|
*pAdvf = dwAdviseFlags;
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::GetExtent(DWORD dwDrawAspect,
|
|
LONG lindex, DVTARGETDEVICE FAR *ptd, LPSIZEL lpsizel)
|
|
{
|
|
HRESULT hr;
|
|
if (dwDrawAspect != DVASPECT_CONTENT) {
|
|
// Get extent from the cache.
|
|
//
|
|
IViewObject2 *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject2, &(LPVOID)pVO))) {
|
|
hr = pVO->GetExtent(dwDrawAspect, lindex, ptd, lpsizel);
|
|
pVO->Release();
|
|
}
|
|
}
|
|
else {
|
|
hr = BOleSite::GetExtent(dwDrawAspect, lpsizel);
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::GetExtent(DWORD dwDrawAspect, LPSIZEL lpsizel)
|
|
{
|
|
HRESULT hr;
|
|
if (dwDrawAspect != DVASPECT_CONTENT) {
|
|
// Get extent from the cache.
|
|
//
|
|
IViewObject2 *pVO;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IViewObject2, &(LPVOID)pVO))) {
|
|
hr = pVO->GetExtent(dwDrawAspect, -1, NULL, lpsizel);
|
|
pVO->Release();
|
|
}
|
|
}
|
|
else {
|
|
hr = BOleSite::GetExtent(dwDrawAspect, lpsizel);
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
//**************************************************************************
|
|
// Override IPersistStorage to allow OleCache to be persistent.
|
|
//
|
|
|
|
HRESULT _IFUNC BOleInProcServer::InitNew(IStorage* pStg)
|
|
{
|
|
LPPERSISTSTORAGE pPersistCache;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IPersistStorage, &(LPVOID) pPersistCache))) {
|
|
pPersistCache->InitNew(pStg);
|
|
pPersistCache->Release();
|
|
}
|
|
return BOleSite::InitNew(pStg);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Load(IStorage* pStg)
|
|
{
|
|
LPPERSISTSTORAGE pPersistCache;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IPersistStorage, &(LPVOID) pPersistCache))) {
|
|
pPersistCache->Load(pStg);
|
|
pPersistCache->Release();
|
|
}
|
|
return BOleSite::Load(pStg);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Save(IStorage* pStgSave,BOOL fSameAsLoad)
|
|
{
|
|
LPOLECACHE2 pCache;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IOleCache2, &(LPVOID)pCache))) {
|
|
pCache->UpdateCache(this, ADVFCACHE_ONSAVE, NULL);
|
|
pCache->Release();
|
|
}
|
|
LPPERSISTSTORAGE pPersistCache;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IPersistStorage, &(LPVOID)pPersistCache))) {
|
|
pPersistCache->Save(pStgSave, fSameAsLoad);
|
|
pPersistCache->Release();
|
|
}
|
|
return BOleSite::Save(pStgSave, fSameAsLoad);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::SaveCompleted(IStorage* pStgSaved)
|
|
{
|
|
LPPERSISTSTORAGE pPersistCache;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IPersistStorage, &(LPVOID) pPersistCache))) {
|
|
pPersistCache->SaveCompleted(pStgSaved);
|
|
pPersistCache->Release();
|
|
}
|
|
return BOleSite::SaveCompleted(pStgSaved);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::HandsOffStorage()
|
|
{
|
|
LPPERSISTSTORAGE pPersistCache;
|
|
if (SUCCEEDED(pDefHandler->QueryInterface(IID_IPersistStorage, &(LPVOID) pPersistCache))) {
|
|
pPersistCache->HandsOffStorage();
|
|
pPersistCache->Release();
|
|
}
|
|
return BOleSite::HandsOffStorage();
|
|
}
|
|
|
|
|
|
//**************************************************************************
|
|
//
|
|
// IBSite methods (override this interface on aggregated BOleIPSServer
|
|
// to implement Invalidate).
|
|
//
|
|
//**************************************************************************
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Init(PIBDataProvider pDP,
|
|
PIBPart pP, LPCOLESTR szProgId, BOOL fHatchWnd)
|
|
{
|
|
// Initialize back pointers
|
|
//
|
|
pProvider = pDP;
|
|
pPart = pP;
|
|
|
|
CLSID cid = CLSID_NULL;
|
|
|
|
if (SUCCEEDED(CLSIDFromProgID(szProgId, &cid))) {
|
|
// create the default handler
|
|
//
|
|
CreateDataCache(AsPIUnknown(pObjOuter),cid, IID_IUnknown,
|
|
&(LPVOID)pDefHandler);
|
|
//
|
|
//
|
|
//
|
|
}
|
|
|
|
// initialize default IPS
|
|
//
|
|
return BOleSite::Init(pDP, pP, szProgId, fHatchWnd);
|
|
}
|
|
|
|
void _IFUNC BOleInProcServer::Invalidate( BOleInvalidate b)
|
|
{
|
|
if ((b & BOLE_INVAL_VIEW) && pAdviseView) {
|
|
pAdviseView->OnViewChange(dwAdviseAspects, -1);
|
|
if (dwAdviseFlags == ADVF_ONLYONCE) {
|
|
pAdviseView->Release();
|
|
pAdviseView = NULL;
|
|
dwAdviseAspects = 0L;
|
|
dwAdviseFlags = 0L;
|
|
//
|
|
}
|
|
}
|
|
if (b) // VIEW or DATA or PERSIST remains invalid
|
|
BOleSite::Invalidate(b);
|
|
}
|
|
|
|
//**************************************************************************
|
|
//
|
|
// IOleInPlaceActiveObject
|
|
//
|
|
// This interface is overridden to pre-process translator and other messages
|
|
// from the container's message loop.
|
|
//
|
|
//**************************************************************************
|
|
|
|
|
|
// Allow DLL Server to translate accelerators
|
|
//
|
|
HRESULT _IFUNC BOleInProcServer::TranslateAccelerator (LPMSG lpmsg)
|
|
{
|
|
return pService->GetApplication()->Accelerator(lpmsg);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::EnumVerbs(IEnumOLEVERB* FAR* ppenumOleVerb)
|
|
{
|
|
return OleRegEnumVerbs(cid, ppenumOleVerb);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::GetUserType(DWORD dwFormOfType, LPOLESTR FAR* pszUserType)
|
|
{
|
|
return OleRegGetUserType(cid, dwFormOfType, pszUserType);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::GetMiscStatus(DWORD dwAspect, DWORD FAR* pdwStatus)
|
|
{
|
|
return OleRegGetMiscStatus(cid, dwAspect, pdwStatus);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::SetExtent (DWORD dwDrawAspect, LPSIZEL lpsizel)
|
|
{
|
|
HRESULT hr = BOleSite::SetExtent(dwDrawAspect, lpsizel);
|
|
return hr;
|
|
}
|
|
|
|
// IRunnableObject methods
|
|
//
|
|
HRESULT _IFUNC BOleInProcServer::GetRunningClass(LPCLSID lpClassID)
|
|
{
|
|
*lpClassID = cid;
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Run(LPBINDCTX pbc)
|
|
{
|
|
// Enter running mode by setting a flag and locking the container
|
|
//
|
|
if (!fRunningMode) {
|
|
fRunningMode = TRUE;
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
//
|
|
// Should register the moniker here.
|
|
// Don't register if this is a clone (pPart is NULL)
|
|
// otherwise we would link to what's on the clipboard...
|
|
//
|
|
if (pPart)
|
|
SetMoniker(OLEWHICHMK_OBJFULL, NULLP); // register
|
|
}
|
|
|
|
return NOERROR;
|
|
}
|
|
|
|
BOOL _IFUNC BOleInProcServer::IsRunning()
|
|
{
|
|
return fRunningMode;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::LockRunning(BOOL fLock, BOOL fLastCloses)
|
|
{
|
|
return Lock(fLock, fLastCloses);
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::SetContainedObject(BOOL fContained)
|
|
{
|
|
return NOERROR;
|
|
}
|
|
|
|
// IExternalConnection implementation
|
|
//
|
|
DWORD _IFUNC BOleInProcServer::AddConnection (DWORD flag, DWORD reserved)
|
|
{
|
|
return (flag & EXTCONN_STRONG) ? ++exCon : 0;
|
|
}
|
|
|
|
DWORD _IFUNC BOleInProcServer::ReleaseConnection (DWORD flag, DWORD reserved, BOOL fLastReleaseCloses)
|
|
{
|
|
if (flag & EXTCONN_STRONG) {
|
|
--exCon;
|
|
if( exCon == 0 && fLastReleaseCloses){
|
|
Close(OLECLOSE_SAVEIFDIRTY);
|
|
}
|
|
return exCon;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
HRESULT _IFUNC BOleInProcServer::Close (DWORD dwSaveOption)
|
|
{
|
|
fRunningMode = FALSE;
|
|
return BOleSite::Close(dwSaveOption);
|
|
}
|
|
|