HELLO.CPP

#ifndef STRICT 
#define STRICT 
#endif 
 
 
//========================================================================== 
// 
//  THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY 
//  KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE 
//  IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 
//  PURPOSE. 
// 
//  Copyright (C) 1997 Microsoft Corporation.  All Rights Reserved. 
// 
//-------------------------------------------------------------------------- 
// 
// This sample demonstrates the simplest Microsoft Agent application 
// 
//========================================================================== 
 
 
#include <windows.h> 
#include <tchar.h> 
#include "AgtSvr.h" 
#include "AgtSvr_i.c" 
 
 
static const LPWSTR kpwszCharacter = L"\\program files\\microsoft agent\\characters\\genie.acs"; 
static const LPTSTR kpszAppTitle = _T("Microsoft Agent Samples"); 
 
 
// This function checks to see if the version of Microsoft Agent 
// installed on the user's system is compatible with the version 
// we compiled with, i.e. it's version is greater than or equal to 
// constants defined in AgtSvr.h.  Microsoft Agent guarantees 
// backward compatibility. 
 
BOOL IsValidAgentVersion(IAgent *pAgent) { 
 
HRESULT hRes; 
IDispatch *pdAgent = NULL; 
ITypeInfo *pTypeInfo = NULL; 
ITypeLib *pTypeLib = NULL; 
TLIBATTR *pTypeLibAttr = NULL; 
BOOL bValid = FALSE; 
UINT uiIndex; 
 
__try { 
 
// Query for IDispatch 
 
hRes = pAgent->QueryInterface(IID_IDispatch, (LPVOID *)&pdAgent); 
 
if (FAILED(hRes)) 
__leave; 
 
// Get the TypeInfo 
 
hRes = pdAgent->GetTypeInfo(0, 0, &pTypeInfo); 
 
if (FAILED(hRes)) 
__leave; 
 
// Get it's containing TypeLib 
 
hRes = pTypeInfo->GetContainingTypeLib(&pTypeLib, &uiIndex); 
 
if (FAILED(hRes)) 
__leave; 
 
// Get the attributes of the TypeLib 
 
hRes = pTypeLib->GetLibAttr(&pTypeLibAttr); 
 
if (FAILED(hRes)) 
__leave; 
 
// Check the major and minor versions of the type library 
// to those in AgentServer.h. 
 
if ((pTypeLibAttr->wMajorVerNum > AGENT_VERSION_MAJOR) || 
((pTypeLibAttr->wMajorVerNum == AGENT_VERSION_MAJOR) && 
 (pTypeLibAttr->wMinorVerNum >= AGENT_VERSION_MINOR))) 
bValid = TRUE; 
 
} 
__finally { 
} 
 
if (pTypeLib) { 
 
if (pTypeLibAttr) 
pTypeLib->ReleaseTLibAttr(pTypeLibAttr); 
 
pTypeLib->Release(); 
} 
 
if (pTypeInfo) 
pTypeInfo->Release(); 
 
if (pdAgent) 
pdAgent->Release(); 
 
return bValid; 
} 
 
 
extern "C" int PASCAL WinMain(HINSTANCE hInst, 
  HINSTANCE hInstPrev, 
  LPSTR lpCmdLine, 
  int nCmdShow) { 
 
HRESULThRes; 
_TCHARszError[256]; 
VARIANTvPath; 
BSTRbszSpeak; 
longlCharID; 
longlRequestID; 
IAgent   *pAgent; 
IDispatch   *pdCharacter; 
IAgentCharacter    *pCharacter = NULL; 
 
// Initialize OLE 
 
    if (FAILED(OleInitialize(NULL))) { 
MessageBox(NULL,  
   _T("There was an error initializing OLE."),  
   kpszAppTitle,  
   MB_OK | MB_ICONERROR); 
        return -1; 
} 
 
// Create an instance of the Agent server 
 
hRes = CoCreateInstance(CLSID_AgentServer, 
NULL, 
CLSCTX_SERVER, 
IID_IAgent, 
(LPVOID *)&pAgent); 
if (FAILED(hRes)) { 
 
wsprintf(szError, _T("There was an error initializing Microsoft Agent, code = 0x%x"), hRes); 
 
MessageBox(NULL,  
   szError,  
   kpszAppTitle,  
   MB_OK | MB_ICONERROR | MB_TOPMOST); 
return -1; 
} 
 
// Check to see if it is a compatible version 
 
if (!IsValidAgentVersion(pAgent)) { 
 
pAgent->Release(); 
 
MessageBox(NULL, 
   _T("The version of Microsoft Agent installed on this system is out of date.\nUpgrade to a new version of Microsoft Agent."), 
   kpszAppTitle, 
   MB_OK | MB_ICONEXCLAMATION | MB_TOPMOST); 
return -1; 
} 
 
// Create a variant to store the full path of the character to load 
 
VariantInit(&vPath); 
 
vPath.vt = VT_BSTR; 
vPath.bstrVal = SysAllocString(kpwszCharacter); 
 
if (vPath.bstrVal == NULL) { 
 
MessageBox(NULL,  
   _T("Out of memory!"),  
   kpszAppTitle,  
   MB_OK | MB_ICONERROR | MB_TOPMOST); 
 
return -1; 
} 
 
__try { 
 
// Load the character 
 
hRes = pAgent->Load(vPath, &lCharID, &lRequestID); 
 
if (FAILED(hRes)) 
__leave; 
 
// Get it's dispinterface 
 
hRes = pAgent->GetCharacter(lCharID, &pdCharacter); 
 
if (FAILED(hRes)) 
__leave; 
 
// Query for IAgentCharacter 
 
hRes = pdCharacter->QueryInterface(IID_IAgentCharacter, (LPVOID *)&pCharacter); 
 
// Release the IDispatch 
 
pdCharacter->Release(); 
 
// Did we get the IAgentCharacter interface? 
 
if (FAILED(hRes)) 
__leave; 
 
// Show the character.  The first parameter tells Microsoft 
// Agent to show the character by playing an animation. 
 
hRes = pCharacter->Show(FALSE, &lRequestID); 
 
if (FAILED(hRes)) 
__leave; 
 
// Make the character speak 
 
bszSpeak = SysAllocString(L"Hello World!"); 
 
hRes = pCharacter->Speak(bszSpeak, NULL, &lRequestID); 
 
SysFreeString(bszSpeak); 
 
if (FAILED(hRes)) 
__leave; 
 
// This is a very simplistic sample.  Sleep for 10 seconds 
// and then die.  
 
Sleep(10000); 
 
} 
__finally { 
 
if (FAILED(hRes)) { 
 
wsprintf(szError, _T("An error occurred in Microsoft Agent, code = 0x%x"), hRes); 
 
MessageBox(NULL,  
   szError,  
   kpszAppTitle,  
   MB_OK | MB_ICONERROR | MB_TOPMOST); 
} 
} 
 
// Clean up 
 
if (pCharacter) { 
 
// Release the character interface 
 
pCharacter->Release(); 
 
// Unload the character.  NOTE:  releasing the character 
// interface does NOT make the character go away.  You must 
// call Unload. 
 
pAgent->Unload(lCharID); 
} 
 
// Release the Agent 
 
pAgent->Release(); 
 
VariantClear(&vPath); 
 
OleUninitialize(); 
 
return 0; 
}