#include <jni.h>
#include "atlbase.h"
#include "atlconv.h"
#include "JCom.h"
#include "jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo.h"


static void type2str(char* sig, TYPEDESC* tdesc, ITypeInfo* pITypeInfo);
static jobject newElemDesc(JNIEnv *env, jobject obj, ELEMDESC* elem, ITypeInfo* pITypeInfo);

/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getTypeAttr
 * Signature: ()Ljp/ne/so_net/ga2/no_ji/jcom/ITypeInfo$TypeAttr;
	TextAttrԂBƂ肠AKvŏ̂̂ԂĂȂB
 * **********************************************************************/
JNIEXPORT jobject JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getTypeAttr
  (JNIEnv *env, jobject obj)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return NULL;
	}
	// TYPEATTR 擾
	TYPEATTR*  pAttr = NULL;
	HRESULT hr = pITypeInfo->GetTypeAttr(&pAttr);
	if(FAILED(hr)) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		char message[256];
		sprintf(message, "ITypeInfo::GetTypeAttr() FAILED HRESULT=0x%X", hr);
		env->ThrowNew(clsJComException, message);
		return NULL;
	}

	// GUIDB
	//	public GUID(int data1, short data2, short data3,
	//			byte data40, byte data41, byte data42, byte data43,
	//			byte data44, byte data45, byte data46, byte data47)
	jclass clsGUID = env->FindClass(CLASS_GUID);
	jmethodID mtdGUID = env->GetMethodID(clsGUID, "<init>", "(ISSBBBBBBBB)V");
	jobject iid = env->NewObject(clsGUID, mtdGUID,
			pAttr->guid.Data1,
			pAttr->guid.Data2,
			pAttr->guid.Data3,
			pAttr->guid.Data4[0],
			pAttr->guid.Data4[1],
			pAttr->guid.Data4[2],
			pAttr->guid.Data4[3],
			pAttr->guid.Data4[4],
			pAttr->guid.Data4[5],
			pAttr->guid.Data4[6],
			pAttr->guid.Data4[7]);

	// RXgN^ TypeAttr(GUID IID, int typekind, int cFuncs, int cVars)Ă
	jclass clsTypeAttr = env->FindClass(CLASS_TYPEATTR);
	char sig[256];
	sprintf(sig, "(L%s;L%s;IIII)V", CLASS_ITYPEINFO, CLASS_GUID);
	jmethodID method = env->GetMethodID(clsTypeAttr, "<init>", sig);
	jobject result = env->NewObject(clsTypeAttr, method, 
				obj, 
				iid, pAttr->typekind, pAttr->cFuncs, pAttr->cVars, pAttr->cImplTypes);

	pITypeInfo->ReleaseTypeAttr(pAttr);
	return result;
}

/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getFuncDesc
 * signature: (I)Ljp/ne/so_net/ga2/no_ji/jcom/ITypeInfo$FuncDesc;
	FUNCDESCԂB͂ƂGŖB
 * **********************************************************************/
JNIEXPORT jobject JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getFuncDesc
		  (JNIEnv *env, jobject obj, jint index)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return NULL;
	}
	// FUNCDESC擾B
	FUNCDESC *pFuncDesc = NULL;
	HRESULT hr = pITypeInfo->GetFuncDesc((unsigned int)index, &pFuncDesc);
	if(FAILED(hr)) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		char message[256];
		sprintf(message, "ITypeInfo::GetFuncDesc(%d) FAILED HRESULT=0x%X", index, hr);
		env->ThrowNew(clsJComException, message);
		return NULL;
	}


	// ܂A lprgelemdescParam 쐬B
	jobjectArray descParams = NULL;
	jclass clsElemDesc = env->FindClass(CLASS_ELEMDESC);
	if(pFuncDesc->cParams > 0) {
		// ITypeInfo.ElemDescz쐬B
		descParams = env->NewObjectArray(pFuncDesc->cParams, clsElemDesc, NULL);
		if(descParams==NULL) {
			// OZbg
			char message[256];
			sprintf(message, "NewObjectArray(%d) FAILED", pFuncDesc->cParams);
			jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
			env->ThrowNew(clsJComException, message);
			// mۂIuWFNgׂĔj
			pITypeInfo->ReleaseFuncDesc(pFuncDesc);
			return NULL;
		}
		// ElemDescBzɃZbg
		jobject descParam;
		for(int i=0; i<pFuncDesc->cParams; i++) {
			descParam = newElemDesc(env, obj, &pFuncDesc->lprgelemdescParam[i],pITypeInfo);
			env->SetObjectArrayElement(descParams, i, descParam);
		}
	}
	// āA߂lElemDesc쐬
	jobject descFunc = newElemDesc(env, obj, &pFuncDesc->elemdescFunc, pITypeInfo);
	// RXgN^ FuncDesc(int memid, int invkind, ElemDesc[] elemdescParam, ElemDesc elemdescFunc)Ă
	jclass clsFuncDesc = env->FindClass(CLASS_FUNCDESC);
	char sig[256];
	sprintf(sig, "(L%s;II[L%s;L%s;)V", CLASS_ITYPEINFO, CLASS_ELEMDESC, CLASS_ELEMDESC);
	jmethodID method = env->GetMethodID(clsFuncDesc, "<init>", sig);
	jobject result = env->NewObject(clsFuncDesc, method, 
				obj, (jint)pFuncDesc->memid, (jint)pFuncDesc->invkind,
				descParams, descFunc);

	pITypeInfo->ReleaseFuncDesc(pFuncDesc);
	return result;	// I
}


// ELEMDESC\̂ITypeInfo.ElemDescNX𐶐
jobject newElemDesc(JNIEnv *env, jobject obj, ELEMDESC* elem, ITypeInfo* pITypeInfo)
{
	// ^𕶎ɒB
	char sig[1024];	// ꂾΑ邾낤
	type2str(sig, &elem->tdesc, pITypeInfo);
	jstring strsig = env->NewStringUTF(sig);

	// RXgN^ ElemDesc(String typedesc, int idl)ĂԁB
	// [JNX͑1ɃO[oNXKvHI
	jclass clsElemDesc = env->FindClass(CLASS_ELEMDESC);
	char sigElemDesc[256];
	sprintf(sigElemDesc,"(L%s;Ljava/lang/String;I)V", CLASS_ITYPEINFO);
	jmethodID method = env->GetMethodID(clsElemDesc, "<init>", sigElemDesc);
	jobject result = env->NewObject(clsElemDesc, method, obj, strsig, (jint)elem->idldesc.wIDLFlags);
	return result;	// I
}

#if 1
//	TYPEDESC𒉎ɕϊB߂͂iɔCB
void type2str(char* sig, TYPEDESC* tdesc, ITypeInfo* pITypeInfo)
{
	USES_CONVERSION;

	switch(tdesc->vt) {
	case VT_EMPTY:				strcpy(sig, "VT_EMPTY");	return;	break;		// ł̂H
	case VT_NULL:				strcpy(sig, "VT_NULL");		return;	break;		// ł̂H
	case VT_I2:					strcpy(sig, "VT_I2");		return;	break;
	case VT_I4:					strcpy(sig, "VT_I4");		return;	break;
	case VT_R4:					strcpy(sig, "VT_R4");		return;	break;
	case VT_R8:					strcpy(sig, "VT_R8");		return;	break;
	case VT_CY:					strcpy(sig, "VT_CY");		return;	break;
	case VT_DATE:				strcpy(sig, "VT_DATE");		return;	break;
	case VT_BSTR:				strcpy(sig, "VT_BSTR");		return;	break;
	case VT_DISPATCH:			strcpy(sig, "VT_DISPATCH");	return;	break;
	case VT_ERROR:				strcpy(sig, "VT_ERROR");	return;	break;	// ł̂H
	case VT_BOOL:				strcpy(sig, "VT_BOOL");		return;	break;
	case VT_VARIANT:			strcpy(sig, "VT_VARIANT");	return;	break;
	case VT_UNKNOWN:			strcpy(sig, "VT_UNKNOWN");	return;	break;
	case VT_DECIMAL:			strcpy(sig, "VT_DECIMAL");	return;	break;	// ????
	case VT_I1:					strcpy(sig, "VT_I1");		return;	break;
	case VT_UI1:				strcpy(sig, "VT_UI1");		return;	break;
	case VT_UI2:				strcpy(sig, "VT_UI2");		return;	break;
	case VT_UI4:				strcpy(sig, "VT_UI4");		return;	break;
	case VT_I8:					strcpy(sig, "VT_I8");		return;	break;
	case VT_UI8:				strcpy(sig, "VT_UI8");		return;	break;
	case VT_INT:				strcpy(sig, "VT_INT");		return;	break;
	case VT_UINT:				strcpy(sig, "VT_UINT");		return;	break;
	case VT_VOID:				strcpy(sig, "VT_VOID");		return;	break;
	case VT_HRESULT:			strcpy(sig, "VT_HRESULT");	return;	break;
	case VT_PTR:
		strcpy(sig,"VT_PTR+");
		type2str(sig+strlen(sig), &tdesc->lptdesc[0], pITypeInfo);
		return;
	case VT_SAFEARRAY:
		strcpy(sig,"VT_SAFEARRAY+");
		type2str(sig+strlen(sig), &tdesc->lptdesc[0], pITypeInfo);
		return;

	case VT_CARRAY:				strcpy(sig, "VT_CARRAY");	return;	break;	// ????
	case VT_USERDEFINED:
		{
		ITypeInfo* pUserTypeInfo = NULL;
		HRESULT hr = pITypeInfo->GetRefTypeInfo( tdesc->hreftype, &pUserTypeInfo ); 
		BSTR bstrName;
		hr = pUserTypeInfo->GetDocumentation( MEMBERID_NIL, &bstrName, NULL, NULL, NULL ); 
		if(SUCCEEDED(hr)) {
			sprintf(sig,"VT_USERDEFINED(%x):%s", tdesc->hreftype, OLE2A(bstrName));	// pbP[W͂ǂH
			SysFreeString(bstrName);
		}else {
			sprintf(sig,"VT_USERDEFINED(%x):???", tdesc->hreftype);
		}
		pUserTypeInfo->Release();
		return;
		}
	case VT_LPSTR:				strcpy(sig, "VT_LPSTR");			return;	break;	// ł̂H
	case VT_LPWSTR:				strcpy(sig, "VT_LPWSTR");			return;	break;	// ł̂H
	case VT_FILETIME:			strcpy(sig, "VT_FILETIME");			return;	break;	// ????
	case VT_BLOB:				strcpy(sig, "VT_BLOB");				return;	break;	// ????
	case VT_STREAM:				strcpy(sig, "VT_STREAM");			return;	break;	// ????
	case VT_STORAGE:			strcpy(sig, "VT_STORAGE");			return;	break;	// ????
	case VT_STREAMED_OBJECT:	strcpy(sig, "VT_STREAMED_OBJECT");	return;	break;	// ????
	case VT_STORED_OBJECT:		strcpy(sig, "VT_STORED_OBJECT");	return;	break;	// ????
	case VT_BLOB_OBJECT:		strcpy(sig, "VT_BLOB_OBJECT");		return;	break;	// ????
	case VT_CF:					strcpy(sig, "VT_CF");				return;	break;	// ????
	case VT_CLSID:				strcpy(sig, "VT_CLSID");			return;	break;	// ????
	default:					strcpy(sig, "???");					return;	break;	// ????
    }
	return;
}
#elif 0
//	TYPEDESCJavǎ^ɕϊ
void type2str(char* sig, TYPEDESC* tdesc, ITypeInfo* pITypeInfo)
{
	USES_CONVERSION;

	switch(tdesc->vt) {
	case VT_EMPTY:				strcpy(sig, "void");	return;	break;		// ł̂H
	case VT_NULL:				strcpy(sig, "void");	return;	break;		// ł̂H
	case VT_I2:					strcpy(sig, "short");	return;	break;
	case VT_I4:					strcpy(sig, "int");	return;	break;
	case VT_R4:					strcpy(sig, "float");	return;	break;
	case VT_R8:					strcpy(sig, "double");	return;	break;
	case VT_CY:					sprintf(sig, "%s",CLASS_VARIANT_CURRENCY_DOT);	return;	break;
	case VT_DATE:				strcpy(sig, "java.util.Date");		return;	break;
	case VT_BSTR:				strcpy(sig, "String");		return;	break;
	case VT_DISPATCH:			sprintf(sig, "%s",CLASS_IDISPATCH_DOT);	return;	break;
	case VT_ERROR:				strcpy(sig, "String");		return;	break;	// ł̂H
	case VT_BOOL:				strcpy(sig, "boolean");	return;	break;
	case VT_VARIANT:			strcpy(sig, "Object");		return;	break;
	case VT_UNKNOWN:			sprintf(sig, "%s",CLASS_IUNKNOWN_DOT);	return;	break;
	case VT_DECIMAL:			strcpy(sig, "@@@@VT_DECIMAL");			return;	break;	// ????
	case VT_I1:					strcpy(sig, "byte");	return;	break;
	case VT_UI1:				strcpy(sig, "byte");	return;	break;
	case VT_UI2:				strcpy(sig, "short");	return;	break;
	case VT_UI4:				strcpy(sig, "int");	return;	break;
	case VT_I8:					strcpy(sig, "long");	return;	break;
	case VT_UI8:				strcpy(sig, "long");	return;	break;
	case VT_INT:				strcpy(sig, "int");	return;	break;
	case VT_UINT:				strcpy(sig, "int");	return;	break;
	case VT_VOID:				strcpy(sig, "void");	return;	break;
	case VT_HRESULT:			strcpy(sig, "int");	return;	break;
	case VT_PTR:
	case VT_SAFEARRAY:
		type2str(sig, &tdesc->lptdesc[0], pITypeInfo);
		strcat(sig,"[]");
		return;

	case VT_CARRAY:				strcpy(sig, "@@@@VT_CARRAY");			return;	break;	// ????
	case VT_USERDEFINED:
		{
		ITypeInfo* pUserTypeInfo = NULL;
		HRESULT hr = pITypeInfo->GetRefTypeInfo( tdesc->hreftype, &pUserTypeInfo ); 
		BSTR bstrName;
		hr = pUserTypeInfo->GetDocumentation( MEMBERID_NIL, &bstrName, NULL, NULL, NULL ); 
		if(SUCCEEDED(hr)) {
			sprintf(sig,"%s", OLE2A(bstrName));	// pbP[W͂ǂH
			SysFreeString(bstrName);
		}else {
			sprintf(sig,"VT_USERDEFINED???");
		}
		pUserTypeInfo->Release();
		return;
		}
	case VT_LPSTR:				strcpy(sig, "String");		return;	break;	// ł̂H
	case VT_LPWSTR:				strcpy(sig, "String");		return;	break;	// ł̂H
	case VT_FILETIME:			strcpy(sig, "@@@@VT_FILETIME");		return;	break;	// ????
	case VT_BLOB:				strcpy(sig, "@@@@VT_BLOB");			return;	break;	// ????
	case VT_STREAM:				strcpy(sig, "@@@@VT_STREAM");			return;	break;	// ????
	case VT_STORAGE:			strcpy(sig, "@@@@VT_STORAGE");			return;	break;	// ????
	case VT_STREAMED_OBJECT:	strcpy(sig, "@@@@VT_STREAMED_OBJECT");	return;	break;	// ????
	case VT_STORED_OBJECT:		strcpy(sig, "@@@@VT_STORED_OBJECT");	return;	break;	// ????
	case VT_BLOB_OBJECT:		strcpy(sig, "@@@@VT_BLOB_OBJECT");		return;	break;	// ????
	case VT_CF:					strcpy(sig, "@@@@VT_CF");				return;	break;	// ????
	case VT_CLSID:				strcpy(sig, "@@@@VT_CLSID");			return;	break;	// ????
	default:					strcpy(sig, "@@@@???");				return;	break;	// ????
    }
	return;
}
#else
//	TYPEDESCJavǎ^VOj`[ɕϊ
void type2str(char* sig, TYPEDESC* tdesc, ITypeInfo* pITypeInfo)
{
	USES_CONVERSION;

	switch(tdesc->vt) {
	case VT_EMPTY:				strcpy(sig, "V");	return;	break;		// ł̂H
	case VT_NULL:				strcpy(sig, "V");	return;	break;		// ł̂H
	case VT_I2:					strcpy(sig, "S");	return;	break;
	case VT_I4:					strcpy(sig, "I");	return;	break;
	case VT_R4:					strcpy(sig, "F");	return;	break;
	case VT_R8:					strcpy(sig, "D");	return;	break;
	case VT_CY:					sprintf(sig, "L%s;",CLASS_VARIANT_CURRENCY);	return;	break;
	case VT_DATE:				strcpy(sig, "Ljava/util/Date;");		return;	break;
	case VT_BSTR:				strcpy(sig, "Ljava/lang/String;");		return;	break;
	case VT_DISPATCH:			sprintf(sig, "L%s;",CLASS_IDISPATCH);	return;	break;
	case VT_ERROR:				strcpy(sig, "Ljava/lang/String;");		return;	break;	// ł̂H
	case VT_BOOL:				strcpy(sig, "Z");	return;	break;
	case VT_VARIANT:			strcpy(sig, "Ljava/lang/Object;");		return;	break;
	case VT_UNKNOWN:			sprintf(sig, "L%s;",CLASS_IUNKNOWN);	return;	break;
	case VT_DECIMAL:			strcpy(sig, "@@@@VT_DECIMAL");			return;	break;	// ????
	case VT_I1:					strcpy(sig, "B");	return;	break;
	case VT_UI1:				strcpy(sig, "B");	return;	break;
	case VT_UI2:				strcpy(sig, "S");	return;	break;
	case VT_UI4:				strcpy(sig, "I");	return;	break;
	case VT_I8:					strcpy(sig, "J");	return;	break;
	case VT_UI8:				strcpy(sig, "J");	return;	break;
	case VT_INT:				strcpy(sig, "I");	return;	break;
	case VT_UINT:				strcpy(sig, "I");	return;	break;
	case VT_VOID:				strcpy(sig, "V");	return;	break;
	case VT_HRESULT:			strcpy(sig, "I");	return;	break;
	case VT_PTR:
	case VT_SAFEARRAY:
		sig[0] = '[';
		type2str(sig+1, &tdesc->lptdesc[0], pITypeInfo);
		return;

	case VT_CARRAY:				strcpy(sig, "@@@@VT_CARRAY");			return;	break;	// ????
	case VT_USERDEFINED:
		{
		ITypeInfo* pUserTypeInfo = NULL;
		HRESULT hr = pITypeInfo->GetRefTypeInfo( tdesc->hreftype, &pUserTypeInfo ); 
		BSTR bstrName;
		hr = pUserTypeInfo->GetDocumentation( MEMBERID_NIL, &bstrName, NULL, NULL, NULL ); 
		if(SUCCEEDED(hr)) {
			sprintf(sig,"L%s;", OLE2A(bstrName));	// pbP[W͂ǂH
			SysFreeString(bstrName);
		}else {
			sprintf(sig,"L???;");
		}
		pUserTypeInfo->Release();
		return;
		}
	case VT_LPSTR:				strcpy(sig, "Ljava/lang/String;");		return;	break;	// ł̂H
	case VT_LPWSTR:				strcpy(sig, "Ljava/lang/String;");		return;	break;	// ł̂H
	case VT_FILETIME:			strcpy(sig, "@@@@VT_FILETIME");		return;	break;	// ????
	case VT_BLOB:				strcpy(sig, "@@@@VT_BLOB");			return;	break;	// ????
	case VT_STREAM:				strcpy(sig, "@@@@VT_STREAM");			return;	break;	// ????
	case VT_STORAGE:			strcpy(sig, "@@@@VT_STORAGE");			return;	break;	// ????
	case VT_STREAMED_OBJECT:	strcpy(sig, "@@@@VT_STREAMED_OBJECT");	return;	break;	// ????
	case VT_STORED_OBJECT:		strcpy(sig, "@@@@VT_STORED_OBJECT");	return;	break;	// ????
	case VT_BLOB_OBJECT:		strcpy(sig, "@@@@VT_BLOB_OBJECT");		return;	break;	// ????
	case VT_CF:					strcpy(sig, "@@@@VT_CF");				return;	break;	// ????
	case VT_CLSID:				strcpy(sig, "@@@@VT_CLSID");			return;	break;	// ????
	default:					strcpy(sig, "@@@@???");				return;	break;	// ????
    }
	return;
}

#endif		// ȃAv[`̂ANative͑fɁAᰊ񂹂JavaɁANB


/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getDocumentation
 * signature: (I)[Ljava/lang/String;
 	w肳ꂽohc̃hLgԂB
 	memid-1̂Ƃ͂̃IuWFNgɑ΂hLgԂB
 * **********************************************************************/
JNIEXPORT jobjectArray JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getDocumentation
  (JNIEnv *env, jobject obj, jint memid)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return NULL;
	}

	BSTR bstrName;
	BSTR bstrDocString;
	unsigned long dwHelpContext = 0;
	BSTR bstrHelpFile;
	HRESULT hr = pITypeInfo->GetDocumentation( (MEMBERID)memid,
					&bstrName, &bstrDocString, &dwHelpContext, &bstrHelpFile ); 
	if(FAILED(hr)) {
		/*
			Excel.Application̏ꍇA唼̃o 8002802B TYPE_E_ELEMENTNOTFOUND ԂB
			‚܂AhLgȂƂƁB
			AG[͂Ɍy`ȂB
		*/
		return NULL;
	}
	// ̔zɕϊB
	char helpcontext[256];
	sprintf(helpcontext, "%d", dwHelpContext);
	
	// 4‚Stringz쐬B
	jclass clsString = env->FindClass("java/lang/String");
	jobjectArray jresult = env->NewObjectArray(4, clsString, NULL);
	if(jresult==NULL) {
		// OZbg
		char message[256];
		sprintf(message, "Not enough memory ");
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, message);
		// mۂIuWFNgׂĔj
		if(bstrName!=NULL) SysFreeString(bstrName);
		if(bstrDocString!=NULL) SysFreeString(bstrDocString);
		if(bstrHelpFile!=NULL) SysFreeString(bstrHelpFile);
		return NULL;
	}

	// 擾IuWFNgJavajava.lang.Stringɕϊ
	// ɂ́ANULL̂̂̂Œ
	if(bstrName!=NULL) {
		jstring	jstr = BSTR2jstring(env, bstrName);
		env->SetObjectArrayElement(jresult, 0, jstr);
		SysFreeString(bstrName);
	}
	if(bstrDocString != NULL) {
		jstring jstr = BSTR2jstring(env, bstrDocString);
		env->SetObjectArrayElement(jresult, 1, jstr);
		SysFreeString(bstrDocString);
	}
	jstring jstr = BSTR2jstring(env, A2BSTR(helpcontext));
	env->SetObjectArrayElement(jresult, 2, jstr);
	if(bstrHelpFile != NULL) {
		jstring jstr = BSTR2jstring(env, bstrHelpFile);
		env->SetObjectArrayElement(jresult, 3, jstr);
		SysFreeString(bstrHelpFile);
	}

	return jresult;
}

/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getNames
 * Signature: (I)[Ljava/lang/String;
 * **********************************************************************/
JNIEXPORT jobjectArray JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getNames
  (JNIEnv *env, jobject obj, jint memid)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return NULL;
	}

	// O\BǂAŏ̖O֐̂悤B
	unsigned int cNames;
	const unsigned int MAX_NAMES = 100;
	BSTR rgNames[MAX_NAMES];
	HRESULT hr = pITypeInfo->GetNames(memid, rgNames, MAX_NAMES, &cNames);
	if(FAILED(hr)) {
		// OZbg
		char message[256];
		sprintf(message, "ITypeInfo::GetNames(%d) FAILED. HRESULT=0x%X",memid, hr);
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, message);
		return NULL;
	}
	if(cNames==0) return NULL;

	// Stringz쐬B
	jclass clsString = env->FindClass("java/lang/String");
	jobjectArray jresult = env->NewObjectArray(cNames, clsString, NULL);
	if(jresult==NULL) {
		// OZbg
		char message[256];
		sprintf(message, "NewObjectArray(%d) FAILED ", cNames);
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, message);
		// mۂIuWFNgׂĔj
		for(int i=0; i<cNames; i++) {
			SysFreeString(rgNames[i]);
		}
		return NULL;
	}

	// 擾IuWFNgJavajava.lang.Stringɕϊ
	// ɂ́ANULL̂̂̂Œ
	for(int i=0; i<cNames; i++) {
		jstring	jstr = BSTR2jstring(env, rgNames[i]);
		env->SetObjectArrayElement(jresult, i, jstr);
		SysFreeString(rgNames[i]);
	}
	return jresult;
}

/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getTypeLib
 * Signature: ()I
 * **********************************************************************/
JNIEXPORT jint JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getTypeLib
  (JNIEnv *env, jobject obj)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return 0;
	}

	// ITypeLibC^[tF[X擾
	ITypeLib* pITypeLib = NULL;
	unsigned int index = 0;
	HRESULT hr = pITypeInfo ->GetContainingTypeLib(&pITypeLib, &index);
	if(FAILED(hr)) {
		// OZbg
		char message[256];
		sprintf(message, "ITypeInfo::GetContainingTypeLib() FAILED");
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, message);
		return 0;
	}
	
	return (jint)(int)pITypeLib;
}


/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getVarDesc
 * Signature: (I)Ljp/ne/so_net/ga2/no_ji/jcom/ITypeInfo$VarDesc;
 * **********************************************************************/
JNIEXPORT jobject JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getVarDesc
  (JNIEnv *env, jobject obj, jint index)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return NULL;
	}

	// VARDESC擾B
	VARDESC *pVarDesc = NULL;
	HRESULT hr = pITypeInfo->GetVarDesc((unsigned int)index, &pVarDesc);
	if(FAILED(hr)) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		char message[256];
		sprintf(message, "ITypeInfo::GetVarDesc(%d) FAILED HRESULT=0x%X", index, hr);
		env->ThrowNew(clsJComException, message);
		return NULL;
	}

	// VarDescɕKvȏW߂B
	jobject descVar = newElemDesc(env, obj, &pVarDesc->elemdescVar, pITypeInfo);
	jobject jValue = NULL;
	if(pVarDesc->varkind == VAR_CONST) {
		int ret = VARIANT2jobject(env, obj, pVarDesc->lpvarValue, &jValue);
		if(ret != 0) {
			// OZbg
			char message[256];
			sprintf(message, "cannot convert VT=0x%X",ret);
			jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
			env->ThrowNew(clsJComException, message);
			pITypeInfo->ReleaseVarDesc(pVarDesc);
			return NULL;
		}
	}

	// RXgN^ (int memid, int varkind, ElemDesc elemdescVar, Object varValue)Ă
	jclass clsVarDesc = env->FindClass(CLASS_VARDESC);
	char sig[256];
	sprintf(sig, "(L%s;IIL%s;L%s;)V", CLASS_ITYPEINFO, CLASS_ELEMDESC, "java/lang/Object");
	jmethodID method = env->GetMethodID(clsVarDesc, "<init>", sig);
	jobject result = env->NewObject(clsVarDesc, method, 
				obj, (jint)pVarDesc->memid, (jint)pVarDesc->varkind,
				descVar, jValue);

	// VARDESC
	pITypeInfo->ReleaseVarDesc(pVarDesc);
	return result;	// I
}


/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getImplType
 * Signature: (I)I
 	ĂTypeInfoԂ
 * **********************************************************************/
JNIEXPORT jint JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getImplType
  (JNIEnv *env, jobject obj, jint index)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return 0;
	}

	// QƂĂ^擾
	HREFTYPE hRefType = NULL;
	HRESULT hr = pITypeInfo->GetRefTypeOfImplType((unsigned int)index, &hRefType);
	if(FAILED(hr)) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		char message[256];
		sprintf(message, "ITypeInfo::GetRefTypeOfImplType(%d) FAILED HRESULT=0x%X", index, hr);
		env->ThrowNew(clsJComException, message);
		return 0;
	}

	// QƂĂ^AITypeInfõ|C^擾
	ITypeInfo* pUserTypeInfo = NULL;
	hr = pITypeInfo->GetRefTypeInfo( hRefType, &pUserTypeInfo ); 
	if(FAILED(hr)) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		char message[256];
		sprintf(message, "ITypeInfo::GetRefTypeInfo(%Xh) FAILED HRESULT=0x%X", hRefType, hr);
		env->ThrowNew(clsJComException, message);
		return 0;
	}

	return (jint)(int)pUserTypeInfo;	// I
}

/* **********************************************************************
 * Class:     jp_ne_so_0005fnet_ga2_no_0005fji_jcom_ITypeInfo
 * Method:    _getRefTypeInfo
 * Signature: (I)I
 * **********************************************************************/
JNIEXPORT jint JNICALL Java_jp_ne_so_1net_ga2_no_1ji_jcom_ITypeInfo__1getRefTypeInfo
  (JNIEnv *env, jobject obj, jint hreftype)
{
	// ITypeInfoC^[tF[XoB
	jclass cls = env->GetObjectClass(obj);
	jfieldID fieldID = env->GetFieldID(cls, "pIUnknown", "I"); 
	ITypeInfo* pITypeInfo = (ITypeInfo*)env->GetIntField(obj, fieldID);
	if(pITypeInfo == NULL) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		env->ThrowNew(clsJComException, "ITypeInfo not created");
		return 0;
	}

	// QƂĂ^擾
	ITypeInfo* pUserTypeInfo = NULL;
	HRESULT hr = pITypeInfo->GetRefTypeInfo(hreftype, &pUserTypeInfo);
	if(FAILED(hr)) {
		// OZbg
		jclass clsJComException = env->FindClass(CLASS_JCOM_EXCEPTION);
		char message[256];
		sprintf(message, "ITypeInfo::GetRefTypeInfo(%d) FAILED HRESULT=0x%X", hreftype, hr);
		env->ThrowNew(clsJComException, message);
		return 0;
	}
	// ITypeInfoԂBĂяoRelease()YȂ悤
	return (jint)(int)pUserTypeInfo;
}