F
flysand
Unregistered / Unconfirmed
GUEST, unregistred user!
Dcom服务器中
procedure TAppServer.provider1GetData(Sender: TObject;
DataSet:
TClientDataSet);
begin
DataSet.SetOptionalParam('CurNumber',12,false);
end;
客户端
procedure Tform1.Create(Sender: TObject);
var CurNumber:integer;
begin
ClientDataSet1.open;
CurNumber:=ClientDataSet.SetOptionalParam('CurNumber',12,false);
file://result
CurNumber=0
end;
我应如何才能从应用服务器端取得正确值(CurNumber=12)
procedure TAppServer.provider1GetData(Sender: TObject;
DataSet:
TClientDataSet);
begin
DataSet.SetOptionalParam('CurNumber',12,false);
end;
客户端
procedure Tform1.Create(Sender: TObject);
var CurNumber:integer;
begin
ClientDataSet1.open;
CurNumber:=ClientDataSet.SetOptionalParam('CurNumber',12,false);
file://result
CurNumber=0
end;
我应如何才能从应用服务器端取得正确值(CurNumber=12)