안녕하세요 빌더로 ActiveX 를 만들어 보려고 합니다.

제가 작업한 순서는

1. ActiveX Library 를 만들고

2. ActiveX Automation 을 만들고

3. Sum 이란 인터페이스를 만들고

4. 두수를 더해주는 Sum 이란 메서드를 만들었습니다

5. 메세지박스를 보여주는 MsgBox 란 메서드를 만들었습니다.

STDMETHODIMP TSumImpl::Sum(long Value_1, long Value_2, long* Value_out)
{
    *Value_out = Value_1 + Value_2;
    return S_OK;
}

STDMETHODIMP TSumImpl::MsgBox(BSTR msg)
{
    ::MessageBox(
        0, AnsiString(msg).c_str(), "정보 박스", MB_OK);
    return S_OK;
}

<% 'asp code

    Dim objSum
    Dim retSum

    Set objSum = Server.CreateObject("paranwave.Sum")

    retSum = objSum.Sum(2,1)

    Response.Write retSum
        
         '여기서 응답이 없습니다.
         objSum.MsgBox("Hello")

%>


값을 더하는 메서드는 실행이 잘 되서 결과 값이 브라우저에 찍히는데

메세지 박스는 왜 실행이 안되는지 모르겠습니다.

제가 ActiveX 를 첨하는지라.. -_-;;

도와주세요 T_T