OBJUSER3.CPP
/*
* OBJUSER3.CPP
* Koala Client #3 Chapter 6
*
* Copyright (c)1993-1995 Microsoft Corporation, All Rights Reserved
*
* Kraig Brockschmidt, Microsoft
* Internet : kraigb@microsoft.com
* Compuserve: >INTERNET:kraigb@microsoft.com
*/
#define INITGUIDS
#include "objuser3.h"
/*
* WinMain
*
* Purpose:
* Main entry point of application.
*/
int PASCAL WinMain(HINSTANCE hInst, HINSTANCE hInstPrev
, LPSTR pszCmdLine, int nCmdShow)
{
MSG msg;
PAPP pApp;
SETMESSAGEQUEUE;
pApp=new CApp(hInst, hInstPrev, nCmdShow);
if (NULL==pApp)
return -1;
if (pApp->Init())
{
while (GetMessage(&msg, NULL, 0,0 ))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
delete pApp;
return msg.wParam;
}
/*
* ObjectUserWndProc
*
* Purpose:
* Window class procedure. Standard callback.
*/
LRESULT APIENTRY ObjectUserWndProc(HWND hWnd, UINT iMsg
, WPARAM wParam, LPARAM lParam)
{
HRESULT hr;
PAPP pApp;
IUnknown *pUnk;
IAnimal *pIAnimal;
IKoala *pIKoala;
TCHAR szMsg[256];
pApp=(PAPP)GetWindowLong(hWnd, OBJUSERWL_STRUCTURE);
switch (iMsg)
{
case WM_NCCREATE:
pApp=(PAPP)(((LPCREATESTRUCT)lParam)->lpCreateParams);
SetWindowLong(hWnd, OBJUSERWL_STRUCTURE, (LONG)pApp);
return (DefWindowProc(hWnd, iMsg, wParam, lParam));
case WM_DESTROY:
PostQuitMessage(0);
break;
case WM_COMMAND:
if (NULL!=pApp)
pUnk=pApp->m_pIUnknown;
switch (LOWORD(wParam))
{
case IDM_OBJECTCREATE:
if (NULL!=pUnk)
{
ReleaseInterface(pUnk);
CoFreeUnusedLibraries();
}
hr=CoCreateInstance(CLSID_Koala, NULL
, CLSCTX_LOCAL_SERVER, IID_IUnknown
, (PPVOID)&pApp->m_pIUnknown);
if (SUCCEEDED(hr))
pApp->Message(TEXT("Creation succeeded"));
else
pApp->Message(TEXT("Creation failed"));
break;
case IDM_OBJECTRELEASE:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
ReleaseInterface(pApp->m_pIUnknown);
pApp->Message(TEXT("Object released"));
break;
case IDM_ANIMALEAT:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
if (SUCCEEDED(pUnk->QueryInterface(IID_IAnimal
, (PPVOID)&pIAnimal)))
{
const short cch=80;
TCHAR szEaten[cch];
pIAnimal->Eat(TEXT("Your Choice"), szEaten
, cch);
pIAnimal->Release();
wsprintf(szMsg, TEXT("Animal ate %s")
, szEaten);
pApp->Message(szMsg);
}
else
pApp->Message(TEXT("QueryInterface failed"));
break;
case IDM_ANIMALSLEEP:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
if (SUCCEEDED(pUnk->QueryInterface(IID_IAnimal
, (PPVOID)&pIAnimal)))
{
short n=120;
pIAnimal->Sleep(&n);
wsprintf(szMsg, TEXT("Animal slept %u"), n);
pApp->Message(szMsg);
pIAnimal->Release();
}
else
pApp->Message(TEXT("QueryInterface failed"));
break;
case IDM_ANIMALPROCREATE:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
if (SUCCEEDED(pUnk->QueryInterface(IID_IAnimal
, (PPVOID)&pIAnimal)))
{
short n;
hr=pIAnimal->Procreate(&n);
pIAnimal->Release();
if (NOERROR!=hr)
{
pApp->Message(TEXT("No offspring this time"));
break;
}
wsprintf(szMsg
, TEXT("Animal produced %u offspring")
, n);
pApp->Message(szMsg);
}
else
pApp->Message(TEXT("QueryInterface failed"));
break;
case IDM_ANIMALWHATKIND:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
if (SUCCEEDED(pUnk->QueryInterface(IID_IAnimal
, (PPVOID)&pIAnimal)))
{
IID iid;
pIAnimal->WhatKindOfAnimal(&iid);
pIAnimal->Release();
StringFromGUID2(iid, szMsg, 256);
pApp->Message(szMsg);
}
else
pApp->Message(TEXT("QueryInterface failed"));
break;
case IDM_KOALACLIMB:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
if (SUCCEEDED(pUnk->QueryInterface(IID_IKoala
, (PPVOID)&pIKoala)))
{
pIKoala->ClimbEucalyptusTree(0);
pIKoala->Release();
pApp->Message(TEXT("Tree climbed"));
}
else
pApp->Message(TEXT("QueryInterface failed"));
break;
case IDM_KOALAPOUCH:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
if (SUCCEEDED(pUnk->QueryInterface(IID_IKoala
, (PPVOID)&pIKoala)))
{
pIKoala->PouchOpensDown();
pIKoala->Release();
pApp->Message(TEXT("PouchOpenDown called"));
}
else
pApp->Message(TEXT("QueryInterface failed"));
break;
case IDM_KOALASLEEP:
if (NULL==pUnk)
{
pApp->Message(TEXT("There is no object"));
break;
}
if (SUCCEEDED(pUnk->QueryInterface(IID_IKoala
, (PPVOID)&pIKoala)))
{
pIKoala->SleepAfterEating(120);
pIKoala->Release();
pApp->Message(TEXT("Set extra sleep to 120"));
}
else
pApp->Message(TEXT("QueryInterface failed"));
break;
case IDM_OBJECTEXIT:
PostMessage(hWnd, WM_CLOSE, 0, 0L);
break;
}
break;
default:
return (DefWindowProc(hWnd, iMsg, wParam, lParam));
}
return 0L;
}
/*
* CApp::CApp
* CApp::~CApp
*
* Constructor Parameters: (from WinMain)
* hInst HINSTANCE of the application.
* hInstPrev HINSTANCE of a previous instance.
* nCmdShow UINT specifying how to show the app window.
*
*/
CApp::CApp(HINSTANCE hInst, HINSTANCE hInstPrev
, UINT nCmdShow)
{
m_hInst =hInst;
m_hInstPrev =hInstPrev;
m_nCmdShow =nCmdShow;
m_hWnd =NULL;
m_pIUnknown =NULL;
m_fInitialized=FALSE;
return;
}
CApp::~CApp(void)
{
ReleaseInterface(m_pIUnknown);
if (IsWindow(m_hWnd))
DestroyWindow(m_hWnd);
if (m_fInitialized)
CoUninitialize();
return;
}
/*
* CApp::Init
*
* Purpose:
* Initializes an CApp object by registering window classes,
* creating the main window, and doing anything else prone to
* failure such as calling CoInitialize. If this function fails
* the caller should insure that the destructor is called.
*
* Parameters:
* None
*
* Return Value:
* BOOL TRUE if successful, FALSE otherwise.
*/
BOOL CApp::Init(void)
{
WNDCLASS wc;
CHECKVER_COM;
if (FAILED(CoInitialize(NULL)))
return FALSE;
m_fInitialized=TRUE;
if (!m_hInstPrev)
{
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = ObjectUserWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = CBWNDEXTRA;
wc.hInstance = m_hInst;
wc.hIcon = LoadIcon(m_hInst, TEXT("Icon"));
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
wc.lpszMenuName = MAKEINTRESOURCE(IDR_MENU);
wc.lpszClassName = TEXT("OBJUSER3");
if (!RegisterClass(&wc))
return FALSE;
}
m_hWnd=CreateWindow(TEXT("OBJUSER3")
, TEXT("Koala Client #3"), WS_OVERLAPPEDWINDOW
, 35, 35, 350, 250, NULL, NULL, m_hInst, this);
if (NULL==m_hWnd)
return FALSE;
ShowWindow(m_hWnd, m_nCmdShow);
UpdateWindow(m_hWnd);
return TRUE;
}
/*
* CApp::Message
*
* Purpose:
* Displays a message in the client area of the window. This is
* just to centralize the call to simpify other code.
*
* Parameters:
* psz LPTSTR to the string to display.
*
* Return Value:
* None
*/
void CApp::Message(LPTSTR psz)
{
HDC hDC;
RECT rc;
hDC=GetDC(m_hWnd);
GetClientRect(m_hWnd, &rc);
SetBkColor(hDC, GetSysColor(COLOR_WINDOW));
SetTextColor(hDC, GetSysColor(COLOR_WINDOWTEXT));
/*
* We'll just be sloppy and clear the whole window as
* well as write the string with one ExtTextOut call.
* No word wrapping here...
*/
ExtTextOut(hDC, 0, 0, ETO_OPAQUE, &rc, psz, lstrlen(psz), NULL);
ReleaseDC(m_hWnd, hDC);
return;
}