c++ - 在 c++ builder 的 com dll 中使用 BSTR 时感到困惑

Question

我在 C++ Builder Borland 中制作了一个 OCX。正如我所描述的，我的 OCX 具有以下功能:

• 登录
• 写
• 阅读
• 调试输出
• 获取值

我在我的 C# 应用程序中使用这个 OCX。在 C# 端我有一个按钮和列表框。该按钮从 OCX 调用 login 方法，列表框显示此方法的输出。

在 OCX 端，login 方法为服务器(使用套接字编程)创建一个命令以获取身份验证。然后调用Write函数写入socket。然后从套接字获取响应并调用Read 函数读取套接字响应。

Read 方法读取结果并将其发送到DebugOutput 以调试输出流，并调用GetVal 找到最后一个主服务器响应。然后他们将参数传递给对方。毕竟 C# 端显示登录方法的结果 (SUCCESS | FAIL)。

我使用了 BSTR。 (我在 stackoverflow 和 MSDN 上阅读了关于 BSTR 的主题，但我认为我的解决方案中没有很好地理解它)。这些是我在 OCX 端的代码:

BSTR STDMETHODCALLTYPE TVImpl::Login(BSTR PassWord)
{
  wchar_t wcs1[500];
  Var *var=new Var();
  //here make the command
  ...................
  //get the server response to show to user
  BSTR read=::SysAllocString(Write(wcs1));
  if(read!=NULL) ::SysFreeString(read);

  return read;
}

BSTR STDMETHODCALLTYPE TVImpl::Read()
{
  BSTR str ;
  try
  {
   IdTCPClient1->ReadTimeout=100;
   str =::SysAllocString( IdTCPClient1->IOHandler->ReadLn().c_str());
  }
  catch(Exception &e)
  {
    str= e.Message.c_str();
  }
  str=(DebugOutput(str));
  return str;
}

BSTR STDMETHODCALLTYPE TVImpl::Write(BSTR str)
{
  IdTCPClient1->IOHandler->WriteLn(str) ;
  BSTR str2=::SysAllocString(L"TST");
  str2=Read();
  return str2;
}
BSTR STDMETHODCALLTYPE TVImpl::GetVal(BSTR st,BSTR ValTyp)
{
  BSTR res;
  AnsiString stAnsi;
  //Do some thing with st and save it to stAnsi
  .................
  res=(BSTR)WideString(stAnsi);
  return ::SysAllocString(res);
}

BSTR STDMETHODCALLTYPE TVImpl::DebugOutput(BSTR st)
{
    Var *val=new Var();
    BSTR res;
    res=GetVal(st,val->CMD_CMD);
    if(res==val->CMD_AUTHENTICATE)
        res=GetVal(st,val->XPassword);
    return res;
}

在 C3 代码中它被挂起。我知道我的问题是使用 sysAllocString。但是当我再次为每个方法中的每个方法使用::sysFreestring 时，我的 C# 代码再次挂起。
这是我的 C# 代码:

private void button4_Click(object sender, EventArgs e)
    {
        VinSockCmplt.Vin vin = new Vin();
        listBox1.Items.Add(vin.Login("1234"));
   }

Answer 1

您不应返回 BSTR(或各种编译器以各种方式编译的任何“复杂”类型)。 COM 方法的推荐返回类型是 HRESULT(32 位整数)。此外，您不得释放刚刚分配的 BSTR 并将其返回给调用者。

这里是你如何布局你的方法:

HRESULT STDMETHODCALLTYPE TVImpl::Login(BSTR PassWord, /*out*/ BSTR *pRead)
{
  ...
  *pRead = ::SysAllocString(L"blabla"); // allocate a BSTR
  ...
  // don't SysFreeString here, the caller should do it
  ...
  return S_OK;
}

如果您在 .idl 文件中定义您的界面，它将类似于:

interface IMyInterface : IUnknown
{
    ...
    HRESULT Login([in] BSTR PassWord, [out, retval] BSTR *pRead);
    ...
}

retval 用于指示赋值语义对于支持它的语言是可能的，就像您最初尝试使用这样的代码实现的 var read = obj.Login("mypass")