APP.CPP (LINES OLE Sample)

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

OLE Automation Lines Object.
app.cpp
CApplication 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 "lines.h"

* CApplication::Create

* Purpose:

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

* Parameters:

* hinst HINSTANCE of application.

* ppApplication Returns Application automation object.

* Return Value:

* HRESULT

HRESULT

CApplication::Create(HINSTANCE hinst, CApplication FAR* FAR* ppApplication )

{

TCHAR ach[STR_LEN];

TCHAR achFullName[260];

HRESULT hr;

CApplication FAR* pApplication = NULL;

HWND hwnd;

*ppApplication = NULL;

// Create application object.

pApplication = new CApplication();

if (pApplication == NULL)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

LoadString(hinst, IDS_Name, ach, sizeof(ach));

hwnd = CreateWindow(TEXT("MainWndClass"), ach,

WS_OVERLAPPEDWINDOW,

CW_USEDEFAULT, CW_USEDEFAULT,

650, 650,

NULL, NULL, hinst, NULL);

if (!hwnd)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

pApplication->m_hwnd = hwnd;

pApplication->m_hinst = hinst;

// Set name and fullname of application.

pApplication->m_bstrName = SysAllocString(TO_OLE_STRING(ach));

if (NULL == pApplication->m_bstrName)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

GetModuleFileName(hinst, achFullName, sizeof(achFullName));

pApplication->m_bstrFullName = SysAllocString(TO_OLE_STRING(achFullName));

if (NULL == pApplication->m_bstrFullName)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

// ProgID

LoadString(hinst, IDS_ProgID, ach, sizeof(ach));

pApplication->m_bstrProgID = SysAllocString(TO_OLE_STRING(ach));

if (NULL == pApplication->m_bstrProgID)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

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

// If required, notify user on failure.

hr = LoadTypeInfo(&pApplication->m_ptinfo, IID_IApplication);

if (FAILED(hr))

{

LoadString(hinst, IDS_ErrorLoadingTypeLib, ach, sizeof(ach));

MessageBox(NULL, ach, FROM_OLE_STRING(pApplication->m_bstrName), MB_OK);

goto error;

}

// Create Pane

hr = CPane::Create(hwnd, &pApplication->m_pPane);

if (FAILED(hr))

goto error;

pApplication->m_pPane->AddRef();

*ppApplication = pApplication;

return NOERROR;

error:

if (pApplication == NULL)

return ResultFromScode(E_OUTOFMEMORY);

if (pApplication->m_bstrFullName)

SysFreeString(pApplication->m_bstrFullName);

if (pApplication->m_bstrName)

SysFreeString(pApplication->m_bstrName);

if (pApplication->m_bstrProgID)

SysFreeString(pApplication->m_bstrProgID);

if (pApplication->m_ptinfo)

pApplication->m_ptinfo->Release();

if (pApplication->m_pPane)

pApplication->m_pPane->Release();

// Set to NULL to prevent destructor from attempting to free again

pApplication->m_bstrFullName = NULL;

pApplication->m_bstrName = NULL;

pApplication->m_bstrProgID = NULL;

pApplication->m_ptinfo = NULL;

pApplication->m_pPane = NULL;

delete pApplication;

return hr;

}

* CApplication::CApplication

* Purpose:

* Constructor for CApplication object. Initializes members to NULL.

#pragma warning (disable : 4355)

CApplication::CApplication() : m_SupportErrorInfo(this, IID_IApplication)

#pragma warning (default : 4355)

{

extern ULONG g_cObj;

m_hwnd = NULL;

m_bstrFullName = NULL;

m_bstrName = NULL;

m_bstrProgID = NULL;

m_ptinfo = NULL;

m_pPane = NULL;

m_cRef = 0;

m_bVisible = 0;

m_bUserClosing = FALSE;

}

* CApplication::~CApplication

* Purpose:

* Destructor for CApplication object. Frees Application message BSTR and default

* IDispatch implementation. Closes the aplication.

CApplication::~CApplication()

{

extern ULONG g_cObj;

if (m_bstrFullName) SysFreeString(m_bstrFullName);

if (m_bstrName) SysFreeString(m_bstrName);

if (m_bstrProgID) SysFreeString(m_bstrProgID);

if (m_ptinfo) m_ptinfo->Release();

if (m_pPane) m_pPane->Release();

if (!m_bUserClosing && IsWindow(m_hwnd)) DestroyWindow(m_hwnd);

}

* CApplication::QueryInterface, AddRef, Release

* Purpose:

* Implements IUnknown::QueryInterface, AddRef, Release

STDMETHODIMP

CApplication::QueryInterface(REFIID iid, void FAR* FAR* ppv)

{

*ppv = NULL;

if (iid == IID_IUnknown || iid == IID_IDispatch || iid == IID_IApplication)

*ppv = this;

else if (iid == IID_ISupportErrorInfo)

*ppv = &m_SupportErrorInfo;

else return ResultFromScode(E_NOINTERFACE);

AddRef();

return NOERROR;

}

STDMETHODIMP_(ULONG)

CApplication::AddRef(void)

{

#ifdef _DEBUG

TCHAR ach[50];

wsprintf(ach, TEXT("Ref = %ld, App\r\n"), m_cRef+1);

OutputDebugString(ach);

#endif

return ++m_cRef;

}

STDMETHODIMP_(ULONG)

CApplication::Release(void)

{

#ifdef _DEBUG

TCHAR ach[50];

wsprintf(ach, TEXT("Ref = %ld, App\r\n"), m_cRef-1);

OutputDebugString(ach);

#endif

if(--m_cRef == 0)

{

delete this;

return 0;

}

return m_cRef;

}

* CApplication::GetTypeInfoCount

* Purpose:

* Implements IDispatch::GetTypeInfoCount.

STDMETHODIMP

CApplication::GetTypeInfoCount(UINT FAR* pctinfo)

{

*pctinfo = 1;

return NOERROR;

}

* CApplication::GetTypeInfo

* Purpose:

* Implements IDispatch::GetTypeInfo.

STDMETHODIMP

CApplication::GetTypeInfo(

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo)

{

*pptinfo = NULL;

if(itinfo != 0)

return ResultFromScode(DISP_E_BADINDEX);

m_ptinfo->AddRef();

*pptinfo = m_ptinfo;

return NOERROR;

}

* CApplication::GetIDsOfNames

* Purpose:

* Implements IDispatch::GetIDsOfNames. The standard implementation, DispGetIDsOfNames,

* is used.

STDMETHODIMP

CApplication::GetIDsOfNames(

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid)

{

return DispGetIDsOfNames(m_ptinfo, rgszNames, cNames, rgdispid);

}

* CApplication::Invoke

* Purpose:

* Implements IDispatch::Invoke. The standard implementation, DispInvoke,

* is used. Properties and methods exposed by the application object will

* set m_bRaiseException to raise an exception.

STDMETHODIMP

CApplication::Invoke(

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr)

{

HRESULT hr;

m_bRaiseException = FALSE;

hr = DispInvoke(

this, m_ptinfo,

dispidMember, wFlags, pdispparams,

pvarResult, pexcepinfo, puArgErr);

if (m_bRaiseException)

{

if (NULL != pexcepinfo)

_fmemcpy(pexcepinfo, &m_excepinfo, sizeof(EXCEPINFO));

return ResultFromScode(DISP_E_EXCEPTION);

}

else return hr;

}

* CApplication::get_Application, get_FullName, get_Name, get_Parent, get_Visible, put_Visible, Quit

* Purpose:

* Implements the standard Application, FullName, Name, Parent & Visible properties

* and the Quit method.

STDMETHODIMP

CApplication::get_Application(IApplication FAR* FAR* ppApplication)

{

HRESULT hr;

hr = QueryInterface(IID_IDispatch, (void FAR* FAR*)ppApplication);

if (FAILED(hr))

return RaiseException(IDS_Unexpected);

return NOERROR;

}

STDMETHODIMP

CApplication::get_FullName(BSTR FAR* pbstr)

{

*pbstr = SysAllocString(m_bstrFullName);

return NOERROR;

}

STDMETHODIMP

CApplication::get_Name(BSTR FAR* pbstr)

{

*pbstr = SysAllocString(m_bstrName);

return NOERROR;

}

STDMETHODIMP

CApplication::get_Parent(IApplication FAR* FAR* ppApplication)

{

HRESULT hr;

hr = QueryInterface(IID_IDispatch, (void FAR* FAR*)ppApplication);

if (FAILED(hr))

return RaiseException(IDS_Unexpected);

return NOERROR;

}

STDMETHODIMP

CApplication::put_Visible(VARIANT_BOOL bVisible)

{

ShowWindow(bVisible ? SW_SHOW : SW_HIDE);

return NOERROR;

}

STDMETHODIMP

CApplication::get_Visible(VARIANT_BOOL FAR* pbVisible)

{

*pbVisible = m_bVisible;

return NOERROR;

}

STDMETHODIMP

CApplication::Quit()

{

// CoDisconnectObject has no effect for an inproc server. So the controller

// will GP fault if it attempts to access the object (including calling IUnknown::Release())

// after Quit has been called. For a local server, CoDisconnectObject will disconnect

// the object from external connections. So the controller will get an RPC error if

// it access the object after calling Quit. The controller will not GP fault in this case.

CoDisconnectObject((LPUNKNOWN)this, 0);

PostMessage(m_hwnd, WM_CLOSE, 0, 0L);

return NOERROR;

}

* CApplication::get_Pane

* Purpose:

* Returns pane object.

STDMETHODIMP

CApplication::get_Pane(IPane FAR* FAR* ppPane)

{

HRESULT hr;

hr = m_pPane->QueryInterface(IID_IDispatch, (void FAR* FAR*)ppPane);

if (FAILED(hr))

return RaiseException(IDS_Unexpected);

return NOERROR;

}

* CApplication::CreateLine

* Purpose:

* Returns a newly created line object with no start or end point.

STDMETHODIMP

CApplication::CreateLine(ILine FAR* FAR* ppLine)

{

CLine FAR* pline = NULL;

HRESULT hr;

// Create new item and QI for IDispatch

hr = CLine::Create(&pline);

if (FAILED(hr))

{hr = RaiseException(IDS_OutOfMemory); goto error;}

hr = pline->QueryInterface(IID_IDispatch, (void FAR* FAR*)ppLine);

if (FAILED(hr))

{hr = RaiseException(IDS_Unexpected); goto error;}

return NOERROR;

error:

if (pline)

delete pline;

return hr;

}

* CApplication::CreateLine

* Purpose:

* Returns a newly created point object intialized to (0,0).

STDMETHODIMP

CApplication::CreatePoint(IPoint FAR* FAR* ppPoint)

{

CPoint FAR* ppoint = NULL;

HRESULT hr;

// Create new item and QI for IDispatch

hr = CPoint::Create(&ppoint);

if (FAILED(hr))

{hr = RaiseException(IDS_OutOfMemory); goto error;}

hr = ppoint->QueryInterface(IID_IDispatch, (void FAR* FAR*)ppPoint);

if (FAILED(hr))

{hr = RaiseException(IDS_Unexpected); goto error;}

return NOERROR;

error:

if (ppoint)

delete ppoint;

return hr;

}

* The following methods are not exposed through Automation

STDMETHODIMP_(void)

CApplication::Draw()

{

m_pPane->Draw();

}

* CApplication::OnSize

* Purpose:

* Called when application window receives WM_SIZE.

STDMETHODIMP_(void)

CApplication::OnSize(unsigned int nWidth, unsigned int nHeight)

{

m_pPane->OnSize(nWidth, nHeight);

}

STDMETHODIMP_(void)

CApplication::ShowWindow(int nCmdShow)

{

// Return if curently hidden and asked to hide or currently visible

// and asked to show.

if ((!m_bVisible && nCmdShow == SW_HIDE) || (m_bVisible && nCmdShow != SW_HIDE))

return;

m_bVisible = (nCmdShow == SW_HIDE) ? FALSE : TRUE;

// The Automation object shutdown behavior is as follows:

// 1. If the object application is visible, it shuts down only in response to an

// explicit user command (File/Exit) or it's programmatic equivalent (for example

// the Quit method of the Application object).

// 2. If the object application is not visible, it goes away when it's last

// object is released.

// CoLockObjectExternal can be used to increment the ref count of the application object

// when it is visible. This will implement shutdown behavior 1. When the application

// goes invisible, CoLockObjectExternal is used to decrement the ref count. This will

// implement shutdown behavior 2.

if (m_bVisible)

CoLockObjectExternal(this, TRUE /*fLock*/, TRUE/*ignored when fLock==TRUE*/);

else CoLockObjectExternal(this, FALSE/*fLock*/, TRUE/*fLastLockReleases*/);

::ShowWindow (m_hwnd, nCmdShow);

}

STDMETHODIMP_(void)

CApplication::CreateAndDrawLine()

{

LINEINFO lineinfo;

CLine FAR* pLine = NULL;

CPoint FAR* pPointStart = NULL;

CPoint FAR* pPointEnd = NULL;

ILines FAR* pLines = NULL;

int nRet;

HRESULT hr;

nRet = DialogBoxParam(m_hinst, MAKEINTRESOURCE(IDD_DRAWLINE), m_hwnd,

(DLGPROC)DrawLineDialogFunc, (LPARAM)(LPLINEINFO)&lineinfo);

if (nRet != IDOK)

return;

hr = CLine::Create(&pLine);

if (FAILED(hr))

goto error;

hr = CPoint::Create(&pPointStart);

if (FAILED(hr))

goto error;

hr = CPoint::Create(&pPointEnd);

if (FAILED(hr))

goto error;

pPointStart->put_x(lineinfo.ptStart.x);

pPointStart->put_y(lineinfo.ptStart.y);

pPointEnd->put_x(lineinfo.ptEnd.x);

pPointEnd->put_y(lineinfo.ptEnd.y);

pLine->putref_StartPoint(pPointStart);

pLine->putref_EndPoint(pPointEnd);

pLine->put_Thickness(lineinfo.nThickness);

pLine->put_Color(lineinfo.colorref);

hr = m_pPane->get_Lines(&pLines);

if (FAILED(hr))

goto error;

hr = pLines->Add(pLine);

if (FAILED(hr))

goto error;

pLines->Release();

return;

error:

if (pLine) delete pLine;

if (pPointStart) delete pPointStart;

if (pPointEnd) delete pPointEnd;

if (pLines) pLines->Release();

MessageBox(m_hwnd, TEXT("Cannot create Line"), m_bstrName, MB_OK);

}

STDMETHODIMP_(void)

CApplication::ClearPane()

{

m_pPane->Clear();

}

* CApplication::RaiseException

* Purpose:

* Fills the EXCEPINFO structure and signal IDispatch::Invoke to return DISP_E_EXCEPTION.

* Sets ErrorInfo object for vtable-binding controllers.

STDMETHODIMP

CApplication::RaiseException(int nID)

{

extern SCODE g_scodes[];

TCHAR szError[STR_LEN];

ICreateErrorInfo *pcerrinfo;

IErrorInfo *perrinfo;

HRESULT hr;

_fmemset(&m_excepinfo, 0, sizeof(EXCEPINFO));

m_excepinfo.wCode = nID;

if (LoadString(m_hinst, nID, szError, sizeof(szError)))

m_excepinfo.bstrDescription = SysAllocString(TO_OLE_STRING(szError));

m_excepinfo.bstrSource = SysAllocString(m_bstrProgID);

m_bRaiseException = TRUE;

// Set ErrInfo object so that vtable binding containers can get

// rich error information.

hr = CreateErrorInfo(&pcerrinfo);

if (SUCCEEDED(hr))

{

pcerrinfo->SetGUID(IID_IApplication);

if (m_excepinfo.bstrSource)

pcerrinfo->SetSource(m_excepinfo.bstrSource);

if (m_excepinfo.bstrDescription)

pcerrinfo->SetDescription(m_excepinfo.bstrDescription);

hr = pcerrinfo->QueryInterface(IID_IErrorInfo, (LPVOID FAR*) &perrinfo);

if (SUCCEEDED(hr))

{

SetErrorInfo(0, perrinfo);

perrinfo->Release();

}

pcerrinfo->Release();

}

return ResultFromScode(g_scodes[nID-1001]);

}

Software for developers: Delphi Components
.Net Components
Software for Android Developers
More information resources: MegaDetailed.Net
Unix Manual Pages
Delphi Examples
Databases for Amazon shops developers: Amazon Categories Database
Browse Nodes Database