我在 Type Library 中添加了一个 Mothed.并希望入三个参数,传出一个结果.(100分)

传入三个参数:
int, string, variant
传出一个参数
variant
添加了一个 GetData方法,在 parameters 页中修改 Return Type 为 VARIANT,提示错误:
Function of Automation Interfaces must have a return type of HRESULT.
经查 HRESULT, 其定义如下:
HRESULT is the return type for functions that return an error code.
type HRESULT = type Longint;

其我不需要返回错误代码呀.真晕.

传出一个参数
variant
應該是outvarinat吧?

procedure Set_DataDelete(par1, par2: OleVariant;
out par3,par4:WideString);

我想应该可以的吧.请参考:
http://expert.csdn.net/Expert/topic/2834/2834685.xml?temp=.4782984

{ 根据用户及条件提取相关需求数据 BES96261
UserID: 用户编码
dstNm: 需求数据集名称
ParamStr: 条件参数值，使用 '@' 作分隔符 }
function THPMRP.GetData(const UserID, dstNm: WideString;
ParamStr: OleVariant): OleVariant;
begin
Try
TmpCDS.Close;
TmpCDS.CommandText := GetSQL(UserID, dstNm,ParamStr);
//产生SQL语句
TmpCDS.Open;
Result := TmpCDS.Data;
Finally
TmpCDS.Close;
end;
end;

客户端： ClientDataSetName.Data := …… 直接赋返回值就好了
提交时出错处理较困难，这方面除了再次GetData外我也没想通怎么样处理好，如果这方面出了问题楼主可别找我呀 ^_^

说错话了……赶紧删除……[]

应该不会是没有人会吧????
还是分太少?????

ＵＰ一下

接受答案了.