컴퓨터 프로그래밍 컴퓨터 프로그래밍

// BSTR COleVariant // VARIANT COleCurrency // CURRENCY (VT_CY) COleDateTime // DATE (VT_DATE) COleSafeArray // SAFEARRAY .GetUBound() .GetElement() OLE_HANDLE HWND //Create the SAFEARRAY from the VARIANT ret. COleSafeArray sa(ret); //Determine the array's dimensions. long lNumRows; long lNumCols; sa.GetUBound(1, &lNumRows); sa.GetUBound(2, &lNumCols); //Display the elements in the SAFEARRAY. lo..

STDMETHODIMP CallMethod(LPDISPATCH pDisp, LPOLESTR pszName, VARIANT* pvResult, UINT cArgs, VARIANTARG* rgVarParams) { if (NULL == pDisp) return E_POINTER; DISPID dwDispID; DISPPARAMS dispparams = {NULL, NULL, 0, 0}; dispparams.rgvarg = rgVarParams; dispparams.cArgs = cArgs; HRESULT hr = pDisp->GetIDsOfNames(IID_NULL, &pszName, 1, LOCALE_USER_DEFAULT, &dwDispID); if(SUCCEEDED(hr)) { hr = pDisp->I..

BSTR // OLECHAR *, Basic (language) string SysAllocString() SysFreeString() SysStringLen() void MyClass::Function(BSTR* bstrOut) { *bstrOut=::SysAllocStringLen(m_bstr, ::SysStringLen(m_bstr)); } BSTR bstrStatus = ::SysAllocString( L"Some text" ); if (bstrStatus == NULL) return E_OUTOFMEMORY; ... ::SysFreeString( bstrStatus ); SAFEARRAY OLE_COLOR OleTranslateColor() // COLORREF VARIANT VariantIni..

CComBSTR .=() .Copy() .CopyTo() CComBSTR m_bstrURL; // BSTR representing a URL // put_URL is the put method for the URL property. STDMETHOD(put_URL)(BSTR strURL) { ATLTRACE(_T("put_URL\n")); // free existing string in m_bstrURL & make a copy // of strURL pointed to by m_bstrURL m_bstrURL = strURL; return S_OK; } // get_URL is the get method for the URL property. STDMETHOD(get_URL)(BSTR* pstrURL)..

클라이언트는 루트 개체가 제공하는 읽기 전용의 속성을 통하여 컬렉션 개체에 접근하게 된다. 루트 개체 읽기 전용 속성의 컬렉션 개체를 노출 interface ICompany : IDispatch { [propget, id(1), helpstring("property Employees")] HRESULT Employees([out, retval] VARIANT *pVal); }; 컬렉션 개체 클래스 팩토리 관련 내용은 제거한다. .Count .Item[] ._NewEnum [.Add()] [.Remove()] interface IEmployees : IDispatch { [propget, id(1), helpstring("property Count")] HRESULT Count([out, retval] l..

1. [MFC AppWizard (dll)]로 프로젝트 생성한다. 이때 [Automation]을 체크 2. IDispatch 인터페이스를 구현할 클래스 생성 [Insert | New Class] 메뉴를 선택해서 [Class Type]은 'MFC Class', [Base class]는 CCmdTarget 그리고 [Automation] 항목에서 [Creatable by type ID]를 선택해서 생성 3. 생성된 인터페이스의 컨텍스트 메뉴에서 [Add Method]를 선택해서 메소드 추가 BOOL CCalcServerApp::InitInstance() { // Register all OLE server (factories) as running. This enables the // OLE libraries t..

* VBScript(CalcClient.vbs) Set Calc = CreateObject("CalcServer.Calculator") Sum = Calc.Add(5, 3) MsgBox("5+3 = " + CStr(Sum)) Set Calc = Nothing * VBScript(CalcClient.vbs) - 다중개체 Set Clock = CreateObject("ClockServer.Application") ' 시침 속성 설정 Clock.Appearance.Tickness(0) = 5 Clock.Appearance.Length(0) = 35 Clock.Appearance.Color(0) = RGB(0, 0, 255) ... Clock.ShowWindow() Clock.UpdateWindow() * VB..

IDispatchImplATL 오브젝트(Simple Object)를 추가시 듀얼 인터페이스로 생성한다.[Support ISupportErrorInfo]를 체크한다.ATL COM 클래스.SetErrorInfo()