반응형

ActiveX를 만들때 매개변수로 배열을 받아야 할 필요가 있다.

많은 일련의 데이터를 한번에 받기 위해서 보통 문자열에 분리자(Separator)로 분리해서 문자열로 입력하는것이 보통인데
배열을 받는 방법은 없을까 해서 알아보았다.
일단 먼저 웹 스크립트에서 배열을 사용하는 방법을 알아보자. 배열은 다음과 같이 쓸수 있다.
자바 스크립트라면,

또는 VB Script라면,

 

이 배열을 ActiveX의 매개변수에 어떻게 넣느냐가 문제이다.

 

일단 기본 데이터 형식은 아니기 때문에, VARIANT 형식으로 받아야 하겠다. 
ActiveX의 메소드는 다음과 같이 정의를 하도록 하자.
void ShowArray(VARIANT varArray)

 

나는 VS2003을 쓰는데, 휴.. MFC ActiveX에서 이렇게 메소드를 만들자마자 버그코드를 만들기 시작한다.
IDL의 선언은 void ShowArray(VARIANT varArray); 로 정의되고,
컨트롤 소스에는 void ShowArray(VARIANT varArray);로 정의되었다. ㅠㅠ
컨트롤 소스가 잘못 생성되어서 나왔다. 일단 void ShowArray(LPVARIANT varArray); 로 정의를 변경해야 한다.
이놈의 VS2003 버그..ㅠㅠ 너무 많다..

 

배열을 VARIANT값으로 입력을 받을때 Java Script(JScript)와 VB Script는 다른 형식으로 입력된다.
Java Script(이하 JScript)는 VT_DISPATCH 형식으로 들어오고,
VB Script는 VT_ARRAY | VT_BSTR | VT_BYREF 형식으로 들어온다.

 

VB Script 배열 형식을 받아서 처리할 수 있는 예제는 인터넷에 널려있을것이다.
문제는 JScript 배열 형식을 받아서 처리하는 예제는 찾기가 어렵다.(나만 못찾는건지.)

 

일단 JScript 배열을 처리하려면, JScript 배열의 길이를 알아야 하지 않는가? 다음은 배열의 값이 접근을 할 수 있어야 하고...
JScript의 배열의 길이와 값에 접근 하기위해서는 다음과 같이 코딩해야한다.

 

void TestOCX::ShowArray(LPVARIANT varArray)
{
	CComVariant vtSource;
	// VT_BYREF 형식으로 입력되면 REF 값을 VARIANT로 복사한다.
	// VB Script 배열 형식은 VT_BYREF를 포함하므로 이걸 없앤다.
	::VariantCopyInd(&vtSource, varArray);
	// Variant 형식이 VT_DISPATCH인지 확인한다.
	if(VT_DISPATCH == (VT_DISPATCH & V_VT(&vtSource)) )
	{
		COleDispatchDriver disp;
		// COleDispatchDriver에 Attach한다. MFC는 좋은 클래스들을 많이 갖고 있다.
		disp.AttachDispatch(vtSource->pdispVal, FALSE);
		
		try
		{
			DISPID diLength;
			LPOLESTR length = L"length";
			long nArrayLength = 0;
			// Dispatch에서 length의 DISPID를 구한다.
			hr = disp->m_lpDispatch->GetIDsOfNames(IID_NULL, &length, 1, LOCALE_USER_DEFAULT, &diLength);
			if(FAILED(hr))
			{
				FireError(E_INVALIDARG, "매개변수 입력이 잘못되었습니다.");
			}
			
			// length의 속성값을 획득한다.
			disp.GetProperty(diLength, VT_I4, &nArrayLength);
			
			// 배열 길이 만큼 for문 돌면서 배열 값 출력
			for(int i = 0; i < nArrayLength; i++)
			{
				DISPID diIndex;
				TCHAR szIndex[20];
				CComBSTR bstrIndex;
				CComVariant vtData;
				
				// 배열 인덱스 속성값은 문자열로 지정하면 얻을 수 있다.
				// L"0", L"1", L"2" 처럼.

				StringCchPrintf(szIndex, 20, "%d", i);
				bstrIndex = szIndex;

				// 배열 인덱스의 DISPID를 얻는다.
				disp.m_lpDispatch->GetIDsOfNames(IID_NULL, &bstrIndex, 1, LOCALE_USER_DEFAULT, &diIndex);
				
				// 배열 값을 VARIANT 형식으로 받는다.
				disp.GetProperty(diIndex, VT_VARIANT, &vtData);
				
				// 예제에서는 배열의 값이 항상 문자열이여야 한다.
				if( VT_BSTR != V_VT(&vtData) )
				{
					FireError(E_INVALIDARG, "문자열 배열만 입력 가능합니다.");
					break;
				}
				
				//배열의 값을 각각 메세지 박스로 출력한다.
				AfxMessageBox(CString(vtData.bstrVal));
			}
		}
		catch(CMemoryException *pEx)
		{
			// 메모리 예외 처리 : 예제에서는 그냥 ReportError 및 FireError로 처리
			pEx->ReportError();
			FireError(E_OUTOFMEMORY, "메모리 오류입니다.");
			pEx->Delete();
		}
		catch(COleException *pEx)
		{
			// OLE 예외 처리 : 예제에서는 그냥 ReportError 및 FireError로 처리
			pEx->ReportError();
			FireError(pEx->m_sc, "OLE 오류입니다.");
			pEx->Delete();
		}
		catch(COleDispatchException* pEx)
		{
			// OLE Dispatch 예외 처리 : 예제에서는 그냥 ReportError 및 FireError로 처리
			pEx->ReportError();
			FireError(pEx->m_scError, "OLE Dispatch 오류입니다.");
			pEx->Delete();
		}
	}
}

 

예제를 보면 JScript 배열이 어떻게 구성되어 있는지 볼 수 있다.

 

여기서 특이한 점은 속성값의 DISPID이다.

TRACE를 따라가다보면 알겠지만, 배열의 크기가 3이라고 할때, length의 DISPID는 4값이면, "0"~"2"까지의 DISPID는 1~3 이다.

 

그럼 DISPID 0값은 무엇일까?

 

DISPID 0값은 "1, 2, 3" 이런식으로 모든 배열의 데이터가 ","로 분리되어서 나온다.

 

DISPID 5,6 값이 VT_DISPATCH로 되어 있고, 각각 constructor, prototype이라는 속성이 지원되는데, javascript 객체의 생성자와 객체의 재정의에 관련된 내용이여서 배열을 받는데 크게 사용되진 않는다. 

 

위의 JScript 예제에서

 

alert(arrArray);

 

라고 하면 DISPID 0값이 나오는 것으로 확인할 수 있겠다.

 

실제 작성한 코드는 VARIANT 형식으로 배열(JScript와 VBScript 상관없이) 또는 한개의 문자열을 받는 메소드 이지만 그중에서 JScript 처리 부분만 간추려서 올린다.
반응형

+ Recent posts