나우시카 님이 쓰신 글 :
: Func([in]BSTR input,[out,retval]VARIANT *output)
: 이렇게 받는 스트링은 BSTR로 해결이 되었는데
:
: 다시 리턴해주는 값을 이전에 VC에서 BSTR *로 해서 어렵지 않게 했었는데
:
: BC에서는 지원을 안해서 VARIANT *로 하고 어떻게든 문자열을 리턴받으려고 하는데
:
: 잘 안되네요.~
:
: 도움 부탁드립니다.
:
: p.s 어제 저녁 내내 끙끙했지만 못했습니다 . ㅠ.ㅠ


[out,retval]의 형을 BSTR*로 사용할 수 있습니다.
ActiveForm을 추가하면 생기는 소스를 보면 아래와 같이 가능함을 알 수 있습니다.
STDMETHODIMP TActiveFormXImpl::get_Caption(BSTR* Value)
{
  try
  {
    *Value = WideString(m_VclCtl->Caption).Copy();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IActiveFormX);
  }
  return S_OK;
};

나머지 문제는 [out,retval]의 형을 어떻게 BSTR* 로 설정할 수 있느냐 인데 해결책은 간단합니다.
Type Library 에디터에서 Method를 추가하면 오른쪽에 Parameters 페이지가 있습니다.
Type 항목에 BSTR*를 타이핑하여 입력하면 됩니다.
리스트 항목에 있는 것만 선택하여 입력가능한 것은 아닙니다.