LINES.H (LINES OLE Sample)

#ifdef WIN32

#ifdef UNICODE

#define FROM_OLE_STRING(str) str

#define TO_OLE_STRING(str) str

#else

#define FROM_OLE_STRING(str) ConvertToAnsi(str)

char* ConvertToAnsi(OLECHAR FAR* szW);

#define TO_OLE_STRING(str) ConvertToUnicode(str)

OLECHAR* ConvertToUnicode(char FAR* szA);

// Maximum length of string that can be converted between Ansi & Unicode

#define STRCONVERT_MAXLEN 300

#endif

#else // WIN16

#define APIENTRY far pascal

#define TCHAR char

#define TEXT(sz) sz

#define FROM_OLE_STRING(str) str

#define TO_OLE_STRING(str) str

#define LPTSTR LPSTR

// Windows NT defines the following in windowsx.h

#define GET_WM_COMMAND_ID(w,l) (w)

#define GET_WM_COMMAND_CMD(w,l) HIWORD(l)

#define GET_WM_COMMAND_HWND(w,l) LOWORD(l)

#endif

#include "tlb.h"

#define STRICT

// Menu IDs

#define IDM_DRAWLINE 101

#define IDM_CLEAR 102

#define IDM_EXIT 103

// Dialog ID

#define IDD_DRAWLINE 101

// Icon ID

#define IDI_ICON 102

// Dialog Control IDs

#define IDC_THICKNESS 101

#define IDC_CHOOSECOLOR 102

#define IDC_STARTPOINT_X 103

#define IDC_STARTPOINT_Y 104

#define IDC_ENDPOINT_X 105

#define IDC_ENDPOINT_Y 106

#define IDC_STATIC -1

// MAX len of string table entries

#define STR_LEN 200

// String table constants

#define IDS_Name 1

#define IDS_ErrorLoadingTypeLib 2

#define IDS_ProgID 3

#define IDS_Unexpected 1001

#define IDS_OutOfMemory 1002

#define IDS_InvalidIndex 1003

#define IDS_CollectionFull 1004

#define IDS_LineFromOtherInstance 1005

#define IDS_CantAddEndPoints 1006

#define IDS_PointFromOtherInstance 1007

#define IDS_NoVisibleXCoordinate 1008

#define IDS_NoVisibleYCoordinate 1009

#define IDS_NoStartPoint 1010

#define IDS_NoEndPoint 1011

// SCODEs for the Lines Application. This is required for vtable-binding

// Automation objects want to return custom HRESULTs. All the OLE-defined

// FACILITY_ITF codes have a code value which lies in the region 0x0000-0x01FFF.

// While it is legal for the definer to use any code, it is highly recommended

// that only code values in the range 0x0200-0xFFFF be used, as this will reduce the

// possiblity of accidental confusion with any OLE-defined errors.

#define LINES_E_FIRST MAKE_SCODE(SEVERITY_ERROR, FACILITY_ITF, 0x0200)

#define LINES_E_UNEXPECTED (LINES_E_FIRST + 0x0)

// Unexpected error

#define LINES_E_OUTOFMEMORY (LINES_E_FIRST + 0x1)

// Out of memory

#define LINES_E_INVALIDINDEX (LINES_E_FIRST + 0x2)

// Invalid index to Points or Lines collections

#define LINES_E_COLLECTIONFULL (LINES_E_FIRST + 0x3)

// Points or Lines collection is full

#define LINES_E_LINEFROMOTHERINSTANCE (LINES_E_FIRST + 0x4)

// Line from another instance of this application cannot be added.

#define LINES_E_CANTADDENDPOINTS (LINES_E_FIRST + 0x5)

// End points of line cannot be added to collection. (Make sure line has two end points).

#define LINES_E_POINTFROMOTHERINSTANCE (LINES_E_FIRST + 0x6)

// Point from another instance of this application cannot be added.

#define LINES_E_NOVISIBLEXCOORDINATE (LINES_E_FIRST + 0x7)

// No visible X coordinate.

#define LINES_E_NOVISIBLEYCOORDINATE (LINES_E_FIRST + 0x8)

// No visible Y coordinate.

#define LINES_E_NOSTARTPOINT (LINES_E_FIRST + 0x9)

// Line does not have a start point.

#define LINES_E_NOENDPOINT (LINES_E_FIRST + 0xA)

// Line does not have an end point.

// Number of SCODEs

#define SCODE_COUNT 11

// Function prototypes

int APIENTRY WinMain (HINSTANCE, HINSTANCE, LPSTR, int);

BOOL InitApplication (HINSTANCE);

BOOL InitInstance (HINSTANCE);

BOOL ProcessCmdLine(LPSTR pCmdLine, LPDWORD pdwRegisterCF, LPDWORD pdwRegisterActiveObject, int nCmdShow);

• oid Uninitialize(DWORD dwRegisterCF, DWORD dwRegisterActiveObject);

HRESULT LoadTypeInfo(ITypeInfo FAR* FAR* pptinfo, REFCLSID clsid);

#ifdef WIN16

extern "C" LRESULT __export CALLBACK MainWndProc (HWND, UINT, WPARAM, LPARAM);

extern "C" BOOL __export CALLBACK DrawLineDialogFunc(HWND, UINT, WPARAM, LPARAM);

#else

extern "C" LRESULT CALLBACK MainWndProc (HWND, UINT, WPARAM, LPARAM);

extern "C" BOOL CALLBACK DrawLineDialogFunc(HWND, UINT, WPARAM, LPARAM);

#endif

// Class definitions

class CPane;

class CLine;

class CPoint;

class CLines;

class CPoints;

// ISupportErrorInfo interface implementation

interface CSupportErrorInfo : public ISupportErrorInfo

{

public:

// IUnknown methods

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)(void);

STDMETHOD_(ULONG, Release)(void);

// ISupportErrorInfo method

STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);

CSupportErrorInfo(IUnknown FAR* punkObject, REFIID riid);

private:

LPUNKNOWN m_punkObject; // IUnknown of Object that implements this interface

GUID m_iid;

};

class FAR CApplicationCF : public IClassFactory

{

public:

// IUnknown methods

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)(void);

STDMETHOD_(ULONG, Release)(void);

// IClassFactory methods

STDMETHOD(CreateInstance)(IUnknown FAR* punkOuter, REFIID riid,

void FAR* FAR* ppv);

STDMETHOD(LockServer)(BOOL fLock);

CApplicationCF();

private:

ULONG m_cRef; // Reference count

};

class FAR CApplication : public IApplication

{

public:

/* IUnknown methods */

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

/* IDispatch methods */

STDMETHOD(GetTypeInfoCount)(UINT FAR* pctinfo);

STDMETHOD(GetTypeInfo)(

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo);

STDMETHOD(GetIDsOfNames)(

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid);

STDMETHOD(Invoke)(

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr);

/* IApplication automation exposed properties and methods */

STDMETHOD(get_Application)(IApplication FAR* FAR* ppApplication);

STDMETHOD(get_FullName)(BSTR FAR* pbstr);

STDMETHOD(get_Name)(BSTR FAR* pbstr);

STDMETHOD(get_Parent)(IApplication FAR* FAR* ppApplication);

STDMETHOD(put_Visible)(VARIANT_BOOL bVisible);

STDMETHOD(get_Visible)(VARIANT_BOOL FAR* pbVisible);

STDMETHOD(Quit)();

STDMETHOD(get_Pane)(IPane FAR* FAR* ppPane);

STDMETHOD(CreateLine)(ILine FAR* FAR* ppLine);

STDMETHOD(CreatePoint)(IPoint FAR* FAR* ppPoint);

/* CApplication methods */

STDMETHOD_(void, Draw)();

STDMETHOD_(void, OnSize)(unsigned int nWidth, unsigned int nHeight);

STDMETHOD_(void, ShowWindow)(int nCmdShow);

STDMETHOD_(void, CreateAndDrawLine)();

STDMETHOD_(void, ClearPane)();

STDMETHOD(RaiseException)(int nID);

static HRESULT Create(HWND hwnd, CApplication FAR* FAR* ppApplication); // Creates and intializes Applicaton object

CApplication();

~CApplication();

public:

HWND m_hwnd; // Application window.

HINSTANCE m_hinst; // Hinstance of application.

BSTR m_bstrName; // Name of application.

BSTR m_bstrProgID; // ProgID of application.

BOOL m_bUserClosing; // User is closing the application.

private:

LPTYPEINFO m_ptinfo; // Type information of IApplication interface.

BSTR m_bstrFullName; // Full name of application.

BOOL m_bVisible; // Is window visible?

CPane FAR* m_pPane; // Pointer to the Pane object.

EXCEPINFO m_excepinfo; // Information to raise an exception on error.

BOOL m_bRaiseException; // Properties and methods use this to signal that an exception is to be raised.

ULONG m_cRef; // Reference count.

CSupportErrorInfo m_SupportErrorInfo; // ISupportErrorInfo interface implementation

};

class FAR CPane : public IPane

{

public:

/* IUnknown methods */

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

/* IDispatch methods */

STDMETHOD(GetTypeInfoCount)(UINT FAR* pctinfo);

STDMETHOD(GetTypeInfo)(

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo);

STDMETHOD(GetIDsOfNames)(

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid);

STDMETHOD(Invoke)(

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr);

/* IPane automation exposed properties & methods */

STDMETHOD(get_Lines)(ILines FAR* FAR* ppLines);

STDMETHOD(get_Points)(IPoints FAR* FAR* ppPoints);

STDMETHOD(get_MaxX)(int FAR* pnMaxX);

STDMETHOD(get_MaxY)(int FAR* pnMaxY);

STDMETHOD(Clear)();

STDMETHOD(Refresh)();

/* CPane methods */

STDMETHOD_(void, Draw)();

STDMETHOD_(void, OnSize)(unsigned int nWidth, unsigned int nHeight);

STDMETHOD_(HDC, GetDC)();

STDMETHOD_(void, ReleaseDC)(HDC hdc);

STDMETHOD_(void, InvalidateRect)(LPRECT prc);

STDMETHOD_(void, Update)(void);

STDMETHOD_(BOOL, AddPoint)(CPoint FAR* pPoint);

STDMETHOD_(void, RemovePoint)(CPoint FAR* pPoint);

STDMETHOD(RaiseException)(int nID);

static HRESULT Create(HWND hwnd, CPane FAR* FAR* ppPane); // Creates and intializes Pane object

CPane();

~CPane();

private:

LPTYPEINFO m_ptinfo; // Type information of IPane interface.

HWND m_hwnd; // Main window.

CLines FAR *m_pLines; // Lines collection.

CPoints FAR* m_pPoints; // Points collection.

int m_nMaxX; // Maximum visible X coordinate in twips.

int m_nMaxY; // Maximum visible Y coordinate in twips.

int m_nWidth; // Width of pane in twips.

int m_nHeight; // Height of pane in twips.

EXCEPINFO m_excepinfo; // Information to raise an exception on error.

BOOL m_bRaiseException; // Properties and methods use this to signal that an exception is to be raised.

ULONG m_cRef; // Reference count.

CSupportErrorInfo m_SupportErrorInfo; // ISupportErrorInfo interface implementation

};

class FAR CLine : public ILine

{

public:

/* IUnknown methods */

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

/* IDispatch methods */

STDMETHOD(GetTypeInfoCount)(UINT FAR* pctinfo);

STDMETHOD(GetTypeInfo)(

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo);

STDMETHOD(GetIDsOfNames)(

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid);

STDMETHOD(Invoke)(

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr);

/* ILine automation exposed properties & methods */

STDMETHOD(get_Color)(long FAR* plColorref);

STDMETHOD(put_Color)(long lColorref);

STDMETHOD(get_EndPoint)(IPoint FAR* FAR* ppPoint);

STDMETHOD(putref_EndPoint)(IPoint FAR* pPoint);

STDMETHOD(get_StartPoint)(IPoint FAR* FAR* ppPoint);

STDMETHOD(putref_StartPoint)(IPoint FAR* pPoint);

STDMETHOD(get_Thickness)(int FAR* pnThickness);

STDMETHOD(put_Thickness)(int nThickness);

/* CLine methods */

STDMETHOD_(void, Draw)(HDC hdc);

STDMETHOD_(void, GetInvalidateRect)(LPRECT prc);

STDMETHOD_(BOOL, AddEndPointsToPane)(CPane FAR* pPane);

STDMETHOD_(void, RemoveEndPointsFromPane)(CPane FAR* pPane);

STDMETHOD(RaiseException)(int nID);

static HRESULT Create(CLine FAR* FAR* ppLine); // Creates and intializes Line object

CLine();

~CLine();

private:

LPTYPEINFO m_ptinfo; // Type information of ILine interface.

COLORREF m_colorref; // RGB color of line.

CPoint FAR* m_pPointStart; // Start point of line.

CPoint FAR* m_pPointEnd; // End point of line.

int m_nThickness; // Line thickness in twips.

EXCEPINFO m_excepinfo; // Information to raise an exception on error.

BOOL m_bRaiseException; // Properties and methods use this to signal that an exception is to be raised.

ULONG m_cRef; // Reference count.

CSupportErrorInfo m_SupportErrorInfo; // ISupportErrorInfo interface implementation

};

class FAR CPoint : public IPoint

{

public:

/* IUnknown methods */

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

/* IDispatch methods */

STDMETHOD(GetTypeInfoCount)(UINT FAR* pctinfo);

STDMETHOD(GetTypeInfo)(

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo);

STDMETHOD(GetIDsOfNames)(

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid);

STDMETHOD(Invoke)(

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr);

/* IPoint automation exposed properties & methods */

STDMETHOD(get_x)(int FAR* pnX);

STDMETHOD(put_x)(int nX);

STDMETHOD(get_y)(int FAR* pnY);

STDMETHOD(put_y)(int nY);

/* CPoint methods */

STDMETHOD_(ULONG, InternalAddRef)();

STDMETHOD_(ULONG, InternalRelease)();

STDMETHOD_(int, get_x)();

STDMETHOD_(int, get_y)();

static HRESULT Create(CPoint FAR* FAR* ppPoint); // Creates and intializes Point object

CPoint();

~CPoint();

private:

LPTYPEINFO m_ptinfo; // Type information of IPoint interface.

int m_nX; // X coordinate of point in twips.

int m_nY; // Y coordinate of point in twips.

ULONG m_cInternalRef; // Reference count for the use of the Points collection only.

ULONG m_cRef; // Reference count.

CSupportErrorInfo m_SupportErrorInfo; // ISupportErrorInfo interface implementation

};

class FAR CLines : public ILines

{

public:

/* IUnknown methods */

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

/* IDispatch methods */

STDMETHOD(GetTypeInfoCount)(UINT FAR* pctinfo);

STDMETHOD(GetTypeInfo)(

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo);

STDMETHOD(GetIDsOfNames)(

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid);

STDMETHOD(Invoke)(

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr);

/* ILines automation exposed properties & methods */

STDMETHOD(Add)(ILine FAR* pLine);

STDMETHOD(get_Count)(long FAR* lCount);

STDMETHOD(get_Item)(long lIndex, ILine FAR* FAR* ppLine);

STDMETHOD(get__NewEnum)(IUnknown FAR* FAR* ppunkEnum);

STDMETHOD(Remove)(long lIndex);

/* CLines methods */

STDMETHOD_(void, Draw)(HDC hdc);

STDMETHOD_(void, Clear)();

STDMETHOD(RaiseException)(int nID);

static HRESULT Create(ULONG lMaxSize, long lLBound, CPane FAR* pPane, CLines FAR* FAR* ppLines); // Creates and intializes Lines object

CLines();

~CLines();

private:

LPTYPEINFO m_ptinfo; // Type information of ILines interface.

SAFEARRAY FAR *m_psa; // Safe array that holds Lines collection items.

ULONG m_cElements; // Number of items in Lines collection.

ULONG m_cMax; // Maximum number of items Lines collection can hold.

long m_lLBound; // Lower bound of index of Lines collection.

CPane FAR* m_pPane; // Pointer to the Pane object that contains this Lines collection.

EXCEPINFO m_excepinfo; // Information to raise an exception on error.

BOOL m_bRaiseException; // Properties and methods use this to signal that an exception is to be raised.

ULONG m_cRef; // Reference count.

CSupportErrorInfo m_SupportErrorInfo; // ISupportErrorInfo interface implementation

};

class FAR CPoints : public IPoints

{

public:

/* IUnknown methods */

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

/* IDispatch methods */

STDMETHOD(GetTypeInfoCount)(UINT FAR* pctinfo);

STDMETHOD(GetTypeInfo)(

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo);

STDMETHOD(GetIDsOfNames)(

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid);

STDMETHOD(Invoke)(

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr);

/* IPoints automation exposed properties & methods */

STDMETHOD(get_Count)(long FAR* plCount);

STDMETHOD(get_Item)(long lIndex, IPoint FAR* FAR* ppPoint);

STDMETHOD(get__NewEnum)(IUnknown FAR* FAR* ppunkEnum);

/* CPoints methods */

STDMETHOD_(BOOL, Add)(CPoint FAR* pPointNew);

STDMETHOD_(BOOL, Remove)(CPoint FAR* pPointRemove);

STDMETHOD_(void, Clear)();

STDMETHOD_(void, GetMaxXMaxY)(int FAR* pnX, int FAR* pnY, LPRECT prc);

STDMETHOD(RaiseException)(int nID);

static HRESULT Create(ULONG lMaxSize, long lLBound, CPane FAR* pPane, CPoints FAR* FAR* ppPoints); // Creates and intializes Points object

CPoints();

~CPoints();

private:

LPTYPEINFO m_ptinfo; // Type information of IPoints interface.

SAFEARRAY FAR *m_psa; // Safe array that holds Points collection items.

ULONG m_cElements; // Number of items in Points collection.

ULONG m_cMax; // Maximum number of items Points collection can hold.

long m_lLBound; // Lower bound of index of Points collection.

CPane FAR* m_pPane; // Pointer to the Pane object that contains this Points collection.

EXCEPINFO m_excepinfo; // Information to raise an exception on error.

BOOL m_bRaiseException; // Properties and methods use this to signal that an exception is to be raised.

ULONG m_cRef; // Reference count.

CSupportErrorInfo m_SupportErrorInfo; // ISupportErrorInfo interface implementation

};

class FAR CEnumVariant : public IEnumVARIANT

{

public:

// IUnknown methods

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

// IEnumVARIANT methods

STDMETHOD(Next)(ULONG cElements, VARIANT FAR* pvar, ULONG FAR* pcElementFetched);

STDMETHOD(Skip)(ULONG cElements);

STDMETHOD(Reset)();

STDMETHOD(Clone)(IEnumVARIANT FAR* FAR* ppenum);

static HRESULT Create(SAFEARRAY FAR*, ULONG, CEnumVariant FAR* FAR*); // Creates and intializes Enumerator

CEnumVariant();

~CEnumVariant();

private:

ULONG m_cRef; // Reference count

ULONG m_cElements; // Number of elements in enumerator.

long m_lLBound; // Lower bound of index.

long m_lCurrent; // Current index.

SAFEARRAY FAR* m_psa; // Safe array that holds elements.

};

// Structure filled by dialog from user input to create a line.

typedef struct _lineinfo

{

COLORREF colorref; // RGB color of line.

POINT ptStart; // Start point of line.

POINT ptEnd; // End point of line.

int nThickness; // Thickness of line.

} LINEINFO, FAR* LPLINEINFO;

extern CApplication FAR* g_pApplication;

Software for developers

Delphi Components
.Net Components
Software for Android Developers

More information resources

MegaDetailed.Net
Unix Manual Pages
Delphi Examples