|
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]);
}
| 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 projectsDmitry Vasiliev (just.dmitry)
Related LinksSoftware 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
|
