XE7 DataSnap存储过程传递参数问题?
服务端:
procedure TServerMethods1.GuestQry(Act, Rno, GName, Gtype, sArr, eArr, sLea,
eLea, SaleId, Birthday, Sta, Bal, Ydr, Rtype, T: String);
begin
with GuestQuery do
begin
Close;
Parameters.ParamByName('@Account').Value :=Act;
Parameters.ParamByName('@RoomNo').Value :=Rno;
Parameters.ParamByName('@Name').Value :=GName;
Parameters.ParamByName('@GuestType').Value :=Gtype;
Parameters.ParamByName('@sArrDate').Value :=sArr;
Parameters.ParamByName('@eArrDate').Value :=eArr;
Parameters.ParamByName('@sLeaDate').Value :=sLea;
Parameters.ParamByName('@eLeaDate').Value :=eLea;
Parameters.ParamByName('@SaleId').Value :=SaleId;
Parameters.ParamByName('@Birthday').Value :=Birthday;
Parameters.ParamByName('@State').Value :=Sta;
Parameters.ParamByName('@Balance').Value :=Bal;
Parameters.ParamByName('@Ydr').Value :=Ydr;
Parameters.ParamByName('@RoomType').Value :=Rtype;
Parameters.ParamByName('@T').Value :=T;
Prepared;
Open;
end;
end;
客户端:
procedure TForm1.Button1Click(Sender: TObject);
var
ReturnDataSet: OleVariant;
begin
SQLConnection1.Open;
FParam := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
try
ReturnDataSet := FParam.GuestQry('','','','','','','','','','','I','','','','1'); //这句报错
ClientDataSet1.Data:=ReturnDataSet;
ClientDataSet1.Open;
finally
FreeAndNil(FParam);
SQLConnection1.Close;
end;
end;
错误信息: E2010 Incompatible types: 'OleVariant' and 'procedure, untyped pointer or untyped parameter'
刚接触不知这种方法好不好,有没有更好的方法。还请各位大哥帮忙