L
laibin
Unregistered / Unconfirmed
GUEST, unregistred user!
多层错误，错误信息：Method 'GetClerkBasicInformation' not Supported by automation object!我该怎么办呀！急呀！在线等待！大虾快援手呀！ (100分)<br />我在服务器端建了个方法：GetClerkBasicInformation
参数SInfo,类型Variant *, Modifier为[out,retval]
过程如下：
function TKLPOS.GetClerkBasicInfomation: OleVariant;
begin
fnOpenSQL('select * from bman');
result:=adoOpenSQL.Recordset;
end;
客户端调用如下：
procedure TClerkManageForm.BitBtn1Click(Sender: TObject);
begin
dmclient.DCOMConnection1.AppServer.GetClerkBasicInformation;
end;
结果提示出错！
Method 'GetClerkBasicInformation' not Supported by automation object!
为什么我的方法不支持自动化对象呀！哪位大虾帮我看看呀！应该怎么修改？
参数SInfo,类型Variant *, Modifier为[out,retval]
过程如下：
function TKLPOS.GetClerkBasicInfomation: OleVariant;
begin
fnOpenSQL('select * from bman');
result:=adoOpenSQL.Recordset;
end;
客户端调用如下：
procedure TClerkManageForm.BitBtn1Click(Sender: TObject);
begin
dmclient.DCOMConnection1.AppServer.GetClerkBasicInformation;
end;
结果提示出错！
Method 'GetClerkBasicInformation' not Supported by automation object!
为什么我的方法不支持自动化对象呀！哪位大虾帮我看看呀！应该怎么修改？