如何在DataSnap项目组中从服务器返回值到客户端

Question

我编写 datasnap 应用程序。我应该知道服务器上最后上传的记录的 ID，然后使用 clientdataset 组件从本地数据库上传新记录。

我不明白这段代码的含义，Parameters[0].Value、Parameters[1].Value 是什么以及它如何正确更改以便从服务器返回结果：

FSelectCountryCommand.Parameters[0].Value.SetInt32();
FSelectCountryCommand.ExecuteUpdate;
Result := FSelectCountryCommand.Parameters[1].Value.GetInt32;

如果我手动写入随机整数值，

 result:=10;  //FSelectCountryCommand.Parameters[1].Value.GetInt32;

例如它工作正常并在 ClientFormUnit 中返回该值。

我的最终目标是从服务器返回结果值(maxcountry_id)到ClientForm单元的buttonclick过程

在服务器上查询：

select max(country_id) as maxcountry_id from country

ClientForm单元：

   procedure Tclient.buttonCountryClick(Sender: TObject);
    var c:integer;
    begin
     c:=Clientmodule1.ServerMethods1Client.SelectCountry;
    
     Clientmodule1.lqCountry.close;
     Clientmodule1.lqCountry.Params[0].AsInteger:= c;
     Clientmodule1.lqCountry.close;
    end;

ClientClassesUnit：

 function TServerMethods1Client.SelectCountry:Integer;
  begin
   if FSelectCountryCommand = nil then
    begin
     FSelectCountryCommand := FDBXConnection.CreateCommand;
     FSelectCountryCommand.CommandType := 
                   TDBXCommandTypes.DSServerMethod;
     FSelectCountryCommand.Text := 'TServerMethods1.SelectCountry';
     FSelectCountryCommand.Prepare;
     end;
       
  FSelectCountryCommand.Parameters[0].Value.SetInt32();
  FSelectCountryCommand.ExecuteUpdate;
  Result := FSelectCountryCommand.Parameters[1].Value.GetInt32;
  end;

ServerMethodUnit：

 function TServerMethods1.SelectCountry:Integer;
    begin
     qCountry.close;
     qCountry.Open;
     Result:= qCountryMaxCountry_id.AsInteger;
    end;

我尝试使用全局变量但没有成功：它仅在项目区域中可见，而在项目组区域中看不到。

解决方案

此代码工作正常：

FSelectCountryCommand.ExecuteUpdate;
Result := FSelectCountryCommand.Parameters[0].Value.GetInt32;

据我了解，由于选择查询不包含参数，因此此运算符：

FSelectCountryCommand.Parameters[0].Value.SetInt32();

是多余的。