1,594
社区成员
发帖
与我相关
我的任务
分享客户端怎样调用应用服务器中定义的用Property？？？
我在应用服务器中定义了一个如下的一个过程。
procedure newquery(idok :widestring);
begin
query1.colse;
query1.sql.clear;
query1.sql:='select * form jb where id=:idok'
query1.parambyname('idok').value:=idok;
query1.open;
end;
其定义的过程上这样的。
1.我定义的是一定只读性的proerty.然后设置其idok参数。类型为bstr 为in.
2.datasetprovider1.exported以设为true;
完成注册以后，在我的客户端根本就看不到
我用clientdataset1.appserver.无法找到的我定义的以上的过程。
本人不知道出错在哪里。谢谢指教。
procedure newquery(idok :widestring);
begin
query1.colse;
query1.sql.clear;
query1.sql:='select * form jb where id=:idok'
query1.parambyname('idok').value:=idok;
query1.open;
end;
其定义的过程上这样的。
1.我定义的是一定只读性的proerty.然后设置其idok参数。类型为bstr 为in.
2.datasetprovider1.exported以设为true;
完成注册以后，在我的客户端根本就看不到
我用clientdataset1.appserver.无法找到的我定义的以上的过程。
本人不知道出错在哪里。谢谢指教。
...全文
请发表友善的回复…
发表回复
johnma 2003-06-07
- 打赏
- 举报
你的newquery应该在type lib中定义
zsjzwj 2003-06-07
- 打赏
- 举报
你服务器中的定义应该是错的！
用Property后的过程会在你自定义的名称前加一个Set_或Get_。
我这几天一直在研究这部分。
用Property后的过程会在你自定义的名称前加一个Set_或Get_。
我这几天一直在研究这部分。
zengwj 2003-06-07
- 打赏
- 举报
我出了40分问这个问题，可是没有答案！
你知道了发E—MAIL给我：
zwjselina221cn.com
你知道了发E—MAIL给我：
zwjselina221cn.com
vbscript1981 2003-06-05
- 打赏
- 举报
是的，你说的方法我已试过， 这样子话会提示， newquery 没有定义。
karl 2003-06-05
- 打赏
- 举报
其实Ｄｅｌｐｈｉ是不会显示你定义的过程的，你只要直接调运就可以了
clientdataset1.appserver.newquery('Karl');
clientdataset1.appserver.newquery('Karl');
