Home   Index   About
Ultimate Pack


Custom Search
HELLCTRL.CPP (HELLCTRL OLE Sample)

/*************************************************************************

  • Automation Controller that uses vtable binding.

  • Controls the HELLO automation object.

  • hellctrl.cpp

  • Written by Microsoft Product Support Services, Windows Developer Support

  • (c) Copyright Microsoft Corp. 1994 All Rights Reserved

  • ***********************************************************************/

#define STRICT

#include <windows.h>

#include <windowsx.h>

#ifdef WIN16

#include <ole2.h>

#include <compobj.h>

#include <dispatch.h>

#include <variant.h>

#include <olenls.h>

#include <commdlg.h>

#endif

#include <initguid.h>

#include "tlb.h"

#include "hellctrl.h"

// Globals

HINSTANCE g_hinst; // Instance of application

HWND g_hwnd; // Toplevel window handle

// String resource buffers

TCHAR g_szTitle[STR_LEN]; // Main window caption

TCHAR g_szResult[STR_LEN]; // "Result"

TCHAR g_szError[STR_LEN]; // "Error"

/*

* WinMain

*

* Purpose:

* Main entry point of application. Should register the app class

* if a previous instance has not done so and do any other one-time

* initializations.

*

*/

int APIENTRY WinMain (HINSTANCE hinst, HINSTANCE hinstPrev, LPSTR lpCmdLine, int nCmdShow)

{

MSG msg;

// It is recommended that all OLE applications set

// their message queue size to 96. This improves the capacity

// and performance of OLE's LRPC mechanism.

int cMsg = 96; // Recommend msg queue size for OLE

while (cMsg && !SetMessageQueue(cMsg)) // take largest size we can get.

cMsg -= 8;

if (!cMsg)

return -1; // ERROR: we got no message queue

// Load string constants

LoadString(hinst, IDS_PROGNAME, g_szTitle, STR_LEN);

LoadString(hinst, IDS_RESULT, g_szResult, STR_LEN);

LoadString(hinst, IDS_ERROR, g_szError, STR_LEN);

if (!hinstPrev)

if (!InitApplication(hinst))

return (FALSE);

if(OleInitialize(NULL) != NOERROR)

return FALSE;

if (!InitInstance(hinst, nCmdShow))

return (FALSE);

while (GetMessage(&msg, NULL, NULL, NULL))

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

OleUninitialize();

return (msg.wParam); // Returns the value from PostQuitMessage

}

/*

* InitApplication

*

* Purpose:

* Registers window class

*

* Parameters:

* hinst hInstance of application

*

* Return Value:

* TRUE if initialization succeeded, FALSE otherwise.

*/

BOOL InitApplication (HINSTANCE hinst)

{

WNDCLASS wc;

wc.style = CS_DBLCLKS;

wc.lpfnWndProc = MainWndProc;

wc.cbClsExtra = 0;

wc.cbWndExtra = 0;

wc.hInstance = hinst;

wc.hIcon = LoadIcon(hinst, TEXT("ControlIcon"));

wc.hCursor = LoadCursor(NULL, IDC_ARROW);

wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);

wc.lpszMenuName = TEXT("ControlMenu");

wc.lpszClassName = TEXT("MainWndClass");

return RegisterClass(&wc);

}

/*

* InitInstance

*

* Purpose:

* Creates and shows main window

*

* Parameters:

* hinst hInstance of application

* nCmdShow specifies how window is to be shown

*

* Return Value:

* TRUE if initialization succeeded, FALSE otherwise.

*/

BOOL InitInstance (HINSTANCE hinst, int nCmdShow)

{

g_hinst = hinst;

// Create Main Window

g_hwnd = CreateWindow(TEXT("MainWndClass"), g_szTitle,

WS_OVERLAPPEDWINDOW,

CW_USEDEFAULT, CW_USEDEFAULT,

400, 200,

NULL, NULL, hinst, NULL);

if (!g_hwnd)

return FALSE;

ShowWindow(g_hwnd, nCmdShow);

UpdateWindow(g_hwnd);

return TRUE;

}

/*

* MainWndProc

*

* Purpose:

* Window procedure for main window

*

*/

LRESULT CALLBACK MainWndProc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)

{

static IHello FAR* phello = NULL;

HRESULT hr;

LPUNKNOWN punk;

switch (msg)

{

case WM_COMMAND:

switch (wParam)

{

case IDM_CREATEHELLO:

// Create Hello object and QueryInterface for IHello interface.

hr = CoCreateInstance(CLSID_Hello, NULL, CLSCTX_SERVER,

IID_IUnknown, (void FAR* FAR*)&punk);

if (FAILED(hr))

{

MessageBox(NULL, TEXT("CoCreateInstance"), g_szError, MB_OK);

return 0L;

}

hr = punk->QueryInterface(IID_IHello, (void FAR* FAR*)&phello);

if (FAILED(hr))

{

MessageBox(NULL, TEXT("QueryInterface(IID_IHello)"), g_szError, MB_OK);

punk->Release();

return 0L;

}

punk->Release();

return 0L;

case IDM_SETVISIBLE:

// Set Visible property to TRUE

hr = phello->put_Visible(TRUE);

if (FAILED(hr))

DisplayError(phello);

return 0L;

case IDM_SETINVISIBLE:

// Set visible property to FALSE

hr = phello->put_Visible(FALSE);

if (FAILED(hr))

DisplayError(phello);

return 0L;

case IDM_GETHELLOMESSAGE:

{

// Access Hello Message property and display it

// in a MessageBox

BSTR bstr = NULL; // BSTR must be intialized before passing

// to get_HelloMessage.

hr = phello->get_HelloMessage(&bstr);

if (FAILED(hr))

DisplayError(phello);

else MessageBox(NULL, FROM_OLE_STRING(bstr), g_szResult, MB_OK);

// Caller is responsible for freeing parameters and return values.

if (bstr)

SysFreeString(bstr);

return 0L;

}

case IDM_SAYHELLO:

// Invoke SayHello method

hr = phello->SayHello();

if (FAILED(hr))

DisplayError(phello);

return 0L;

case IDM_RELEASEHELLO:

// Release the Hello object

phello->Release();

phello = NULL;

return 0L;

}

break;

case WM_INITMENUPOPUP:

{

HMENU hmenu = (HMENU)wParam;

if (LOWORD(lParam) != 0)

return 0L;

// Enable or gray the appropriate menu items. phello indicates if an automation object

// is currently being controlled.

EnableMenuItem(hmenu, IDM_CREATEHELLO, MF_BYCOMMAND | (phello?MF_GRAYED:MF_ENABLED));

EnableMenuItem(hmenu, IDM_SETVISIBLE, MF_BYCOMMAND | (phello?MF_ENABLED:MF_GRAYED));

EnableMenuItem(hmenu, IDM_SETINVISIBLE, MF_BYCOMMAND | (phello?MF_ENABLED:MF_GRAYED));

EnableMenuItem(hmenu, IDM_GETHELLOMESSAGE, MF_BYCOMMAND | (phello?MF_ENABLED:MF_GRAYED));

EnableMenuItem(hmenu, IDM_SAYHELLO, MF_BYCOMMAND | (phello?MF_ENABLED:MF_GRAYED));

EnableMenuItem(hmenu, IDM_RELEASEHELLO, MF_BYCOMMAND | (phello?MF_ENABLED:MF_GRAYED));

return 0L;

}

case WM_DESTROY:

if (phello)

phello->Release();

PostQuitMessage(0);

break;

default:

return DefWindowProc(hwnd, msg, wParam, lParam);

}

return NULL;

}

/*

* DisplayError

*

* Purpose:

* Obtains Rich Error Information about the automation error from

* the IErrorInfo interface.

*

*/

  • oid DisplayError(IHello FAR* phello)

{

IErrorInfo FAR* perrinfo;

BSTR bstrDesc;

HRESULT hr;

/*

// This is commented out because the OLE 2.02 release did not

// include remoting code for ISupportErrorInfo.

ISupportErrorInfo FAR* psupporterrinfo;

hr = phello->QueryInterface(IID_ISupportErrorInfo, (LPVOID FAR*)&psupporterrinfo);

if (FAILED(hr))

{

MessageBox(NULL, TEXT("QueryInterface(IID_ISupportErrorInfo)"), g_szError, MB_OK);

return;

}

hr = psupporterrinfo->InterfaceSupportsErrorInfo(IID_IHello);

if (hr != NOERROR)

{

psupporterrinfo->Release();

return;

}

psupporterrinfo->Release();

// In this example only the error description is obtained and displayed.

// See the IErrorInfo interface fo other information that is available.

hr = GetErrorInfo(0, &perrinfo);

if (FAILED(hr))

return;

hr = perrinfo->GetDescription(&bstrDesc);

if (FAILED(hr))

{

perrinfo->Release();

return;

}

MessageBox(NULL, FROM_OLE_STRING(bstrDesc), g_szError, MB_OK);

SysFreeString(bstrDesc);

}

#ifdef WIN32

#ifndef UNICODE

char* ConvertToAnsi(OLECHAR FAR* szW)

{

static char achA[STRCONVERT_MAXLEN];

WideCharToMultiByte(CP_ACP, 0, szW, -1, achA, STRCONVERT_MAXLEN, NULL, NULL);

return achA;

}

OLECHAR* ConvertToUnicode(char FAR* szA)

{

static OLECHAR achW[STRCONVERT_MAXLEN];

MultiByteToWideChar(CP_ACP, 0, szA, -1, achW, STRCONVERT_MAXLEN);

return achW;

}

#endif

#endif


Last news from Greatis Software

Nostalgia .Net     Nostalgia .Net     .Net is powerful, but not all-powerful, so sometimes we need to use Win32 API for our .Net applications. It's simple enough with Platform Invoke if you have Win32 skill, but we do not always have time to dig the ancient documentation, declare the special types that are compatible with Win32, find the values of the Win32's constants and so on. Nostalgia .Net offers several simple-to-use classes, and components that will allow you to forget about the headache of Win32 and just use the power of Win32 in your application the same way as you use the native. Net classes.  More »
Recommended software for developers

Ultimate Pack for Delphi and C++ Builder     Ultimate Pack     Component pack for Delphi and C++ Builder that contains runtime form designer, runtime object inspector, print suite and much more for the very special price.  More »
Form Designer .Net     Form Designer .Net     Unique runtime form design solution that allows to edit any form in .Net WinForms application at runtime with full source codes for only 300 euro!  More »
Print Suite .Net     Print Suite .Net     Print Suite .Net is a set of components for easy printing texts, images and grids from your WinForms applications. Full C# source codes are available  More »
Gradient Controls .Net     Gradient Controls .Net     Gradient Controls .Net offers controls with gradient background feature. Labels, panels and so on... Full C# source codes are available  More »
iGrid     Greatis iGrid     iGrid plots drawing grid right over your desktop, so you can use it everywhere, with any drawing application without any special plugins for different graphic editors.  More »


All the contacts and projects

Dmitry Vasiliev (just.dmitry)

Related Links

Software for Visual Studio .NET developers
Software for Delphi and C++ Builder developers
Software for Visual Basic 6 developers
Delphi Tips&Tricks
MegaDetailed.NET

More Online Helps

Win32 Programmer's Reference
Win32 Multimedia Programmer's Reference
OLE Programmer's Reference
Microsoft Windows Pen API Programmer's Reference
Microsoft Windows Sockets 2 Reference
Microsoft Windows Telephony API (TAPI) Programmer's Reference
Unix Manual Pages

Free Tech Secrets ;) Copyright © 2008-2012 Free Tech Secrets ;) greatis just4fun network just4fun