BROWSEH.CPP (BROWSEH OLE Sample) - OLE Programmer's Reference

OLE Programmer's Reference

Home Index About

Custom Search

BROWSEH.CPP (BROWSEH OLE Sample)

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

OLE Automation TypeLibrary Browse Helper Sample
browse.cpp
CBrowseHelper implementation
Written by Microsoft Product Support Services, Windows Developer Support
(c) Copyright Microsoft Corp. 1994 All Rights Reserved
***********************************************************************/

#include <windows.h>

#include <windowsx.h>

#ifdef WIN16

#include <ole2.h>

#include <compobj.h>

#include <dispatch.h>

#include <variant.h>

#include <olenls.h>

#endif

#include "browseh.h"

* CBrowseHelper::Create

* Purpose:

* Creates an instance of the BrowseHelper automation object and initializes it.

* Parameters:

* ppBrowseHelper Returns BrowseHelper automation object.

* Return Value:

* HRESULT

HRESULT

CBrowseHelper::Create(CBrowseHelper FAR* FAR* ppBrowseHelper )

{

HRESULT hr;

CBrowseHelper FAR* pBrowseHelper = NULL;

*ppBrowseHelper = NULL;

// Create object.

pBrowseHelper = new CBrowseHelper();

if (pBrowseHelper == NULL)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

// Load type information for the application object from type library.

hr = pBrowseHelper->LoadTypeInfo(IID_IBrowseHelper);

if (FAILED(hr))

goto error;

#ifdef _DEBUG

lstrcpyn(pBrowseHelper->m_szClassName, TEXT("BrowseHelper"), 100);

#endif

*ppBrowseHelper = pBrowseHelper;

return NOERROR;

error:

if (pBrowseHelper == NULL)

return ResultFromScode(E_OUTOFMEMORY);

delete pBrowseHelper;

return hr;

}

* CBrowseHelper::CBrowseHelper

* Purpose:

* Constructor for CBrowseHelper object. Initializes members to NULL.

CBrowseHelper::CBrowseHelper()

{

extern ULONG g_cObj;

g_cObj++;

}

* CBrowseHelper::~CBrowseHelper

* Purpose:

* Destructor for CBrowseHelper object. Frees BrowseHelper message BSTR and default

* IDispatch implementation. Closes the aplication.

CBrowseHelper::~CBrowseHelper()

{

extern ULONG g_cObj;

g_cObj--;

}

STDMETHODIMP_(REFCLSID)

CBrowseHelper::GetInterfaceID()

{

return IID_IBrowseHelper;

}

* CBrowseHelper::BrowseTypeLibrary

* Purpose:

* Opens and browses type library. Creates and returns a TypeLibrary object.

STDMETHODIMP_(ITypeLibrary FAR*)

CBrowseHelper::BrowseTypeLibrary(BSTR bstrPath)

{

LPTYPELIB ptlib = NULL;

LPDISPATCH pdisp;

HRESULT hr;

CTypeLibrary FAR* pTypeLibrary;

hr = LoadTypeLib(bstrPath, &ptlib);

if (FAILED(hr))

{RaiseException(IDS_CannotFindTypeLibrary); return NULL;}

hr = CTypeLibrary::Create(ptlib, &pTypeLibrary);

if (FAILED(hr))

{RaiseException(IDS_TypeLibraryCreationFailed); goto error;}

hr = pTypeLibrary->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pdisp);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); goto error;}

ptlib->Release();

return (ITypeLibrary FAR*)pdisp;

error:

if (ptlib)

ptlib->Release();

return NULL;

}

Last news from Greatis Software

    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     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     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 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 offers controls with gradient background feature. Labels, panels and so on... Full C# source codes are available More »

    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)

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

greatis just4fun network