利用DataSnap的回调功能在客户端显示服务器方法的执行进度

    如果DataSnap服务器方法的执行时间比较长，这时候可能需要在客户端用进度条显示当前服务器方法的执行进度。要实现这种需求，现在可以利用DataSnap的回调功能，此功能是从Delphi 2010版本开始被引入的。

 

要实现回调，服务器方法需要暴露给客户端一个或多个类型为TDBXCallback的参数。例如：
...
{$METHODINFO ON}
  TServerMethods1 = class(TComponent)
  private
    { Private declarations }
  public
    { Public declarations }
    function LongTimeRunFunc(InitCallback, ProgCallback: TDBXCallback): boolean;
  end;
{$METHODINFO OFF}
...
LongTimeRunFunc方法带有两个回调参数，InitCallback用来初始化客户端TProgressBar的设置，ProgCallback根据当前方法的执行进度，设置客户端TProgressBar.Position的属性。

implementation
...
function TServerMethods1.LongTimeRunFunc(InitCallback, ProgCallback: TDBXCallback): boolean;
var
  Max: Integer;
  I: Integer;
begin
  Max := Random(120) + 1;
  InitCallback.Execute(TJSONNumber.Create(Max)).Free;

  for I := 0 to Max do
  be