BROWSE.H (BROWSE 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 500

#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

#define LPCTSTR LPCSTR

// 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

// Function prototypes

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

#ifdef WIN16

BOOL __export CALLBACK MainDialogFunc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam);

#else

BOOL CALLBACK MainDialogFunc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam);

#endif

typedef enum {

TYPE_FUNCTION = 0,

TYPE_PROPERTY = 1,

TYPE_CONSTANT = 2,

TYPE_PARAMETER = 3

} OBJTYPE;

class CBrowseApp

{

public:

void Init(HWND hwndMain);

void Cleanup();

void ClearTypeLibStaticFields();

void ClearTypeInfoStaticFields();

void ClearElementStaticFields();

void ClearParamStaticFields();

HRESULT BrowseTypeLibrary();

HRESULT ChangeTypeInfosSelection();

HRESULT ChangeElementsSelection();

HRESULT ChangeParametersSelection();

void OpenElementHelpFile();

void EmptyList(HWND hwndList);

HRESULT LoadList(LPDISPATCH pdispItems, int nListID);

HRESULT TypeToString(LPDISPATCH pdispTypeDesc, LPTSTR pszTypeName);

void IDLFlagsToString(int n, LPTSTR psz);

void CallConvToString(int n, LPTSTR psz);

void FuncKindToString(int n, LPTSTR psz);

void InvokeKindToString(int n, LPTSTR psz);

void VariantToString(VARIANT v, LPTSTR psz);

private:

HINSTANCE m_hinst; // App's HINSTANCE.

HWND m_hwndMain; // App's main window which is a dialog..

HFONT m_hfont; // Non-bold font used for dialog fields.

TCHAR m_szHelpFile[128]; // Help file used by type library being browsed.

long m_lElemHelpCtx; // Help context of TypeInfo element being browsed.

};

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