delphi编写ActiveX在VBS下调 返回BSTR出错

由于工作需要首次在DELPHI下开发ActiveX控件，遇到不少问题，经过一翻折腾终于能在VBS上面正常调用了。所有的问题都在参数和返回值上面。 这些错误在用DELPHI开发的程序去进行调用，都不会出现问题。

错误1：  直接在这里设定了返回类型为BSTR，结果在DELPHI下可用，在VBS下直接报错。

正确的方式应该为：如图：   返回类型应该都为HRESULT ，然后在params里面添加一个返回参数。如果是返回字符串 如果直接用BSTR 在VBS下调用也是存在问题的，直接报错。这一步确实折腾了我不少时间，后来在网上查到 输入用BSTR输出就需要用BSTR* 才可以。