//+-------------------------------------------------------------------
//
// File: oleimpl.cxx
//
// Contents: This file contins the DLL entry points
// LibMain
// DllGetClassObject (Bindings key func)
// CAdvBndCF (class factory)
// CAdvBnd (actual class implementation)
//
// Classes: CAdvBndCF, CAdvBnd
//
//
// History: 30-Nov-92 SarahJ Created
// 31-Dec-93 ErikGav Chicago port
//---------------------------------------------------------------------
// Turn off ole Cairol IUnknown
#include "headers.cxx"
#pragma hdrstop
#include <stdio.h>
#include <stdarg.h>
#include "wterm.h"
#define IDM_DEBUG 0x100
static const TCHAR *szAppName = TEXT("Test OLE Server");
static const char *szFatalError = "OLESRV - Fatal Error";
void MsgBox(char *pszMsg)
{
MessageBoxA(NULL, pszMsg, szFatalError, MB_OK);
}
void HrMsgBox(char *pszMsg, HRESULT hr)
{
char awcBuf[512];
// Build string for output
wsprintfA(awcBuf, "%s HRESULT = %lx", pszMsg, hr);
// Display message box
MessageBoxA(NULL, &awcBuf[0], szFatalError, MB_OK);
}
//+-------------------------------------------------------------------
// Class: CTestServerApp
//
// Synopsis: Class that holds application-wide data and methods
//
// Methods: InitApp
// CloseApp
// GetEmbeddedFlag
//
// History: 17-Dec-92 DeanE Created
//--------------------------------------------------------------------
class FAR CTestServerApp
{
public:
// Constructor/Destructor
CTestServerApp();
~CTestServerApp();
SCODE InitApp (LPSTR lpszCmdline);
SCODE CloseApp (void);
BOOL GetEmbeddedFlag (void);
ULONG IncEmbeddedCount(void);
ULONG DecEmbeddedCount(void);
private:
IClassFactory *_pteClassFactory;
ULONG _cEmbeddedObjs; // Count of embedded objects this server
// is controlling now
DWORD _dwRegId; // OLE registration ID
BOOL _fRegistered; // TRUE if srv was registered w/OLE
BOOL _fEmbedded; // TRUE if OLE started us at the request
// of an embedded obj in a container app
};
CTestServerApp tsaMain;
HWND g_hMain;
void ProcessCmdLine(LPSTR, BOOL *);
//+--------------------------------------------------------------
// Function: CTestServerApp::CTestServerApp
//
// Synopsis: Constructor - initialize members
//
// Parameters: None
//
// Returns: None
//
// History: 17-Dec-92 DeanE Created
//---------------------------------------------------------------
CTestServerApp::CTestServerApp()
{
_pteClassFactory = NULL;
_dwRegId = 0;
_fRegistered = FALSE;
_fEmbedded = TRUE;
_cEmbeddedObjs = 0;
}
//+--------------------------------------------------------------
// Function: CTestServerApp::~CTestServerApp
//
// Synopsis: Insure pointers are free - note this is mainly for
// error-checking.
//
// Parameters: None
//
// Returns: None
//
// History: 17-Dec-92 DeanE Created
//---------------------------------------------------------------
CTestServerApp::~CTestServerApp()
{
Win4Assert(_pteClassFactory == NULL &&
"Class factory should have been released");
}
//+--------------------------------------------------------------
// Function: CTestServerApp::InitApp
//
// Synopsis: Initialize this instance of the app.
//
// Parameters: [lpszCmdline] - Command line of the application.
//
// Returns: S_OK if everything was initialized, or an error if not.
//
// History: 17-Dec-92 DeanE Created
//
// Notes: If this does not return, the CloseApp method should
// still be called for proper cleanup.
//---------------------------------------------------------------
SCODE CTestServerApp::InitApp(LPSTR lpszCmdline)
{
SCODE sc;
// Check OLE version running
// BUGBUG - NYI by OLE
// Bail out if we are not running with an acceptable version of OLE
// Process Command Line arguments
ProcessCmdLine(lpszCmdline, &_fEmbedded);
// Create the applications class factory - note that we have to free
// at a later time
_pteClassFactory = new CAdvBndCF();
if (NULL == _pteClassFactory)
{
MsgBox("Class Object Creation Failed");
return(E_ABORT);
}
// Register the class with OLE
sc = CoRegisterClassObject(
CLSID_AdvBnd,
_pteClassFactory,
CLSCTX_LOCAL_SERVER,
REGCLS_MULTIPLEUSE,
&_dwRegId);
if (S_OK == sc)
{
_fRegistered = TRUE;
}
else
{
HrMsgBox("CoRegisterClassObject FAILED", sc);
}
return(sc);
}
//+--------------------------------------------------------------
// Function: CTestServerApp::CloseApp
//
// Synopsis: Clean up resources this instance of the app is using.
//
// Parameters: None
//
// Returns: S_OK if everything was cleaned up, or an error if not.
//
// History: 17-Dec-92 DeanE Created
//---------------------------------------------------------------
SCODE CTestServerApp::CloseApp()
{
// Revoke the class object, if registered
if (TRUE == _fRegistered)
{
CoRevokeClassObject(_dwRegId);
}
// Release this apps class factory, and insure the returned count is 0
if (NULL != _pteClassFactory)
{
// NB: Workaround for ref count problem.
#define HACK 1
#if HACK
_pteClassFactory->Release();
_pteClassFactory = NULL;
#else
if (0 == _pteClassFactory->Release())
{
_pteClassFactory = NULL;
}
else
{
Win4Assert("Release on class factory returned positive ref count");
// BUGBUG - Log error
}
#endif
}
return(S_OK);
}
//+--------------------------------------------------------------
// Function: CTestServerApp::GetEmbeddedFlag
//
// Synopsis: Returns TRUE if app was started for an embedded object,
// FALSE if standalone.
//
// Parameters: None
//
// Returns: BOOL (_fEmbedded)
//
// History: 17-Dec-92 DeanE Created
//
// Notes: BUGBUG - This should be an inline method
//---------------------------------------------------------------
CTestServerApp::GetEmbeddedFlag()
{
return(_fEmbedded);
}
//+--------------------------------------------------------------
// Function: CTestServerApp::IncEmbeddedCount
//
// Synopsis: Increments the count of embedded objects the server
// has open.
//
// Parameters: None
//
// Returns: ULONG (_cEmbeddedObjs)
//
// History: 17-Dec-92 DeanE Created
//
// Notes: BUGBUG - This should be an inline method
//---------------------------------------------------------------
ULONG CTestServerApp::IncEmbeddedCount()
{
return(++_cEmbeddedObjs);
}
//+--------------------------------------------------------------
// Function: CTestServerApp::DecEmbeddedCount
//
// Synopsis: Decrements the count of embedded objects the server
// has open. If 0 are left and we were running for an
// embedded object(s), shut down.
//
// Parameters: None
//
// Returns: ULONG (_cEmbeddedObjs)
//
// History: 17-Dec-92 DeanE Created
//
// Notes: BUGBUG - This should be an inline method
//---------------------------------------------------------------
ULONG CTestServerApp::DecEmbeddedCount()
{
if ((0 == --_cEmbeddedObjs) && _fEmbedded)
{
// We are done so revoke our OLE stuff. We need to do this as
// soon as we know that we are shutting down so that the window
// for returning a bad class object is shut.
CloseApp();
// Tell window to die
SendMessage(g_hMain, WM_USER, 0xFFFFFFFF, 0xFFFFFFFF);
}
return(_cEmbeddedObjs);
}
//+--------------------------------------------------------------
// Function: ProcessCmdline
//
// Synopsis: Checks the cmd line parameters, in particular for
// '/Embedding' or '-Embedding'.
//
// Parameters: [lpszCmdLine] - Command line buffer.
// [pfEmbedded] - Flag should be set to true if we get
// the '/Embedding' switch.
//
// Returns: void
//
// History: 25-Nov-92 DeanE Created
//
// Notes: Only two valid commandlines for this program:
// (1) -Embedding when started by OLE or (2) Null
// string if started from the command line.
//---------------------------------------------------------------
void ProcessCmdLine(LPSTR lpszCmdline, BOOL *pfEmbedded)
{
if (lpszCmdline[0] == 0)
{
*pfEmbedded = FALSE;
return;
}
if (strcmp(lpszCmdline, "-Embedding") == 0)
{
*pfEmbedded = TRUE;
return;
}
MsgBox("Received an invalid command line!");
*pfEmbedded = FALSE;
return;
}
void Display(TCHAR *pszFmt, ...)
{
va_list marker;
TCHAR szBuffer[256];
va_start(marker, pszFmt);
#ifdef UNICODE
int iLen = vswprintf(szBuffer, pszFmt, marker);
#else
int iLen = vsprintf(szBuffer, pszFmt, marker);
#endif
va_end(marker);
// Display the message on terminal window
SendMessage(g_hMain, WM_PRINT_LINE, iLen, (LONG) szBuffer);
}
//+-------------------------------------------------------------------------
//
// Function: ProcessMenu
//
// Synopsis: Gets called when a WM_COMMAND message received.
//
// Arguments: [hWindow] - handle for the window
// [uiMessage] - message id
// [wParam] - word parameter
// [lParam] - long parameter
//
// Returns: DefWindowProc result
//
// History: 06-Aug-92 Ricksa Created
//
//--------------------------------------------------------------------------
long ProcessMenu(HWND hWindow, UINT uiMessage, WPARAM wParam, LPARAM lParam,
void *)
{
if ((uiMessage == WM_SYSCOMMAND) && (wParam == IDM_DEBUG))
{
// Request for a debug breakpoint!
DebugBreak();
}
return (DefWindowProc(hWindow, uiMessage, wParam, lParam));
}
//+-------------------------------------------------------------------------
//
// Function: ProcessChar
//
// Synopsis: Gets called when a WM_CHAR message received.
//
// Arguments: [hWindow] - handle for the window
// [uiMessage] - message id
// [wParam] - word parameter
// [lParam] - long parameter
//
// Returns: DefWindowProc result
//
// History: 06-Aug-92 Ricksa Created
//
//--------------------------------------------------------------------------
long ProcessChar(HWND hWindow, UINT uiMessage, WPARAM wParam, LPARAM lParam,
void *)
{
return (DefWindowProc(hWindow, uiMessage, wParam, lParam));
}
//+-------------------------------------------------------------------------
//
// Function: ProcessClose
//
// Synopsis: Gets called when a NC_DESTROY message received.
//
// Arguments: [hWindow] - handle for the window
// [uiMessage] - message id
// [wParam] - word parameter
// [lParam] - long parameter
//
// Returns: DefWindowProc result
//
// History: 06-Aug-92 Ricksa Created
//
//--------------------------------------------------------------------------
long ProcessClose(
HWND hWindow,
UINT uiMessage,
WPARAM wParam,
LPARAM lParam,
void *pvCallBackData)
{
// Take default action with message
return (DefWindowProc(hWindow, uiMessage, wParam, lParam));
}
//+-------------------------------------------------------------------
//
// Function: WinMain
//
// Synopsis: Entry point to DLL - does little else
//
// Arguments:
//
// Returns: TRUE
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
int WINAPI WinMain(
HINSTANCE hInstance,
HINSTANCE hPrevInstance,
char *lpszCmdLine,
int nCmdShow)
{
// For windows message
MSG msg;
BOOL bRet;
HRESULT hr;
// Register the window class
bRet = TermRegisterClass(hInstance, NULL, (LPTSTR) szAppName,
(LPTSTR) MAKEINTRESOURCE(IDI_APPLICATION));
if (!bRet)
{
MsgBox("TermRegisterClass FAILED");
return 1;
}
// Create the server window
bRet = TermCreateWindow(
(LPTSTR) szAppName,
(LPTSTR) szAppName,
NULL,
ProcessMenu,
ProcessChar,
ProcessClose,
SW_SHOWMINIMIZED,
&g_hMain,
NULL);
if (!bRet)
{
MsgBox("TermCreateWindow FAILED");
return 1;
}
// Add debug option to system menu
HMENU hmenu = GetSystemMenu(g_hMain, FALSE);
AppendMenu(hmenu, MF_SEPARATOR, 0, NULL);
AppendMenu(hmenu, MF_STRING | MF_ENABLED, IDM_DEBUG, TEXT("Debug"));
// Look up the thread mode from the win.ini file.
DWORD thread_mode;
TCHAR buffer[80];
int len;
len = GetProfileString( TEXT("OleSrv"),
TEXT("ThreadMode"),
TEXT("MultiThreaded"),
buffer,
sizeof(buffer) / sizeof(TCHAR));
if (lstrcmp(buffer, TEXT("ApartmentThreaded")) == 0)
{
thread_mode = COINIT_APARTMENTTHREADED;
hr = CoInitialize(NULL);
}
else
{
#ifdef MULTI_THREADING
thread_mode = COINIT_MULTITHREADED;
hr = CoInitializeEx(NULL, thread_mode);
#else
hr = E_INVALIDARG;
#endif
}
if (S_OK != hr)
{
HrMsgBox("CoInitialize FAILED", hr);
return(1);
}
// Initialize Application
if (S_OK != tsaMain.InitApp(lpszCmdLine))
{
tsaMain.CloseApp();
return(1);
}
if (tsaMain.GetEmbeddedFlag())
{
// We're running as an embedded app
// Don't show the main window unless we're instructed to do so
// BUGBUG - In-place editing is NYI
ShowWindow(g_hMain, SW_SHOWMINIMIZED);
}
else
{
// We are not running as an embedded app - show the main window
ShowWindow(g_hMain, nCmdShow);
}
UpdateWindow(g_hMain);
// message loop
while (GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
// If we get here, we initialized OLE so let's uninitialize it.
CoUninitialize();
return (msg.wParam); /* Returns the value from PostQuitMessage */
}
//+-------------------------------------------------------------------
//
// Class: CAdvBndCF
//
// Synopsis: Class Factory for CAdvBnd
//
// Interfaces: IUnknown - QueryInterface, AddRef, Release
// IClassFactory - CreateInstance
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
//+-------------------------------------------------------------------
//
// Member: CAdvBndCF::CAdvBndCF()
//
// Synopsis: The constructor for CAdvBnd.
//
// Arguments: None
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
CAdvBndCF::CAdvBndCF() : _cRefs(1)
{
// Load the class object for the class to aggregate.
HRESULT hresult = CoGetClassObject(CLSID_BasicBnd, CLSCTX_SERVER, NULL,
IID_IClassFactory, (void **) &_xifac);
return;
}
//+-------------------------------------------------------------------
//
// Member: CAdvBnd::~CAdvBndObj()
//
// Synopsis: The destructor for CAdvBnd.
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
CAdvBndCF::~CAdvBndCF()
{
return;
}
//+-------------------------------------------------------------------
//
// Method: CAdvBndCF::QueryInterface
//
// Synopsis: Only IUnknown and IClassFactory supported
//
//--------------------------------------------------------------------
STDMETHODIMP CAdvBndCF::QueryInterface(REFIID iid, void FAR * FAR * ppv)
{
if (GuidEqual(iid, IID_IUnknown)
|| GuidEqual(iid, IID_IClassFactory))
{
*ppv = (IUnknown *) this;
AddRef();
return S_OK;
}
else
{
*ppv = NULL;
return E_NOINTERFACE;
}
}
STDMETHODIMP_(ULONG) CAdvBndCF::AddRef(void)
{
return(++_cRefs);
}
STDMETHODIMP_(ULONG) CAdvBndCF::Release(void)
{
if (--_cRefs == 0)
{
delete this;
return(0);
}
return _cRefs;
}
//+-------------------------------------------------------------------
//
// Method: CAdvBndCF::CreateInstance
//
// Synopsis: This is called by Binding process to create the
// actual class object
//
//--------------------------------------------------------------------
STDMETHODIMP CAdvBndCF::CreateInstance(
IUnknown FAR* pUnkOuter,
REFIID iidInterface,
void FAR* FAR* ppv)
{
Display(TEXT("CAdvBndCF::CreateInstance called\n"));
if (pUnkOuter != NULL)
{
return E_FAIL;
}
CAdvBnd * lpcBB = new FAR CAdvBnd((IClassFactory *) _xifac);
if (lpcBB == NULL)
{
return E_OUTOFMEMORY;
}
HRESULT hresult = lpcBB->QueryInterface(iidInterface, ppv);
lpcBB->Release();
return hresult;
}
STDMETHODIMP CAdvBndCF::LockServer(BOOL fLock)
{
return E_FAIL;
}
//+-------------------------------------------------------------------
//
// Member: CAdvBnd::CAdvBnd()
//
// Synopsis: The constructor for CAdvBnd. I
//
// Arguments: None
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
CAdvBnd::CAdvBnd(IClassFactory *pcfBase) : _xiunk(), _dwRegister(0), _cRefs(1)
{
HRESULT hresult = pcfBase->CreateInstance((IUnknown *) this, IID_IUnknown,
(void **) &_xiunk);
tsaMain.IncEmbeddedCount();
return;
}
//+-------------------------------------------------------------------
//
// Member: CAdvBnd::~CAdvBndObj()
//
// Synopsis: The destructor for CAdvBnd.
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
CAdvBnd::~CAdvBnd()
{
Display(TEXT("CAdvBndCF::~CAdvBnd called\n"));
if (_dwRegister != 0)
{
// Get the running object table
IRunningObjectTable *prot;
HRESULT hresult = GetRunningObjectTable(0, &prot);
if (hresult != S_OK)
{
HrMsgBox("CAdvBnd::~CAdvBnd GetRunningObjectTable failed", hresult);
}
else
{
hresult = prot->Revoke(_dwRegister);
if (hresult != S_OK)
{
HrMsgBox("CAdvBnd::~CAdvBnd Revoke failed", hresult);
}
prot->Release();
}
}
tsaMain.DecEmbeddedCount();
return;
}
//+-------------------------------------------------------------------
//
// Member: CAdvBnd::QueryInterface
//
// Returns: SUCCESS_SUCCCESS
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
STDMETHODIMP CAdvBnd::QueryInterface(REFIID iid, void ** ppunk)
{
Display(TEXT("CAdvBnd::QueryInterface called\n"));
if (GuidEqual(iid, IID_IUnknown))
{
*ppunk = (IUnknown *) this;
AddRef();
return S_OK;
}
else if ((GuidEqual(iid, IID_IPersistFile))
|| (GuidEqual(iid, IID_IPersist)))
{
*ppunk = (IPersistFile *) this;
AddRef();
return S_OK;
}
return _xiunk->QueryInterface(iid, ppunk);
}
STDMETHODIMP_(ULONG) CAdvBnd::AddRef(void)
{
return ++_cRefs;
}
STDMETHODIMP_(ULONG) CAdvBnd::Release(void)
{
if (--_cRefs == 0)
{
delete this;
return(0);
}
return _cRefs;
}
//+-------------------------------------------------------------------
//
// Member: CAdvBnd::Load
//
// Synopsis: IPeristFile interface - needed 'cause we bind with
// file moniker and BindToObject insists on calling this
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
STDMETHODIMP CAdvBnd::Load(LPCWSTR lpszFileName, DWORD grfMode)
{
Display(TEXT("CAdvBndCF::Load called\n"));
// Forward call to delegated class
IPersistFile *pipfile;
HRESULT hresult = _xiunk->QueryInterface(IID_IPersistFile,
(void **) &pipfile);
hresult = pipfile->Load(lpszFileName, grfMode);
pipfile->Release();
if (FAILED(hresult))
{
// Make sure delegated too class liked what it got/
// BUGBUG: Can't just forward hresults!
return hresult;
}
// Create a file moniker
IMoniker *pmk;
hresult = CreateFileMoniker((LPWSTR)lpszFileName, &pmk);
if (FAILED(hresult))
{
HrMsgBox("CAdvBnd::Load CreateFileMoniker failed", hresult);
return hresult;
}
// Get the running object table
IRunningObjectTable *prot;
hresult = GetRunningObjectTable(0, &prot);
if (FAILED(hresult))
{
HrMsgBox("CAdvBnd::Load GetRunningObjectTable failed", hresult);
return hresult;
}
// Register in the running object table
IUnknown *punk;
QueryInterface(IID_IUnknown, (void **) &punk);
hresult = prot->Register(0, punk, pmk, &_dwRegister);
if (FAILED(hresult))
{
HrMsgBox("CAdvBnd::Load Register failed", hresult);
return hresult;
}
// Set filetime to known value
FILETIME filetime;
memset(&filetime, 'B', sizeof(filetime));
// Set time to some known value
prot->NoteChangeTime(_dwRegister, &filetime);
// Release uneeded objects
pmk->Release();
prot->Release();
punk->Release();
return S_OK;
}
//+-------------------------------------------------------------------
//
// Member: CAdvBnd::Save
//
// Synopsis: IPeristFile interface - save
// does little but here for commentry
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
STDMETHODIMP CAdvBnd::Save(LPCWSTR lpszFileName, BOOL fRemember)
{
Display(TEXT("CAdvBndCF::Save called\n"));
// Forward call to delegated class
IPersistFile *pipfile;
HRESULT hresult = _xiunk->QueryInterface(IID_IPersistFile,
(void **) &pipfile);
hresult = pipfile->Save(lpszFileName, fRemember);
pipfile->Release();
return hresult;
}
//+-------------------------------------------------------------------
//
// Member: CAdvBnd::SaveCpmpleted
// CAdvBnd::GetCurFile
// CAdvBnd::IsDirty
//
// Synopsis: More IPeristFile interface methods
//
// History: 21-Nov-92 SarahJ Created
//
//--------------------------------------------------------------------
STDMETHODIMP CAdvBnd::SaveCompleted(LPCWSTR lpszFileName)
{
Display(TEXT("CAdvBndCF::SaveCompleted called\n"));
// Forward call to delegated class
IPersistFile *pipfile;
HRESULT hresult = _xiunk->QueryInterface(IID_IPersistFile,
(void **) &pipfile);
hresult = pipfile->SaveCompleted(lpszFileName);
pipfile->Release();
return hresult;
}
STDMETHODIMP CAdvBnd::GetCurFile(LPWSTR FAR *lpszFileName)
{
Display(TEXT("CAdvBndCF::GetCurFile called\n"));
// Forward call to delegated class
IPersistFile *pipfile;
HRESULT hresult = _xiunk->QueryInterface(IID_IPersistFile,
(void **) &pipfile);
hresult = pipfile->GetCurFile(lpszFileName);
pipfile->Release();
return hresult;
}
STDMETHODIMP CAdvBnd::IsDirty()
{
Display(TEXT("CAdvBndCF::IsDirty called\n"));
// Forward call to delegated class
IPersistFile *pipfile;
HRESULT hresult = _xiunk->QueryInterface(IID_IPersistFile,
(void **) &pipfile);
hresult = pipfile->IsDirty();
pipfile->Release();
return hresult;
}
//+-------------------------------------------------------------------
//
// Interface: IPersist
//
// Synopsis: IPersist interface methods
// Need to return a valid class id here
//
// History: 21-Nov-92 SarahJ Created
//
STDMETHODIMP CAdvBnd::GetClassID(LPCLSID classid)
{
Display(TEXT("CAdvBndCF::GetClassID called\n"));
*classid = CLSID_AdvBnd;
return S_OK;
}