我在 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"));
}
最佳答案
您不应返回 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")
关于c++ - 在 c++ builder 的 com dll 中使用 BSTR 时感到困惑,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39463728/