oletypes.h

日本的开源编辑器源码

// $Id: OleTypes.h,v 1.2 2003/08/05 23:24:30 genta Exp $
/*!	@file
	@brief OLE Type wrapper
	@author 鬼
	@date 2003.0221
*/
/*
	Copyright (C) 2003, 鬼
	This source code is designed for sakura editor.
	Please contact the copyright holder to use this code for other purpose.

*/
#ifndef __OLE_TYPES_WRAP__
#define __OLE_TYPES_WRAP__

#include "windows.h"
#include "oleauto.h"

/*! BSTRのWrapper class

	データ構造はBSTRと互換性あり
*/
struct SysString
{
	BSTR Data;
	SysString()                         { Data = NULL; }
	SysString(SysString &Source)        { Data = ::SysAllocStringLen(Source.Data, SysStringLen(Source.Data)); }
	SysString(BSTR &Source)             { Data = ::SysAllocStringLen(Source, SysStringLen(Source)); }
	SysString(wchar_t const *S, int L)  { Data = ::SysAllocStringLen(S, L); }
	SysString(char const *S, int L)
	{ 
		wchar_t *buf = new wchar_t[L + 1];
		int L2 = ::MultiByteToWideChar(CP_ACP, 0, S, L, buf, L);
		Data = ::SysAllocStringLen(buf, L2); 
		delete[] buf;
	}
	~SysString()                        { ::SysFreeString(Data); }
	SysString& operator = (SysString& Source) { Data = ::SysAllocStringLen(Source.Data, SysStringLen(Source.Data)); return *this; }
	int Length()                        { return ::SysStringLen(Data); }
	void Get(char **S, int *L)
	{
		int Len = ::SysStringLen(Data);
		*S = new char[Len * 2 + 1];
		*L = ::WideCharToMultiByte(CP_ACP, 0, Data, Len, *S, Len * 2, NULL, NULL);
		(*S)[*L] = 0;
	}
};

/*! VARIANTのWrapper class

	データ構造はVARIANTと互換性あり
*/
struct Variant
{
	VARIANT Data;
	Variant()                       { ::VariantInit(&Data); }
	Variant(Variant &Source)        { ::VariantCopyInd(&Data, &Source.Data); }
	Variant(VARIANT &Source)        { ::VariantCopyInd(&Data, &Source); }
	~Variant()                      { ::VariantClear(&Data); }
	Variant& operator = (Variant& Source) { ::VariantCopyInd(&Data, &Source.Data); return *this; }
	/*! SysStringをVariantにセットする
	
		セット後、SysStringの方は中身がNULLになる。
	*/
	void Receive(SysString &Source)
	{
		::VariantClear(&Data); 
		Data.vt = VT_BSTR; 
		Data.bstrVal = Source.Data; 
		Source.Data = NULL; 
	}

	// 2003.06.25 Moca
	// intを戻り値として返す場合に対応
	int Receive(int i)
	{
		::VariantClear(&Data); 
		Data.vt = VT_I4;
		return Data.lVal = i;
	}
};
/*
#if sizeof(SysString) != 4
#error "error"
#endif

#if sizeof(Variant) != 16
#error "error"
#endif
*/
inline Variant* Wrap(VARIANT *Value)
{
	return reinterpret_cast<Variant*>(Value);
}

inline SysString* Wrap(BSTR *Value)
{
	return reinterpret_cast<SysString*>(Value);
}
#endif