delphi 写 activex中怎么添加函数（function）

Question

选中IActiverFormX,点击右键选择添加Method，出现一个界面：attributes中的Name中输入：setlonginparameters中return type选择：HRESULT添加一个参数，Name：Name；Type：BSTR;Modifier[in]点击工具栏的Rrefrsh;文件增加的函数是：procedure TActiveFormX.SetLogin(const name: WideString);而我想添加的函数是function SetLongin(const Name: WideString): Integer;该怎么操作啊参考：http://wwyyff80.blog.sohu.com/60239343.html

Answer 1

不知道你用的delphi几，delphi7里面有个自动转换的向导，你自己写个类，然后用那个向导一转换就行了。后面的版本不知道为啥都去掉了~

Answer 2

1、手工添加比较慢，注意返回参数设置为[Out,retval]
2、或者你直接在实现单元,Edit->Add to Interface将方法复制进去即可。
第2种方式写代码比较快一些

Answer 3

感谢两位的回答，问题有点眉目了
请看http://hcqi2004.blog.163.com/blog/static/726824182010512112846370/
该网站的最后一张图，
但返回值不知道该怎么设成integerhsmserver
Edit->Add to Interface将方法复制进去即可，这个方法能给个详细的步骤吗?
delphi的edit下拉列表中没有Add to Interface选项啊

Answer 4

我用的delphi7，你说的自动转换，能在给点详细资料吗？

Answer 5

Edit菜单最后一个就是,但必须在接口的实现单元才可以使用