server端定义如下:
(框架是通过type library生成的)
function TTest.Get_param(const sqlstr,queryCol: WideString): WideString;
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
try
SQL.Add(sqlstr);
Open;
Result:=FieldByName(queryCol).AsString;
except
Result:='_except_';
end;
Close;
end;
end;//通过传递sql语句及字段名返回结果客户端调用如下:
var
i_endday:string;
...
i_endday:=DCOMConnection1.AppServer.Get_param(sqlstr,fieldname');
提示错误如标题,我这样调用Delphi自带的例子也一样,也许我调用方法有问题?不知该如何调用
(框架是通过type library生成的)
function TTest.Get_param(const sqlstr,queryCol: WideString): WideString;
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
try
SQL.Add(sqlstr);
Open;
Result:=FieldByName(queryCol).AsString;
except
Result:='_except_';
end;
Close;
end;
end;//通过传递sql语句及字段名返回结果客户端调用如下:
var
i_endday:string;
...
i_endday:=DCOMConnection1.AppServer.Get_param(sqlstr,fieldname');
提示错误如标题,我这样调用Delphi自带的例子也一样,也许我调用方法有问题?不知该如何调用
如上,在TypeLibrary里设计接口方法,将返回值用如上方式传递试试(参数的modifier设置为in+out)?未经测试,我不敢保证找到了问题关键。